Excel vba код для добавления значения в существующую ячейку листа

Question

У меня есть этот код, чтобы добавить значение ячейки к существующему значению другой ячейки:

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 на A3 таким образом 24 раза.

Пожалуйста, помогите, это срочно.

Answer 1

Это должно быть VBA?

Если вы выберете столбец B копировать (Ctrl + C), затем выберите столбец A и перейдите к специальной вставке, вы можете использовать оператор добавления, чтобы сделать то, что вы хотите.

В противном случае эта функция будет работать каждый раз, когда вы меняете ячейку в столбце 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