Question

用excel vba 正则表达式删除字符串中的可能多余词汇如"合计",但字符串中

用excel vba 正则表达式删除字符串中的可能多余词汇如"合计",但字符串中仅有该词汇时不删。
本来用pattern
"(?<=.)合计|合计(?=.)"
是满足要求的,但vba不支持前向零宽断言,所以如"abc合计"这类不能按要求转换为"abc"。
请高人指点可有解决方法?

Answer 1

软件版本：Office2007
方法如下：
1.利用正则表达式，提取A列的数字，并对数字求和：

2.Alt+F11，输入代码如下：

3.F5执行代码，返回Excel，得到结果：

Answer 2

加个 if判断一下不行吗？

追问

用if要考虑很多不同情形代码会很复杂,运行效率低

追答

"(合计([^$])|([^^])合计)" 然后用replace 替换为 “$2$3" 试试看

追问

源串 目标串
abc合计 abc
合计abc abc
abc合计def abcdef
合计 合计
abc其他def abc其他def

追答

"(合计(?=[^$])|([^^])合计)" 然后用replace 替换为 “$2" 这样也行，连续的合计无法被剔除，其他情况应该没问题

追问

终于搞定,分2次替换
先用"合计(?=.)"替换为"";
再用"((.)合计)" 替换为"$2"。
总结:
vba不支持的"(?=exp)target" replace（s,""）可以变通的用 ((exp)target) replace(s,"$2")来实现对target的删除。
答主的方法会出null,但方法给了我启发,分还是给你吧.