Для обеспечения оптимального уровня совместимости и безопасности на всех платформах рекомендуется установить последнюю версию пакета обновления Windows и установить все критические обновления, доступные на веб-сайте Центра обновления Windows.
Dim WB As Workbook
Dim WS As Worksheet
Dim col_num As Integer
Dim row_num As Integer
Set WB = Excel.ActiveWorkbook
Set WS = WB.Worksheets("Лист1")
col_num = 0
For b = 2 To 8 Step 2
For c = 4 To 10 Step 2
col_num = col_num + 1
row_num = 0
For d = 10 To 50 Step 10
row_num = row_num + 1
WS.Cells(row_num, col_num).Value = 10 + b * c * d
Next d
Next c
Next b