Макрос замены цифр

[m0pmuk]

Всем привет.
Возникла проблема при создании макроса, сам я в VBA не особо соображаю потому прошу о помощи.
Нужно создать макрос заменяющий столбец цифр на другие цифры. к примеру 059663 менял на 0011 и при последующем нахождении в столбце цифры 059663 тоже менял на 0011.
прилагаю файл со своими стараниями

[Казанский]

Удобнее использовать команду "найти и заменить" (Ctrl+H), запишите ее в макрос.

[PavelTitov]

Sub Найти_Заменить()
'
' Найти_Заменить Макрос
'
'
Cells.Replace What:="059663", Replacement:="0011", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

[m0pmuk]

проблема в том что заменяемых цифр около 50 и через Ctrl+H как то не практично получится, т.к. он ищет по одной цифре (
PavelTitov с Вашим макросом проблемка возникла, нужно что бы нули перед числом сохронялись, а при смене формата ячейки на текстовый число 059663 он находит но менят на 11, а не 0011