清除字符串中的回车换行符

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

 

'检测地址中是否有回车换行  
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  

 

'检测地址中是否有回车换行  
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  

 

 

 

 

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

 

 

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

http://www.bkjia.com/VBjc/621021.htmlwww.bkjia.comtruehttp://www.bkjia.com/VBjc/621021.htmlTechArticle如题,实际应用中,客户输入的地址中含有回车换行,导致格式转换中出错,因此需要清除掉,方法有二:
1、替换,这个方法只能清除一个…