Не представляю как решить...

[alejandro_v]

Доброго времени суток.
Есть проблема:
Для заливки в базу используется файл. csv, изначально в котором число из 13 знаков отображается как 8,03E+12, приходится вручную выставлять текстовый формат, нажимать F2 и Enter, чтобы получилось 8033729465473. Иногда список довольно большой и проклацивать каждую ячейку довольно утомительно. Есть ли возможность автоматизировать этот процесс или создать макрос?
Очень надеюсь на помощь.

[gling]

где то видел такой вариант в дополнительном столбце ="'"&(ячейка с значением)

[alejandro_v]

Чтобы было более понятно:
изначально вводим данные в файл формата .xls (скрин 1).
Сохраняем в формате csv и после открытия видим подобное (скрин 2).
Выставляем формат ячеек текстовый. клацаем F2 и Enter, чтобы получилось так - скрин 3.

[VictorM]

изначально вводим данные в файл формата .xls (скрин 1).

Сохраняем в формате csv и после открытия видим подобное (скрин 2).

Выставляем формат ячеек текстовый. клацаем F2 и Enter, чтобы получилось так - скрин 3.

Вы бы лучше вместо всех этих скринов Excel файл-пример выложили.
мы здесь больше привыкли с таким форматом работать, а не с картинками.

[VictorM]

по теме

приходится вручную выставлять текстовый формат, нажимать F2 и Enter, чтобы получилось 8033729465473.

Макрос не пробовали записать?
Макрорекордером

[Step_UA]

Доброго

Sub toNum()
  Const Col = 1 ' номер столбца
  Dim Mas(), Row As Long, CountRow As Long
    CountRow = Cells(Rows.Count, Col).End(xlUp).Row
    Mas = Cells(1, Col).Resize(CountRow).Value
    For Row = 1 To CountRow
        If Not IsEmpty(Mas(Row, 1)) Then Mas(Row, 1) = "'" & Mas(Row, 1)
    Next
    Cells(1, Col).Resize(CountRow).Value = Mas
End Sub

выставлять текстовый формат вовсе не обязательно

[alejandro_v]

Вот примеры файлов (убрал ненужную инфо).

[alejandro_v]

Step_UA,
я так понимаю, что в этом коде мне нужно выставить (вместо 1) интересующий меня столбец?

[alejandro_v]

вот, прикрепил...

[Step_UA]

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

Step_UA,
я так понимаю, что в этом коде мне нужно выставить (вместо 1) интересующий меня столбец?

совершенно верно, или

dim Col as integer ' взамен Const Col=1
Col=ActiveCell.Column ' для столбца с активной ячейкой