добавление между двумя столбцами по usin VBA

Question

Я хотел бы знать, как я могу добавить 1-й столбец со 2-м столбцом с помощью VBA, например, когда кто-то нажимает кнопку. Затем сумма возвращается в 1-й столбец ... и автоматически продолжается в течение 10 часов.это моя кодировка

---

Sub Button1_Click()

For Each r In Range("B1:B10")

For Each a In Range("A1:A110")

a.Value = a.Value + r.Value

Next a

Next r

End Sub

Answer 1

Ваш код просто суммирует все значения в Range(B1:B10) с каждым значением в Range("A1:A10"

Нет необходимости повторять цикл дважды. Вы можете использовать этот код вместо:

Sub Button1_Click()
Dim A As Range

For Each A In Range("A1:A10")
    A.Value = A.Value + Range("B" & A.Row).Value
Next A

End Sub

Это займет каждую ячейку Range ("A1:A10") и суммирует ее со значением соседней ячейки в столбце B. Надеюсь, это поможет