为什么trim去不掉空格

YZC51

Application.trim(xxxx)

凌空一羽

ahnyt 发表于 2018-6-14 08:09
方便的话，加我Q吧，现在只有一个数据

全部数据一样的，都是一个阅卡器读出来的数据。我只需要去掉数据尾后来的空格即可。
我自己的办法是用right最后一位再用asc判断为0的话，就用left+len来获取。之前使用trim
replace都不行。所以就发贴求助下，为什么VBA里这2个函数不起作用，还是这个形似空格
的东西是不是真空格，还是什么东西来的。

huang1314wei

凌空一羽 发表于 2018-6-14 07:42
公式直接用trim()就行了。我是说在VBA下trim不起作用
Replace也不行

纠正你一下，之所以Trim没用，是因为那个你看不见的字符它不是一个空格，不是所有你看不见的字符都是空格
用以下代码即可  

Sub jjj()
mz = Trim(Application.Clean([e2]))
Debug.Print Len(mz)
End Sub

huang1314wei

用以下代码检测那个不可见字符是个空字符（null),ascii码是0

Sub jjj()
mz = Right([E2], 1)
Debug.Print Asc(mz)
End Sub

知道它的Ascii码，用replace就简单了

Sub jjj()
mz = VBA.Replace([E2], Chr(0), "")
Debug.Print Len(mz)
End Sub

返回结果为1

凌空一羽

huang1314wei 发表于 2018-6-14 08:17
纠正你一下，之所以Trim没用，是因为那个你看不见的字符它不是一个空格，不是所有你看不见的字符都是空格 ...

可以可以可以

wolfmare

凌空一羽 发表于 2018-6-14 08:09
Sub klky()
Replace [c2], "　", ""
MsgBox Len([c2])

你源文件中有个类似楼上说的不可见的符号，而且很诡异。
你自己用MsgBox "[" & Sheet1.Cells(2, 5) & "]" 读一下。