Excel VBA用函数替换但留下数字

Question

我想用 +XX (XX) XXX XX XX 格式的相同号码替换 +XX-XX-XXX XX XX 格式的电话号码。我有一个几乎可以工作的查找/替换 makro:

        Cells.Find(What:="+??-??-", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Cells.Replace What:="+??-??-", Replacement:="+?? (??) ", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

现在的问题是数字以这种格式显示:+?? (??) XXX XX XX。
VBA中有没有办法说我想用这种格式替换它，但保留这些空格(+XX和(XX)原样？因为我这样做的方式只是用我在替换中定义的完全替换所有内容: .
或者也许有一种方法可以暂时将数字保存在 ??通配符是并将它们重新添加到 Replacement: 部分？
如果有人可以帮助菜鸟，那就太酷了

Answer 1

请尝试这种方式:

 Dim x As String, y As String, ar As Variant
  x = "+XX-XX-XXX XX XX"
  ar = Split(x, "-")
  y = ar(0) & " (" & ar(1) & ") " & ar(2)
  MsgBox y