[Alex Dark]

Borland, быстрее всего автор хочет упростить работу и т.к. Ctrl+F ещё нажимать надо, а плюс ещё человеческий фактор ...


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

В принципе не вдаваясь в подробности и до безобразия тупо вот так

Sub Макрос2()
Dim CC As Integer, MyCol As Integer
Dim RR As Integer, MyRow As Integer
Dim MyCells
CC = 5 '  число строк
RR = 10  '  число столбцов

For MyCol = 1 To CC
For MyRow = 1 To RR

Set MyCells = Cells(MyRow, MyCol)
If MyCells.Formula = MyCells.Value And (Not IsEmpty(MyCells.Value)) Then
    ss = MyCells.Value
    If IsNumeric(Left(ss, 1)) Then
        Do While InStr(1, ss, " ")
            ss = Replace(ss, " ", "", 1)
        Loop
        MyCells.Value = ss
    End If
End If

Next
Next

End Sub

Посмотришь под отладчиком и всё поймёшь.
В ватчесы добавишь ss, MyCells.Formula и MyCells.Value



PS А что в сбербанке нет нормальной выгрузки??? Что то как то подозрительно. Они вместе с файлом для печати должны присылать файл выгрузки для автоматической обработки. Его и пользовать.