如何用正则表达式实现智能替换！！！

alzeng

1. 
   
2. Sub NwPrct()
   
3.     Dim Oj As Object, rng As Range
   
4. 
   
5.     Set Oj = CreateObject("ScriptControl"): Oj.Language = "JScript"
   
6.     Oj.Eval "function reg(str,s){return str.replace(/[\d.]{3,}.+/,s)}"
   
7. 
   
8.     For Each rng In Range("A2", [A1].End(4))
   
9.         If Len(rng(1, 2)) Then rng = Oj.Codeobject.reg(rng.Value, "01.018---" & rng(1, 2))
   
10.     Next
    
11. End Sub
    

复制代码

先行者

http://club.excelhome.net/viewth ... xtra=&page=1###
就是新产品前面的编号也是固定的（下面红色部分）
部门---99---公司---公司||产品---01.018---新产品

figfig

正确的结果应该如何?请示例

先行者

谢谢figfig大侠的回复，请见重新上传的工作簿，谢谢！

figfig

结果跟答案一样啊,哪里不对?

先行者

就是新产品前面的编号也是固定的（下面红色部分）
部门---99---公司---公司||产品---01.018---新产品
新产品字符前面的“---01.018---”是固定的，不是原来的，谢谢大师再看一下！

figfig

你用的是10楼的代码吗? 就是固定的

先行者

谢谢figfig大侠，我明白了！

gehairong2008

我还不太明白,无救了,我得加油了!!