перевод столбца из 500 номеров в строку

[joni99]

нужно перевести 500 телефонных номеров из столбца в строку формата doc с разделением " ; " точка запятая. кто знает как отпишитесь. рыл рыл нет и ничего не нашел .

[joni99]

забыл написать что столбец ексель . Сори

[doober]

Отписуюсь.Если макросом.Копируется столбец.вставляется в Ворд.Замена VBCRLF на ;
Самому файлик составлять неохота

[alyon_ka]

вот код, который скопирует выделенные ячейки (будь то столбец или строка в Екселе) в текстовый файл с разделением ";". Файл сохранится в том же месте что и файл с макросом. Т.е. копируете этот код в модуль любой екселевской книги, выделяете в нужной книге ячейки, запускаете макрос на выполнение, в результате появится текстовый файл "Телефонные номера.txt" с номерами в строку и с разделителем ";", а с него уже хоть в ворд, хоть куда

Sub main()
    For Each Z In Selection
            stroka = Z & ";" & stroka
    Next Z
        If stroka <> "" Then
            path_f = ThisWorkbook.Path
            FName = "Телефонные номера.txt"
            file_name = path_f & "\" & FName
            Open file_name For Append As #2
                    Print #2, stroka
            Close #2
        End If
End Sub