vba 读取linux换行符,【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