Пропадают ведущии нули в Exel после запуска макроса

[Alexander Shurov]

Здравствуйте сообщники.

В общем проблема в следующем
После того как макросом убираю пробелы:
Cells.Replace What:=" ", Replacement:=" "
В исходном файле творится следущее:
000001308---->1308 (пропадают ведущии нули)
В общем, я сначала преобразовывал в тектовый формат ячейки, но все равно не помогает.

Интересует в чем суть, почему так происходит
И как исправить эту проблему.
Если одарите макросом, то осчастливите неимоверно.

UPD:
попробывал вместо заменить пробелы сжать пробелы. если делать это по формулам в ячеке то получается сжать без потери нулей.

Но когда запускаю макрос:
Sub сжать ()
Dim m As Range
For Each m In ActiveSheet.UsedRange.SpecialCells( xlCellTypeConstants)
m.Value = Trim(m)
Next
End Sub

Та же петрушка, нули исчезают.

Вопрос в том же почему? И как этого избежать.

[Serge 007]

Добавьте апостроф перед нулями:

Sub Alexander_Shurov()
Dim t As String
t = Range("a1").Value
    Range("a1").Value = "'" & Range("a1").Value
    Cells.Replace What:=" ", Replacement:=""
End Sub

[Казанский]

Вы, наверно, убираете пробелы, чтобы сделать текст числом?
Установите числовой формат ячеек 000000000

[Alexander Shurov]

Это не выход в данной ситуации, так в различных файлах формат "0000138" встречается наряду с десятичным форматом "2.138" случайным образом. А мне надо что бы и те и др. числа не изменяли своего вида.

[Alexander Shurov]

Сообщение от Serge 007

Добавьте апостроф перед нулями:

Sub Alexander_Shurov()
Dim t As String
t = Range("a1").Value
    Range("a1").Value = "'" & Range("a1").Value
    Cells.Replace What:=" ", Replacement:=""
End Sub

Попробывал, что то не работает. Т.е. не ставит апостроф впереди. Да и по сути это проблему не решит, так как хочется получить число в том виде которое есть.

[Serge 007]

Сообщение от Alexander Shurov

...что то не работает. Т.е. не ставит апостроф впереди.

А попробовать прежде чем писать?

Сообщение от Alexander Shurov

...это проблему не решит, так как хочется получить число в том виде которое есть.

В этом виде и получаете

[Alexander Shurov]

[QUOTE=Serge 007;1119634]А попробовать прежде чем писать?

Да, работает, спасибо, я протупил тогда просто, спешил к концу рабочего дня.