一个无法使用的自定义函数

weiyingde

作用：提取括号（中英文中小括号）外的汉字
代码：
Function 去括号(rng As Range, num As Integer)
Dim sr As String
Set rng1 = rng
Select Case num
       Case 1: sr = "【*】"
       Case 2: sr = "[*]"
       Case 3: sr = "（*）"
       Case 4: sr = "(*)"
End Select
去括号 = rng1.Replace(What:=sr, Replacement:="")
End Function
怎样对代码修改能达到要求？

liulang0808

代码见截图，供参考

weiyingde

liulang0808 发表于 2019-2-25 20:28
代码见截图，供参考

先谢谢，在测试。

weiyingde

weiyingde 发表于 2019-2-25 21:17
先谢谢，在测试。

刘先生不愧为正则高手，学习了。

weiyingde

再优化一下，增强其通用性。
代码如下：
Function KillBrace(rng As Range, num As Integer)
Dim sr As String
With CreateObject("Vbscript.regexp")
    Select Case num
          Case 1: sr = "{.*?}"
          Case 2: sr = "【.*?】"
          Case 3: sr = "\[.*?\]"
          Case 4: sr = "\（.*?\）"
          Case 5: sr = "\(.*?\)"
          Case 6: sr = "<.*?>"
          Case 7: sr = "《.*?》"
          Case 8: sr = "{.*?}|【.*?】|\[.*?\]|\（.*?\）|\(.*?\)|<.*?>|《.*?》"
   End Select
   .Pattern = sr
   .Global = True
   KillBrace = .Replace(rng.Value, "")
End With
End Function