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

[Debauchee]

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

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

Строка нужна не сама по себе
Из заданного диапазона планируется создать текстовый файл с разделителями.
Без Application.Transpose, единственное, что могу придумать для использования Join():

Dim arr
arr = [a1:a3].Value

ReDim arr2(1 To UBound(arr))

For i = 1 To UBound(arr)
    arr2(i) = arr(i, 1)
Next i

Debug.Print Join(arr2, ", ")

Извратно как-то все это...

[Hugo121]

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

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

Интересная формулировка
Ну уж какой есть. А как было бы удобнее?

[Hugo121]

Ну если нужно создать текстовый файл - то можно сразу в файл и писать, перебирая массив. Смотря как будете файл создавать.
А чем не угодило транспонирование? Миллион строк и долго и не работает?

[Hugo121]

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

Строка нужна не сама по себе
Из заданного диапазона планируется создать текстовый файл с разделителями.
Без Application.Transpose, единственное, что могу придумать для использования Join():

Dim arr
arr = [a1:a3].Value

ReDim arr2(1 To UBound(arr))

For i = 1 To UBound(arr)
    arr2(i) = arr(i, 1)
Next i

Debug.Print Join(arr2, ", ")

Извратно как-то все это...

Стоит задача обязательно использовать Join?

[Debauchee]

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

Интересная формулировка
Ну уж какой есть. А как было бы удобнее?

Вестимо, удобнее в РНР: var_dump() или print_r()
Получается наглядно и привычнее, можно сразу сохранить в файл или распечатать.

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

Ну если нужно создать текстовый файл - то можно сразу в файл и писать, перебирая массив. Смотря как будете файл создавать.
А чем не угодило транспонирование? Миллион строк и долго и не работает?

Все дело в том, что хотел обработать элементы одномерного массива в цикле, заменяя одни символы, удаляя другие через вызовы нескольких функций.
Строк, конечно, не миллион, но несколько тысяч...