Вопрос № 39.Задачи на одномерные и двумерные массивы. Вывод таблиц на любой рабочий лист Excel..
Public Sub ee()
p = 1
For x = 1 To 5
Cells(1, p) = x + 1
p = p + 1
Next x
For y = 1 To 5
Cells(2, p) = y + 3
p = p + 1
Next y
End Sub