Excel VBA更改值

Question

我有 Excel 表格，其中有国际格式的电话号码 (00358xxxxxxx)

我需要用 0 替换那个 00358

我设法删除了那个 00358，但我丢失了电话号码中的前导 0。

所有单元格都是文本类型

Worksheets("Sheet1").Range("A:B").Select 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"

祝你好运。