vba 正则表达式

2279541549 · 发表于 2019-10-31 18:36

红尖椒1(张三)+5(李四)长豆角0.5(王二)西红柿6(麻子)

想把上面的括号和括号里的内容一起删掉，把 (*)，替换为""空。用什么方法？请各位大神赐教！谢谢！

chxw68 · 发表于 2019-10-31 18:42

Sub test()
Dim reg As New RegExp
With reg
.Global = True
.Pattern = "\([^\)]*\)"
ss = .Replace("红尖椒1(张三)+5(李四)长豆角0.5(王二)西红柿6(麻子)", "")
End With
End Sub

复制代码

2279541549 · 发表于 2019-10-31 18:55

感谢帮助！

liulang0808 · 发表于 2019-10-31 19:02

Sub xxx()

With CreateObject("vbscript.regexp")
.Global = True
.Pattern = "\(.*?\)"
ss = .Replace("红尖椒1(张三)+5(李四)长豆角0.5(王二)西红柿6(麻子)", "")
End With

End Sub

wang-way · 发表于 2024-8-7 22:09

rysxing · 发表于 2024-8-7 22:57

str.replace(/\([\s\S]*?\)/g,'')

复制代码

demonimissyou · 发表于 2024-8-8 15:57

虽然可以用正则，但是excel里面的替换更快

		自动登录	找回密码
密码			免费注册

[求助] vba 正则表达式

评分