Excel VBA изменить значение

Question

У меня есть лист Excel, где указаны номера телефонов в международном формате (00358xxxxxxx)

и мне нужно заменить 00358 на 0

Мне удалось удалить этот 00358, но я потерял ведущий 0 из номера телефона.

Все ячейки текстовые

Worksheets ( "Лист1") Range ( "A: B").. Выберите Selection.NumberFormat = "@"

Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant

fnd = "00358"
rplc = "0"

For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace what:=fnd, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
Next sht

Answer 1

Я думаю, вы можете использовать:

rplc = "'0"

Удачи.