我想剥离/清除除CHAR（015）以外的所有内容的单元格，但是ASCII控制字符不能SUBSTITUTE（）out

我正在寻找一个文本string，并删除除了回车符和普通文本（所以其他控制字符，空格，项目符号点和其他几个垃圾）的一切。 然而

CLEAN(A1) 

剥下回车也。

我试过一个嵌套的string

  SUBSTITUTE(A1, CHAR(000), "") SUBSTITUTE(A1, CHAR(001), "") 

等等

但它保持默认

  SUBSTITUTE(A1, CHAR(0), "") SUBSTITUTE(A1, CHAR(1), "") 

并给我一个错误。 任何帮助？

在VBA中不是很有经验，虽然我可以通过一些Google搜集一些基本知识。

Answer 1

假设你想删除：

• ASCII字符0到9
• ASCII字符11和12
• ASCII字符14到32
• ASCII字符127到255

然后考虑以下用户定义的function：

 Public Function JunkKiller(S As String) As String Dim temp As String, a ary = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 253, 254, 255) temp = S For Each a In ary temp = Replace(temp, Chr(a), "") Next a JunkKiller = temp End Function 

这将保留ASCII-10和ASCII-13，如果你还想保留空格字符，只需从Array()语句中删除32 。

用户定义的函数（UDF）非常易于安装和使用：

1. ALT-F11调出VBE窗口
2. ALT-I ALT-M打开一个新的模块
3. 粘贴东西，closuresVBE窗口

如果保存工作簿，则UDF将随之保存。 如果您在2003年以后使用的是Excel版本，则必须将该文件另存为.xlsm而不是.xlsx

要删除UDF：

1. 如上所示调出VBE窗口
2. 清除代码
3. closuresVBE窗口

从Excel中使用UDF：

 =JunkKiller(A1) 

要了解有关macros的更多信息，请参阅：

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关UDF的具体信息，请参阅：

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

macros必须启用这个工作！

Answer 2

回车符是Char(13) ，它是八进制的015。 但是你可能也想要Char(10)这是线返回。

嵌套的替代品确实有用，但很笨拙：

 =...Substitute(Substitute(Substitute(A1,Char(1),""),Char(2),""),Char(3),"")... 

您需要将Char(1)replace为Char(31)省略Char(10)和Char(13) 。

更好的方法可能是使用\n行代码和\r回车代码：

1. 用Char(10)代替\n
2. 用Char(13)代替\r
3. Clean剩下的东西
4. 用Char(10)replace\n Char(10)
5. 用Char(13)replace\r Char(13)

如果你的input包含\n或\r ，这显然会失败。

 =SUBSTITUTE(SUBSTITUTE(CLEAN(SUBSTITUTE(SUBSTITUTE(B1,CHAR(13),"\r"),CHAR(10),"\n")),"\r",CHAR(13)),"\n",CHAR(10)) 

在那里，只有4个Substitutes而不是29！