Replace will remove all identified characters.
Try this
Code:
Sub xspace()
'chr(10) new line LF
'chr(13) carriage return
Dim x As String: x = "a" & "a" & Chr(13) & Chr(10) & " 2017ghjkl plkjhgfd" & Chr(13) & Chr(10) & "axxx"
x = Replace(x, "a", "")
Debug.Print "1 " & x
x = Replace(x, Chr(13) & Chr(10), "")
Debug.Print "2 " & x
x = Replace(x, " ", "")
Debug.Print "3 " & x
End Sub
Results:
Code:
1
2017ghjkl plkjhgfd
xxx
2 2017ghjkl plkjhgfdxxx
3 2017ghjklplkjhgfdxxx
To do multiple replaces (different criteria)
Code:
Sub yspace()
'chr(10) new line LF
'chr(13) carriage return
Dim x As String: x = "a" & "a" & Chr(13) & Chr(10) & " 2017ghjkl plkjhgfd" & Chr(13) & Chr(10) & "axxx"
x = Replace(x, "a", "")
Debug.Print "1 " & x
x = Replace(Replace(x, "a", ""), Chr(13) & Chr(10), "")
Debug.Print "2 " & x
x = Replace(Replace(Replace(x, "a", ""), Chr(13) & Chr(10), ""), " ", "") '<<++++++
Debug.Print "3 " & x
End Sub
Result:
Code:
1
2017ghjkl plkjhgfd
xxx
2 2017ghjkl plkjhgfdxxx
3 2017ghjklplkjhgfdxxx <=====All criteria used in #3 here