при выводе массива на лист выводится только 1 элемент

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » при выводе массива на лист выводится только 1 элемент (Формулы/Formulas)

Udik

Дата: Среда, 01.07.2015, 16:59 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Собственно в теме всё сказанно, как исправить понять не могу. Здесь просто тестовый массив, реально выводится до 1000000 строк
[vba]

Код

Public Sub test()
Dim arr1(1 To 10) As String
Dim i As Byte

For i = 1 To 10
arr1(i) = "num: " & i
Cells(i, 1).Value = arr1(i) 'строка для контроля выводим в 1 столбец
Next i
Cells(1, 2).Resize(10).Value = arr1() 'тест строка1
Cells(1, 3).Resize(10) = arr1() 'тест строка2
Cells(1, 4).Resize(10).Value = arr1 'тест строка3
Cells(1, 5).Resize(10) = arr1 'тест строка 4

End Sub

[/vba]

К сообщению приложен файл: test.xlsm (18.5 Kb)

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Сообщение отредактировал Udik - Среда, 01.07.2015, 17:03

Ответить

SLAVICK

Дата: Среда, 01.07.2015, 17:03 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Для одномерных массивов нужно так

:
[vba]

Код

Cells(1, 1).Resize(10) = Application.WorksheetFunction.Transpose(arr1)

[/vba]

Для двумерных можно без этого.

[vba]

Код

Public Sub test()
Dim arr1(1 To 10) As String
Dim arr2(1 To 10, 1 To 1) As String
Dim i As Byte
For i = 1 To 10
      arr1(i) = "num: " & i
      arr2(i, 1) = arr1(i)
Next i
Cells(1, 1).Resize(10) = Application.WorksheetFunction.Transpose(arr1)
Cells(1, 2).Resize(10) = arr2
End Sub

[/vba]