Основні поняття системного аналізу
17

Next

ActiveSheet.Cells(1)(j) = j - 2

Next

End Sub