преобразовать числа в текст

[Jaroslav]

Добрый день. Мне нужно программно преобразовать числа в текст (результат находится в столбцах D и E). Числа, которые нужно преобразовать, находятся в столбцах A и B. Делаю так:

Aost = Columns("A").Rows(65536).End(xlUp).Row
For k = Aost To 2 Step -1
    Cells(k, 1) = WorksheetFunction.Text(Cells(k, 1), 0)
    Cells(k, 2) = WorksheetFunction.Text(Cells(k, 2), 0)
Next

Но, к сожалению, результата нет. Подскажите, пожалуйста, какие еще есть варианты

[Jaroslav]

Вот ответ: сначала нужно преобразовать числа в текстовый формат

Range("A2").CurrentRegion.NumberFormat = "@"

а потом применить мой код:

Aost = Columns("A").Rows(65536).End(xlUp).Row
For k = Aost To 2 Step -1
    Cells(k, 1) = WorksheetFunction.Text(Cells(k, 1), 0)
    Cells(k, 2) = WorksheetFunction.Text(Cells(k, 2), 0)
Next

[Pavlov_yu]

Sub test()
Worksheets(1).Cells(3, 7).Value = CStr(Worksheets(1).Cells(3, 1).Value)
End Sub
процедура преобразования числа из ячейки А3( Cells(3, 1) ) в строку в ячейку G3( Cells(3, 7) ). преобразование в строку выполняет ф-ия CStr().