去不明字符

dragonthree

去除后面的不明字符

jiminyanyan

clean函数不行？

dragonthree

TRIM,CLEAN都不行

活在理想的世界

用这玩意儿匹配一下算了。[.0-9]+

Sub d()
Dim R, M, arr()
Set R = CreateObject("VBScript.RegExp")
R.Global = 1: R.Pattern = "[.0-9]+"
arr = Sheet2.Range("a1").CurrentRegion.Resize(, 2)
For i = 1 To UBound(arr)
    Set M = R.Execute(arr(i, 1)): arr(i, 2) = M.Item(0)
Next
Range("a1").CurrentRegion.Resize(, 2) = arr
End Sub

dragonthree

活在理想的世界 发表于 2018-6-23 16:01
用这玩意儿匹配一下算了。[.0-9]+

调用正则？它究竟是个什么东东？

活在理想的世界

dragonthree 发表于 2018-6-23 16:06
调用正则？它究竟是个什么东东？

1. Sub d()
   
2. Dim R, M, arr()
   
3. Set R = CreateObject("VBScript.RegExp")
   
4. R.Global = 1: R.Pattern = "[.0-9]+"
   
5. arr = Sheet2.Range("a1").CurrentRegion.Resize(, 2)
   
6. For i = 1 To UBound(arr)
   
7.     Set M = R.Execute(arr(i, 1)): arr(i, 2) = M.Item(0)
   
8. Next
   
9. Range("a1").CurrentRegion.Resize(, 2) = arr
   
10. End Sub

复制代码

dragonthree

活在理想的世界 发表于 2018-6-23 16:06

谢谢，其实也可复制后面的不明字符，然后替换为空。不过我要的不仅仅是结果，你用正则，但如果是汉字，数字什么的都有，怎么办？

活在理想的世界

dragonthree 发表于 2018-6-23 16:40
谢谢，其实也可复制后面的不明字符，然后替换为空。不过我要的不仅仅是结果，你用正则，但如果是汉字，数 ...

用\s+，\r,\n都匹配不出来

如果都有是这样的[.一-龥A-Za-z0-9]

duquancai

dragonthree 发表于 2018-6-23 16:06
调用正则？它究竟是个什么东东？

不明字符为Unicode字符，其代码点为  \uE63F

1. Sub main()
   
2.     Dim js As Object, r&, a, i&
   
3.     Set js = CreateObject("MSScriptControl.ScriptControl")
   
4.     js.Language = "JavaScript"
   
5.     js.AddCode "var r=/''/;r.compile(/[\s\u3000\xA0\uD7A4-\uF8FF]+$/);"
   
6.     a = Sheet2.Range("a1:a" & Sheet2.Cells(Sheet2.Rows.Count, 1).End(3).Row)
   
7.     For i = 1 To UBound(a)
   
8.         a(i, 1) = js.eval("'" & a(i, 1) & "'.replace(r,'');")
   
9.     Next
   
10.     Sheet2.Range("a1:a" & Sheet2.Cells(Sheet2.Rows.Count, 1).End(3).Row) = a
    
11.     MsgBox "OK!"
    
12. End Sub

复制代码

活在理想的世界

.是：点
汉子：一-龥
数字是：0-9
字母是:A-Za-z
[]是限定符或的意思。

这是元字符的用法了。