Apparently, the trim function only trims spaces. I need a function that trims all non-printing characters.
My code...
Private Sub CleanUpData()
LastRow = Application.CountA(ActiveSheet.Range("A:A"))
For CurrentRow = 2 To LastRow
Cells(CurrentRow, 1) = Trim(Cells(CurrentRow, 1))
Cells(CurrentRow, 2) = Trim(Cells(CurrentRow, 2))
Cells(CurrentRow, 3) = Trim(Cells(CurrentRow, 3))
Cells(CurrentRow, 4) = Trim(Cells(CurrentRow, 4))
Next CurrentRow
End Sub
...does nothing. :(
Help!
以上就是Excel VBA Trim function的详细内容,更多请关注web前端其它相关文章!