Vba: cara mengonversi teks menjadi kolom

Anda dapat menggunakan metode Range.TextToColumns di VBA untuk mengonversi sel teks menjadi kolom.

Contoh berikut menunjukkan cara menggunakan metode ini dalam praktik dalam berbagai skenario.

Contoh 1: Mengubah teks menjadi kolom (spasi sebagai pembatas)

Misalkan kita memiliki daftar nama berikut dalam rentang A1:A9 di Excel:

Kita dapat membuat makro berikut untuk mengubah teks di setiap sel menjadi kolom terpisah, menggunakan spasi sebagai pembatas:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa teks di setiap sel telah diubah menjadi kolom terpisah.

Catatan : Argumen ConsecutiveDelimiter:=True memberitahu VBA untuk mempertimbangkan pembatas yang berurutan bersama-sama sebagai pembatas tunggal.

Contoh 2: Mengubah teks menjadi kolom (koma sebagai pembatas)

Misalkan kita mempunyai daftar nama berikut dalam rentang A1:A9 yang dipisahkan dengan koma:

Kita dapat membuat makro berikut untuk mengubah teks di setiap sel menjadi kolom terpisah, menggunakan koma sebagai pembatas:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    ConsecutiveDelimiter:=True, _
    Comma:=True
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa teks di setiap sel telah diubah menjadi kolom terpisah.

Contoh 3: Ubah teks menjadi kolom (dengan teks diapit tanda kutip ganda)

Misalkan kita memiliki daftar nama berikut dalam rentang A1:A9 yang dipisahkan dengan spasi dan menyertakan tanda kutip ganda:

Kita dapat membuat makro berikut untuk mengubah teks di setiap sel menjadi kolom terpisah:

 Sub TextToCols()
    Range(" A1:A9 ").TextToColumns_
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=True, _
    Space:=True
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Perhatikan bahwa teks di setiap sel telah diubah menjadi kolom terpisah.

Perhatikan bahwa kami menggunakan argumen TextQualifier:=xlDoubleQuote untuk memberi tahu VBA bahwa teks diapit oleh tanda kutip ganda.

Catatan : Anda dapat menemukan dokumentasi lengkap metode TextToColumns di VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya menggunakan VBA:

VBA: Cara menghitung kemunculan karakter dalam sebuah string
VBA: cara memeriksa apakah suatu string berisi string lain
VBA: Cara menghitung sel dengan teks tertentu