去除中括号内字符

JSXYGSHN

请各位帮忙，如何去除：8.2[长]*(0.2[厚]+0.03*2[抹灰])*1.8[高]中[]及内含的字符，使之为：8.2*(0.2+0.03*2)*1.8

zhongchangliang

Range("A1").Replace What:="[*]", Replacement:="", LookAt:=xlPart

Ctrl + F  查找替换即可

JSXYGSHN

谢谢，调试成功

JSXYGSHN

zhongchangliang 发表于 2016-1-3 11:28
Range("A1").Replace What:="

", Replacement:="", LookAt:=xlPart

Ctrl + F  查找替换即可

使用正则表达式要怎么写代码呢？

chxw68

供参考。

1. Sub test()
   
2.   Dim reg As New RegExp
   
3.   s = "8.2[长]*(0.2[厚]+0.03*2[抹灰])*1.8[高]"
   
4.   With reg
   
5.     .Global = True
   
6.     .Pattern = "\[.*?\]"
   
7.   End With
   
8.   aa = reg.Replace(s, "")
   
9. End Sub
   

复制代码

JSXYGSHN

chxw68 发表于 2016-1-3 19:10
供参考。

谢谢，谢谢，十分感谢