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