说明:aa只是个例子而已,具体,你要使哪个单元格生效,则把其他单元格引用赋给aa就可以了。如果多的话,比如一行或者一列要处理,写个for语句,搞定。下面的语句你可以测试下 Sub figjs2()
aa = "EZ.0-中华004人民YH共和国"
Set x = CreateObject("scriptcontrol") x.Language = "javascript" x.eval "aa='" & aa & "'" x.eval "var reg=/[^\u4E00-\u9FA5\uf900-\ufa2d]/ig; var bb=aa.replace(reg,'');" y = x.eval("bb") MsgBox y