Добрый день, друзья! Допустим вам потребовалось осуществить сложение двух массивов как на фото: Видим, что первый массив располагается в диапазоне (A2:B4), а второй - (D2:E4). Мы можем выполнить их сложение поэлементно с помощью простого кода в VBA: Sub макрос()
Dim i As Long, j As Long, a As Range, b As Range, c As Range
Set a = Range("A2:B4") 'задали первый диапазон
Set b = Range("D2:E4") 'задали второй диапазон
Set c = Range("G2:H4") 'задали третий диапазон (результат)
For i = 1 To 3: For j = 1 To 2
c(i, j) = a(i, j) + b(i, j)
Next j: Next i
End Sub Результат при выполнении кода:
Добрый день, друзья! Допустим вам потребовалось осуществить сложение двух массивов как на фото:
Видим, что первый массив располагается в диапазоне (A2:B4), а второй - (D2:E4). Мы можем выполнить их сложение поэлементно с помощью простого кода в VBA:
Sub макрос()
Dim i As Long, j As Long, a As Range, b As Range, c As Range
Set a = Range("A2:B4") 'задали первый диапазон
Set b = Range("D2:E4") 'задали второй диапазон
Set c = Range("G2:H4") 'задали третий диапазон (результат)
For i = 1 To 3: For j = 1 To 2
c(i, j) = a(i, j) + b(i, j)
Next j: Next i
End Sub
Результат при выполнении кода:
