MEMISAHKAN KATA MENJADI HURUP - EXCEL VBA

BELAJAR EXCEL VBA "CARA MUDAH MEMISAHKAN KATA MENJADI HURUP "

Pastekan kode berikut pada sebuah Modul

Sub Pisah_HURUP()
Baris = 2
For a = 2 To 23
    Kata = Replace(Cells(Baris, 1), " ", "")
    PISAH = Len(Kata)
    Kolom = 2
For i = 1 To PISAH
    b = Mid(Kata, i, 1)
    Cells(Baris, Kolom) = b
    Kolom = Kolom + 1
Next
Baris = Baris + 1
Next
End Sub

Demikian silahkan mencoba !
Semoga bermanfaat !!