기존 시트 셀에 값을 추가하기위한 Excel VBA 코드

다른 셀의 기존 값에 셀 값을 추가하는이 코드가 있습니다.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not (Intersect(Target, Range("E3")) Is Nothing) Then
        Range("F3").Value = Range("E3").Value + Range("F3").Value
    End If
End Sub

그러나 내 문제는 하나의 셀에서만 작동하지만 연속적으로 작동하지 않는다는 것입니다. 즉, 기존 값에 B1값을 더하고 싶습니다 A1. 즉, 그것은 확인을 작동하지만 난 24 개 행이 B2에 A2그것이 내가 그들을 분리 가능하게 결합하지만 추가하지 않으 작동하지 않습니다 B2에 A2와 B3에 A324 회 이런 식으로.

긴급히 도와주세요.

VBA 여야합니까?

B 열 복사 (ctrl + c)를 선택한 다음 A 열을 선택하고 특수 붙여 넣기를 선택하면 add 연산자를 사용하여 원하는 작업을 수행 할 수 있습니다.

그렇지 않으면이 함수는 B 열의 셀을 변경할 때마다 A 열을 A + 열 B (특정 행의 경우)로 업데이트합니다.

고든

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim int_range As Range

Set int_range = Intersect(Target, Range("B:B"))
If Not (int_range Is Nothing) Then
    For Each c In int_range
        c.Offset(0, -1).Value = c.Offset(0, -1).Value + c.Value
    Next
End If
End Sub