Excel: Cara membagi teks yang dibatasi menjadi baris

Katakanlah di sini adalah tabel dengan tiga kolom dalam lembar kerja, yang pertama mencantumkan tingkat harga, yang kedua mencantumkan nama buah dengan dipisahkan koma dalam sel, dan kolom ketiga mencantumkan harga buah. Tugasnya adalah membagi nama buah yang dibatasi menjadi beberapa baris, dan mengulangi tingkat harga dan baris harga terkait seperti gambar di bawah ini:

Di sini perkenalkan dua metode untuk menyelesaikan pekerjaan ini.

Pisahkan teks yang dibatasi menjadi baris dengan menggunakan VBA

Pisahkan teks yang dibatasi menjadi baris dengan menggunakan Power Query

Berikut adalah kode VBA yang dapat dengan cepat membagi teks yang dibatasi menjadi baris.

1. tekan lain + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan tab> Modul untuk membuat modul kosong baru.

3. Salin dan tempel kode di bawah ini ke modul kosong.

VBA: Pisahkan teks yang dibatasi menjadi baris

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. tekan F5 tombol untuk mengklik tombol jalankan  untuk mengaktifkan kode, sebuah dialog muncul bagi Anda untuk memilih kolom yang mengecualikan tajuk yang berisi teks yang dibatasi yang diperlukan untuk dipecah menjadi beberapa baris. Klik OK.

5. Kemudian muncul dialog kedua untuk memasukkan pembatas yang Anda gunakan. Di sini ketik koma (,). Klik OK.

Sekarang teks yang dibatasi telah dipecah menjadi baris dan kolom terkait lainnya telah diulang.

  VBA akan mengubah data asli, Anda sebaiknya menyimpan salinannya sebelumnya.

Jika Anda menggunakan Excel 2013 atau versi yang lebih baru, Power Query akan menjadi pilihan yang baik untuk menyelesaikan pekerjaan ini.

1. Pilih rentang data, untuk mengklik Data > Dari Tabel/Rentang.

2. Dalam bermunculan Buat tabel dialog, periksa Tabel saya memiliki header yang Anda butuhkan, dan klik OK.

Kemudian Power Query editor jendela ditampilkan, dan data telah ditampilkan di dalamnya.

3. Klik pada kolom yang ingin Anda pisahkan teks yang dibatasi menjadi baris, dan klik Mengubah tab> Pisahkan Kolom > Oleh Pembatas.

Atau Anda juga dapat memilih kolom dan klik kanan pada header kolom untuk memilih fitur ini di menu konteks.

4. Dalam Pisahkan Kolom berdasarkan Pembatas jendela, pilih pembatas yang Anda butuhkan dari Pilih atau masukkan pembatas bagian, lalu pilih Setiap kemunculan pembatas opsi, dan kemudian perluas Advanced options bagian untuk memilih Baris pilihan. Klik OK.

Sekarang teks yang dibatasi telah dibagi menjadi beberapa baris.

5. Kemudian tutup jendela, sebuah dialog muncul, klik Menjaga .

Kemudian lembar baru akan dibuat dengan tabel.

---

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
• Gabungkan Sel / Baris / Kolom dan Menyimpan Data; Pisahkan Konten Sel; Gabungkan Baris Duplikat dan Jumlah / Rata-rata... Mencegah Sel Duplikat; Bandingkan Rentang...
• Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
• Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
• Favorit dan Sisipkan Rumus dengan Cepat, Rentang, Grafik dan Gambar; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
• Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
• Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
• Pengelompokan Tabel Pivot menurut nomor minggu, hari dalam seminggu dan banyak lagi ... Tampilkan Sel yang Tidak Terkunci dan Terkunci dengan warna berbeda; Sorot Sel Yang Memiliki Rumus / Nama...

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli... 

---

Office Tab - menghadirkan 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!

Read More ... Fitur Lengkap Uji Coba Gratis 30 Hari... Membeli...