Добрый день!
Я пользуюсь этим макросом:
Я пользуюсь этим макросом:
Код |
---|
Sub ToTextFormat() Dim MyCell As Range For Each MyCell In Selection MyCell.NumberFormat = "@" Код = LTrim(RTrim(CStr(MyCell.Value))) MyCell.Value = Код Next MyCell End Sub |