Excel正则表达式Replace（）数字

Question

我的列中有数千个单元格，所有单元格的电话号码都格式为

Answer 1

你不需要正则表达式。如果您的数据位于 A 列中且由常量（非公式）组成，则：

Sub NoRegex()
    Dim r As Range

    Set r = Columns(1).SpecialCells(2)

    r.Replace what:="(", replacement:=""
    r.Replace what:=")", replacement:="-"
End Sub