![excel](https://habrastorage.org/r/w120/web/604/3d7/c60/6043d7c600ba4d8eb3f4b46638812de7.png)
Excel
- 4 ответа
- 0 вопросов
1
Вклад в тег
If Application.Name = "Microsoft Excel" then
else
end if
Dim arr()
ReDim arr(100, 1) '100 - верхняя граница массива (равно кол. строк - 1)
Dim i&
For i = 0 To 99
arr(i, 0) = Cells(i + 1, 1).value 'i+1 потому что нумерация строк идет с 1, 1 - номер столбца с координатой Х
arr(i, 1) = Cells(i + 1, 2).value '2 - номер столбца с координатой Y
Next