Задача: есть некоторая таблица в экселе с числами. необходимо с этими числами в стоках, столбцах, по диагонали выполнить некоторые математические действия.

Решение: vba, создаём макрос такого содержания

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub РаботаСВыделеннымДиапазономЯчеек()
Dim cur_range As Range
With ActiveSheet
Set cur_range = Selection
cur_range.Activate
For x = 1 To cur_range.Rows.Count
For y = 1 To cur_range.Columns.Count
' тут любые математические операции
cur_range(x, y) = cur_range(x, y).Value * 10
Next y
Next x
End With
End Sub