如题,实际应用中,客户输入的地址中含有回车换行,导致格式转换中出错,因此需要清除掉,方法有二:
 
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