【VBA研究】清除字符串中的回车换行符

作者：iamlaosong

 如题，实际应用中，客户输入的地址中含有回车换行，导致格式转换中出错，因此需要清除掉，方法有二：

1、替换，这个方法只能清除一个回车换行

	'检测地址中是否有回车换行
	addr = Cells(row1, 12)
	If InStr(1, addr, Chr(10), vbBinaryCompare) > 0 Then
	    MsgBox addr
	    addr = Replace(addr, Chr(10), "", , , vbBinaryCompare)
	    addr = Replace(addr, Chr(13), "", , , vbBinaryCompare)
	    MsgBox addr
	    Cells(row1, 12) = addr
	End If

2、用系统函数，这个方法可以清除所有非打印字符

    '检测地址中是否有回车换行
    addr = Cells(row1, 12)
    If InStr(1, addr, Chr(10), vbBinaryCompare) > 0 Then
        MsgBox addr
        addr = Application.WorksheetFunction.Clean(addr)
        MsgBox addr
        Cells(row1, 12) = addr
    End If