如何写语句去掉A列中的不可见字符

autumnalRain

附件是从其它系统导入到EXCEL中的数据，请问为什么，在EXCEL中明明没有空格，但却和真正输进去没有空格的另一列比较是不同的？如何用语句使隐藏的字符去掉，使两列相同？

补充内容 (2016-1-21 12:25):
参考求助贴
http://club.excelhome.net/forum. ... p;page=2#pid8529601

小花鹿

末尾有一个9号字符

小花鹿

ASCII值为8、9、10 和13 分别转换为退格、制表、换行和回车字符。它们并没有特定的图形显示，但会依不同的应用程序，而对文本显示有不同的影响。

autumnalRain

小花鹿 发表于 2015-11-21 13:05
ASCII值为8、9、10 和13 分别转换为退格、制表、换行和回车字符。它们并没有特定的图形显示，但会依不同的 ...

如何用代码去掉，和C列一样呢？这是我试着解答一位坛友的问题时碰到的，他的原数据不知从什么系统导入到EXCEL中的，我来回调试代码都不对。后来发现这个问题，我在文本文件中，把这些空格全部替换为空为，再贴到EXCEL中可以了。但是代码去掉不会，请老师指导！

gxl19870625

尝试下clean和trim

autumnalRain

我试了CLEAN可以,TRIM不行

补充内容 (2016-2-1 08:22):
Str1 = replace(replace(replace(replace(arr(1,2),chr(9),""),chr(34),""),chr(39),""),chr(32),"")

补充内容 (2016-2-1 08:23):
Str1 = replace(replace(replace(replace(arr(1,2),chr(9),""),chr(34),""),chr(39),""),chr(32),"")

小花鹿

autumnalRain 发表于 2015-11-21 13:08
如何用代码去掉，和C列一样呢？这是我试着解答一位坛友的问题时碰到的，他的原数据不知从什么系统导入到E ...

Replace(s, Chr(9), "")

autumnalRain

1、代码值(用CODE函数得到)在1-255范围内的字符中,有1-15,28-32,127-254共148个不可见字符。

2、其中代码值小于等于31的(含16-27的可见字符)及代码值等于128的字符均可用CLEAN(A1)函数清除。

3、代码值等于32及129-254的不可见字符,均可用SUBSTITUTE(A1,CHAR(32),"")函数清除，这类字符如果在字符串两端可用TRIM函数清除。

4、代码值等于127的不可见字符只可以用SUBSTITUTE(A1,CHAR(127),"")函数清除。

5、同时使用两个函数,基本上可清除代码值小于255的所有不可见字符(含代码值为16-27的可见字符):
SUBSTITUTE(SUBSTITUTE(CLEAN(A1),CHAR(32),""),CHAR(127),"")

autumnalRain

小花鹿 发表于 2015-11-21 13:20
Replace(s, Chr(9), "")

可以了，感谢！

1. Sub TEST()
   
2. [A1:A6].Replace Chr(9), ""
   
3. End Sub

复制代码

袁振涛

我看了下excel中1-255号不可见的字符为1 9 10 13 28-32 127-254
我想用正则一次性替换
  Dim oRegText, oValue As String
    Set oRegex = CreateObject("Vbscript.Regexp")
        oRegex.Global = True
        oRegex.Pattern = "[\u0001\u0009\u000a\u000d\u001c-\u0020\u007f-\u00fe]"
       For i = 1 To Sheets("sheet1").Range("A1").CurrentRegion.Rows.Count
       Worksheets("sheet1").Cells(i, "E").Value = oRegex.Replace(Worksheets("sheet1").Cells(i, "B").Value, "")
    Next
等待大家的反馈