|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
不明字符为Unicode字符,其代码点为 \uE63F
- Sub main()
- Dim js As Object, r&, a, i&
- Set js = CreateObject("MSScriptControl.ScriptControl")
- js.Language = "JavaScript"
- js.AddCode "var r=/''/;r.compile(/[\s\u3000\xA0\uD7A4-\uF8FF]+$/);"
- a = Sheet2.Range("a1:a" & Sheet2.Cells(Sheet2.Rows.Count, 1).End(3).Row)
- For i = 1 To UBound(a)
- a(i, 1) = js.eval("'" & a(i, 1) & "'.replace(r,'');")
- Next
- Sheet2.Range("a1:a" & Sheet2.Cells(Sheet2.Rows.Count, 1).End(3).Row) = a
- MsgBox "OK!"
- End Sub
复制代码
|
|