实际应用场景中，客户输入的地址中含有回车换行，导致格式转换中出错，因此需要清除掉，方法有二：
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
想了解更多编程语言教程集合可登陆e良师益友网。