如果后面的某某公司是固定的,可以直接 replace(字串,"某某公司","")如果后面的中文不是固定的,就这样:function delCN(ms) Dim objRegEx, Match, Matches Set objRegEx = New RegExp objRegEx.Pattern = "[\u4E00-\u9FA5]+" objRegEx.Global = True Set Matches = objRegEx.Execute(ms) myReplace=objRegEx.replace(ms,"") Set Matches = Nothing Set objRegE...
|