Bila anda mengimport data dari luar ke Excel, sering dijumpai data dengan spasi diantara huruf/angka sehingga perlu waktu untuk merapikannya. Menghapus spasi satu-persatu? Jangan ! Pergunakan program singkat yang sudah berfungsi sebagai function.

semoga bermanfaat
Public Function RemoveSpace(kata As String)
‘ Author : I Ketut Wiryadinata
‘ Program : menghilangkan spasi diantara huruf/angka
Lagi:
If InStr(kata, ” “) = 0 Then
RemoveSpace = kata
Exit Function
Else
kata = Left(kata, InStr(kata, ” “) – 1) & Right(kata, Len(kata) – InStr(kata, ” “))
GoTo Lagi ‘ ulangi proses sampai tidak ada lagi spasi dalam kata
End If
End Function
Cara memakai function RemoveSpace ini :

Misalnya anda memiliki data di cell A1 yang isinya : I n d o n e s i a, maka untuk menghapus spasi diantara huruf-huruf itu, tuliskan formula di cell B1 =RemoveSpace(A1). Otomatis di B1 akan tertulis Indonesia.

sumber : http://kw-vbaexcel.blogspot.com/2007/07/menghapus-spasi.html