Получить число как текст

[capture]

http://www.planetaexcel.ru/forum.php...m=8#post304013
на этом ресурсе также пытаемся решить текущую проблему

[capture]

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

За кусок в пару строк с нулями и спецкодом для примера не посядят.
Хотя конечно если данные вообще нельзя пересылать - тогда да...
Мне дома не получилось смоделировать ситуацию - как не бился, нули оставались


P.S. Как это пусто? Не может быть - если в А1 что-то есть, то должно быть и в переменной.

Вот файл из которого я пытаюсь получить данные из колонки 5. Лишние данные удалены или заменены.
Проблема в том, что формат ячейки стоит "General", но на деле мы видим его как "Text". В "General" он преобразовывается при получении данных из ячейки. Собственно поэтому нули и пропадают..

[Hugo121]

Ну и где пусто?

Sub tt()
    Dim s$
    s = [e3]
    MsgBox s
End Sub

И даже так - в массиве текст с нулями, делайте с ним что хотите:

Sub ttt()
Dim a()
a = UsedRange.Value
End Sub

[capture]

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

Ну и где пусто?

Sub tt()
    Dim s$
    s = [e3]
    MsgBox s
End Sub

проверил, работает. а как такой же метод использовать в цикле, где вместо номера строки у меня "i"? ведь мне нужно именно в цикле данные вытягивать..

[IgorGO]

s = cells(i, 5)

[Hugo121]

Что-то вроде так. На массиве быстро.

Sub tt()
    Dim a(), i&, s$
    a = UsedRange.Value
    For i = 1 To UBound(a)
        s = a(i, 5)
        MsgBox s
    Next
End Sub

[capture]

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

Что-то вроде так. На массиве быстро.

Sub tt()
    Dim a(), i&, s$
    a = UsedRange.Value
    For i = 1 To UBound(a)
        s = a(i, 5)
        MsgBox s
    Next
End Sub

спасибо, проблема решена.