Ошибка преобразования массива в строку

[Debauchee]

Имеется таблица "Лист1" в первой колонке три значения "AAA", "BBB" и "CCC".
Надо скопировать их в массив arr(), показать значения элементов этого массива, и поместить их в другие ячейки "B4", "B5", "B6".

Sheets("Лист1").Select	' переход на лист "Лист1"

Dim arr() As Variant	' Определяю динамический массив arr()
lastRow = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row	' конечная занятая строка в первой колонке = 3
ReDim arr(1 To lastRow)	' переопределяю размер массива

arr = Range("A1:A" & lastRow).Value	' массив заполняется значениями из ячеек

теперь, если хочу посмотреть значения элементов массива:

For i = 1 To lastRow
	Debug.Print arr(i)	' тут получаю ошибку
Next i

то получаю ошибку "Run-time error '9'. Subscript out of range."

MsgBox arr(1)

приводит к такой же ошибке

а попытка преобразования его элементов в строку через Join()

Debug.Print Join(arr, ", ")

приводит к ошибке "Run-time error '5'. Invalid procedure call or argument."

Однако, если вставить значения элементов массива в ячейки Range("B4:B6"),

Range(Cells(4, 2), Cells(6, 2)).Value = arr

то все работает, массив arr() жив и содержит свои законные три элемента.

Что за чертовщина и как в VBA можно вывести элементы массива, как строки?

И как вообще правильно копировать данные из диапазона ячеек в одномерный массив и обратно?
Может, вся проблема в неправильном копировании в массив?

Спасибо!

[Hugo121]

ReDim arr(1 To lastRow) ' переопределяю размер массива - лишнее. И ошибочное.
А все ошибки потому, что это двумерный массив!

[Debauchee]

Сообщение от Hugo121

ReDim arr(1 To lastRow) ' переопределяю размер массива - лишнее. И ошибочное.
А все ошибки потому, что это двумерный массив!

А как же тогда определить размерность массива? Или вообще не нужно?

И откуда он двумерный, если используется только один ряд значений? Ничего не понимаю...

[Hugo121]

Вообще не нужно.
А если будете использовать 10 рядов - будете десятимерный массив городить?

И вообще там не ряд, а столбец. Где у каждого элемента 2 координаты!
И зачем Вам одномерный массив? Используйте как есть двумерный, будьте проще

[IgorGO]

Sub N1()
  Dim arr
  arr = [a1:a3].Value
  [b4].Resize(3, 1) = arr
End Sub

[Debauchee]

Мрачно...
Где же тут проще? Если я хочу "упаковать" элементы массива в строку с разделителями, а join() не поможет, то без цикла не обойтись?

А есть ли в VBA какая-нибудь функция, наподобие var_dump() или print_r() в РНР, которая позволит посмотреть дамп массива?

[Debauchee]

Спасибо, IgorGO!
Красивое решение!

Dim arr - это объявление не массива, а просто переменной (as Variant), т.е. получается, что и массива тоже?

[EducatedFool]

в редакторе VBA жмём View - Locals Window
в коде, в том месте где надо остановиться и посмотреть содержимое массива, добавляем строку STOP

и смотрим, что у нас там во всех переменных (в т.ч. в массиве)

[Hugo121]

И что же решил Игорь?
И зачем нужно строка? Если нужна - ну и соберите её циклом по массиву - ничего сложного, чуток букв написать...
А вообще преобразовать из двумерного в одномерный можно транспонированием.

Sub N2()
    Dim arr
    arr = [a1:a3].Value
    [b4] = Join(Application.Transpose(arr), ", ")
End Sub

[Debauchee]

Спасибо, EducatedFool!
Почти удобный способ