删除文本中的空格和非打印字符

雨落空巷

灰常实用，楼主有心，收了！

[ 本帖最后由 雨落空巷 于 2010-4-11 14:27 编辑 ]

lhx120824

几乎无所不能，论坛中人才济济。

chinaksj

帮了我一个大忙，我利用楼主的理论，写了一个Excel中删除所有非打印字符的函数共勉。
Function Clean_A(ByVal sContent As String) As String
    Dim i As Integer
    Dim sTmp As String
    sTmp = sContent
    For i = 1 To 31
        sTmp = Replace(sTmp, Chr(i), Chr(32))
    Next i
    sTmp = Replace(sTmp, Chr(127), Chr(32))  '（值为127、129、141、143、144和157）。
  sTmp = Replace(sTmp, Chr(129), Chr(32))
    sTmp = Replace(sTmp, Chr(141), Chr(32))
    sTmp = Replace(sTmp, Chr(143), Chr(32))
    sTmp = Replace(sTmp, Chr(144), Chr(32))
    sTmp = Replace(sTmp, Chr(157), Chr(32))
    sTmp = Replace(sTmp, Chr(160), Chr(32))
    Clean_A = Trim(sTmp)
End Function

marry1986919

麻烦删除下我这个表格里面的空格，最后进行求和

wuhanhan

用数据－分列－分隔符号，查找替换很容易处理

Excel_小虾米

收藏收藏，好东西一定要收藏，感谢楼主

bbs123007

好东西一定要收藏，感谢楼主

Wangqisong

非常有用，谢谢楼主呀

wsq19860128

专业，牛x，值得学习

guoybb

总结的不错，对空格及不名字符特别头疼