Trim函数未达到预期

sucx007

char(63)这个字符比较特殊
unicode的代码值在1-255范围内的unichar结果，用code获取代码值的结果为63的有76个之多！
其中唯一完全不可见(肉眼)的就是unichar(160)

1. http://club.excelhome.net/thread-1110465-4-1.html

复制代码

梦幻小丑

wenbo228228 发表于 2018-3-11 09:11
哥们，你这个方法可以。
但是63对应是？，而这些字符串里面都没有？，你这个公式是什么意思呢？

我只判断最后一个字符是不可见字符，我就取出来替换掉，不是的话就不取。我用CODE返回不可见字符的字码就是63.我就用63来判断。

梦幻小丑

wenbo228228 发表于 2018-3-11 09:11
哥们，你这个方法可以。
但是63对应是？，而这些字符串里面都没有？，你这个公式是什么意思呢？

我只判断最后一个字符是不可见字符，我就取出来替换掉，不是的话就不取。我用CODE返回不可见字符的字码就是63.我就用63来判断。

wenbo228228

梦幻小丑 发表于 2018-3-11 10:45
我只判断最后一个字符是不可见字符，我就取出来替换掉，不是的话就不取。我用CODE返回不可见字符的字码就 ...

喔，借鉴你的思路，我发现另外一个方法：
=SUBSTITUTE(A1,RIGHT(A1),)

wenbo228228

sucx007 发表于 2018-3-11 09:31
char(63)这个字符比较特殊
unicode的代码值在1-255范围内的unichar结果，用code获取代码值的结果为63的有7 ...

这玩意儿，有点诡异！！！

梦幻小丑

wenbo228228 发表于 2018-3-11 11:50
喔，借鉴你的思路，我发现另外一个方法：
=SUBSTITUTE(A1,RIGHT(A1),)

有的最后不是不可见字符的。

wenbo228228

梦幻小丑 发表于 2018-3-11 11:53
有的最后不是不可见字符的。

额，是的，没注意到。

boom1188

wenbo228228 发表于 2018-3-11 11:50
喔，借鉴你的思路，我发现另外一个方法：
=SUBSTITUTE(A1,RIGHT(A1),)

想了想, 当我没说,

kuangben8

1. =TRIM(SUBSTITUTE(A1,RIGHT(A1),))

复制代码

工作簿1.zip (7.05 KB, 下载次数: 3)

2018-3-11 21:24 上传

点击文件名下载附件

tcdatongye

1. Sub 替换()
   
2. Set reg = CreateObject("vbscript.regexp")
   
3. With reg
   
4.   .Global = True
   
5.   .Pattern = ".*?(\w+).*"
   
6.   For i = 1 To 10
   
7.     k = Sheets(1).Cells(i, 1)
   
8.     Sheets(1).Cells(i, 3) = .Replace(k, "$1")
   
9.   Next i
   
10. End With
    
11. Set reg = Nothing
    
12. End Sub
    

复制代码