PISAH KALIMAT DENGAN ACUAN SEBUAH KARAKTER - EXCEL VBA

NO DAN JENIS JENIS KARAKTER

Pisahkan kalimat to kolom dengan acuan karakter spasi (32 char) 

Posisi diawali pada Baris Ke 2 pada kolom A 

Pastekan kode berikut Pada sebuah modul

Sub Kalimat_kata_dgn_spasi()

Dim var As Variant

Dim rw As Long

With Worksheets("Sheet1")

For rw = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row

If CBool(Len(.Cells(rw, "A").Value2)) Then

var = Split(.Cells(rw, "A").Value2, Chr(32))

 .Cells(rw, "B").Resize(1, UBound(var) + 1) = var

 End If

 Next rw

End With

 End Sub

 Pisahkan kalimat to kolom dengan acuan karakter garis miring (42 char) 

Posisi diawali pada Baris Ke 2 pada kolom A 

Pastekan kode berikut Pada sebuah modul

Sub Kalimat_kata_dgn_garisMiring()

Dim var As Variant

Dim rw As Long

With Worksheets("Sheet1")

For rw = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row

If CBool(Len(.Cells(rw, "A").Value2)) Then

var = Split(.Cells(rw, "A").Value2, Chr(47))

 .Cells(rw, "B").Resize(1, UBound(var) + 1) = var

 End If

 Next rw

End With

 End Sub

Demikian semoga bermanfaat !!