Bagaimana cara membagi teks menjadi kolom terpisah dengan huruf kapital di Excel?
Misalkan, Anda memiliki berbagai data yang ingin Anda pisahkan konten sel menjadi kolom terpisah dengan huruf kapital seperti gambar berikut yang ditampilkan, apakah Anda punya ide bagus untuk menyelesaikan masalah ini di Excel?
Pisahkan teks menjadi kolom terpisah dengan huruf kapital dengan rumus
Pisahkan teks menjadi kolom terpisah dengan huruf kapital dengan kode VBA
Pisahkan teks menjadi kolom terpisah dengan huruf kapital dengan Kutools for Excel
Pisahkan teks menjadi kolom terpisah dengan huruf kapital dengan rumus
Jika hanya ada dua kata di sel Anda, rumus berikut membantu Anda menyelesaikan pekerjaan ini. Harap lakukan sebagai berikut:
1. Masukkan rumus array ini: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 adalah sel yang ingin Anda pisahkan dengan huruf kapital) menjadi sel kosong yang berdekatan dengan data Anda, lalu tekan Ctrl + Shift + Enter kunci bersama untuk mendapatkan kata pertama, lihat tangkapan layar:
2. Kemudian pilih C2, dan seret pegangan isi ke sel yang ingin Anda terapkan rumus ini, semua kata pertama dari sel rentang telah diekstraksi sekaligus, lihat tangkapan layar:
3. Lanjutkan memasukkan rumus lain: = REPLACE (A2,1, LEN (C2), "") (A2 adalah sel yang ingin Anda pisahkan, dan C2 adalah sel berisi kata pertama yang Anda kembalikan) ke dalam sel D2, dan tekan Enter kunci untuk mendapatkan kata kedua, lihat tangkapan layar:
4. Pilih sel D2, seret gagang isian ke sel untuk mendapatkan kata kedua, dan konten sel dari rentang telah dibagi menjadi dua kolom dengan huruf kapital, lihat tangkapan layar:
Pisahkan teks menjadi kolom terpisah dengan huruf kapital dengan kode VBA
Rumus di atas hanya diterapkan ke nilai sel yang berisi dua kata, jika ada beberapa kata dalam sel yang perlu dipisahkan, Anda dapat menambahkan spasi sebelum huruf kapital, lalu menerapkan Teks ke Kolom untuk memisahkan konten sel menjadi pisahkan kolom dengan spasi.
Pertama, terapkan kode VBA untuk menambahkan spasi sebelum huruf kapital untuk memisahkan kata.
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Sisipkan spasi sebelum setiap huruf kapital dalam sel
Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
Dim I As Integer
SplitWords = Left(Str, 1)
For I = 2 To Len(Trim(Str))
If (Asc(Mid(Str, I, 1)) > 64) And _
(Asc(Mid(Str, I, 1)) < 91) And _
(Mid(Str, I - 1, 1) <> " ") Then _
SplitWords = SplitWords & " "
SplitWords = SplitWords & Mid(Str, I, 1)
Next
End Function
3. Simpan dan tutup kode ini, kembali ke lembar kerja, masukkan rumus ini: = kata terpisah (A2) ke dalam sel kosong yang berdekatan dengan data Anda, lihat tangkapan layar:
4. Kemudian seret gagang isian ke sel yang ingin Anda terapkan rumus ini, dan spasi telah disisipkan sebelum setiap huruf kapital untuk memisahkan konten sel, lihat tangkapan layar:
5. Dan kemudian Anda harus menyalin dan menempelkan sel rumus ini sebagai nilai untuk menghapus rumus di tempat lain atau rentang aslinya.
Kedua, terapkan fitur Teks ke Kolom untuk memisahkan konten sel menjadi kolom terpisah berdasarkan spasi.
6. Pilih nilai sel yang telah Anda sisipkan spasi, dan klik Data > Teks ke Kolom, di Langkah1 dari Convert Teks ke Columns Wizard, pilih Terbatas opsi, lihat tangkapan layar:
7. Lalu klik Selanjutnya tombol, di Langkah2 wizard, periksa Space pilihan di bawah Pembatas bagian, lihat tangkapan layar:
8. Lanjutkan mengklik Selanjutnya tombol, di Step3 wizard, pilih Umum pilihan di bawah Format data kolom, lalu pilih sel tempat Anda ingin meletakkan nilai terpisah dengan mengklik 
tombol, lihat tangkapan layar:
9. Terakhir, klik Finish tombol, konten sel telah dipecah menjadi beberapa kolom seperti gambar berikut yang ditampilkan:
Pisahkan teks menjadi kolom terpisah dengan huruf kapital dengan Kutools for Excel
Jika Anda memiliki Kutools untuk Excel, menggabungkan nya Tambahkan Teks dan Pisahkan Sel fitur, Anda dapat menangani tugas ini dengan mudah dan nyaman, lakukan hal berikut:
| Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. |
1. Pilih data asli yang ingin Anda pisahkan.
2. Lalu klik Kutools > Teks > Tambahkan Teks, lihat tangkapan layar:
3. di Tambahkan Teks kotak dialog, ketik spasi sekali atau pemisah lain yang Anda perlukan ke dalam Teks kotak, lalu pilih Huruf pertama adalah huruf besar dari Hanya tambahkan ke bagian, lihat tangkapan layar:
4. Kemudian klik Ok tombol, dan spasi telah ditambahkan sebelum setiap huruf kapital, lihat tangkapan layar:
5. Dan kemudian Anda bisa menerapkan Pisahkan Sel kegunaan Kutools untuk Excel untuk memisahkan nilai sel menurut spasi, dengan tetap memilih rentang data, lalu klik Kutools > Gabungkan & Pisahkan > Pisahkan Sel, lihat tangkapan layar:
6. di Pisahkan Sel kotak dialog, pilih Pisahkan ke Kolom bawah Tipe bagian, dan periksa Space atau pembatas lain yang Anda tambahkan di Langkah 3, lihat tangkapan layar:
7. Kemudian klik Ok, dan kotak prompt muncul untuk mengingatkan Anda memilih sel untuk meletakkan data terpisah, lihat tangkapan layar:
8. Terakhir, klik OK tombol, dan Anda akan mendapatkan hasil yang Anda butuhkan, lihat tangkapan layar:
Unduh dan uji coba gratis Kutools untuk Excel Sekarang!
Demo: Pisahkan teks menjadi kolom terpisah dengan huruf kapital dengan Kutools for Excel
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
