Note: The other languages of the website are Google-translated. Back to English

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:
doc mengisi teks berdasarkan warna 1

Di sini perkenalkan dua metode untuk menyelesaikan pekerjaan ini.

Pisahkan teks yang dibatasi menjadi baris dengan menggunakan VBA

Pisahkan teks yang dipisahkan menjadi baris dengan menggunakan Power Query


Pisahkan teks yang dibatasi menjadi baris dengan menggunakan VBA

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 doc mengisi teks berdasarkan warna 1 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.
doc mengisi teks berdasarkan warna 1

5. Kemudian muncul dialog kedua untuk memasukkan pembatas yang Anda gunakan. Di sini ketik koma (,). Klik OK.
doc mengisi teks berdasarkan warna 1

Sekarang teks yang dibatasi telah dipecah menjadi baris dan kolom terkait lainnya telah diulang.
doc mengisi teks berdasarkan warna 1

doc mengisi teks berdasarkan warna 1  VBA akan mengubah data asli, Anda sebaiknya menyimpan salinannya sebelumnya.


Pisahkan teks yang dipisahkan menjadi baris dengan menggunakan Power Query

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

1. Pilih rentang data, untuk mengklik Data > Dari Tabel/Rentang.
doc mengisi teks berdasarkan warna 1

2. Dalam bermunculan Buat tabel dialog, periksa Tabel saya memiliki header yang Anda butuhkan, dan klik OK.
doc mengisi teks berdasarkan warna 1

Kemudian Editor kueri daya jendela ditampilkan, dan data telah ditampilkan di dalamnya.
doc mengisi teks berdasarkan warna 1

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

Atau Anda juga dapat memilih kolom dan klik kanan pada header kolom untuk memilih fitur ini di menu konteks.
doc mengisi teks berdasarkan warna 1

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.
doc mengisi teks berdasarkan warna 1

Sekarang teks yang dibatasi telah dibagi menjadi beberapa baris.
doc mengisi teks berdasarkan warna 1

5. Kemudian tutup jendela, sebuah dialog muncul, klik Menjaga .
doc mengisi teks berdasarkan warna 1

Kemudian lembar baru akan dibuat dengan tabel.
doc mengisi teks berdasarkan warna 1


Operasi Lainnya (Artikel)

Bagaimana cara mengganti warna baris berdasarkan grup di Excel?
Di Excel, untuk mewarnai setiap baris lainnya mungkin lebih mudah bagi kebanyakan dari kita, tetapi, pernahkah Anda mencoba mewarnai baris secara bergantian berdasarkan perubahan nilai kolom - Kolom A seperti yang ditunjukkan gambar berikut, dalam artikel ini, saya akan berbicara tentang caranya untuk mengganti warna baris berdasarkan grup di Excel.

Bagaimana Cara Mengurangi Ukuran File Excel?
Terkadang, perlu beberapa menit untuk membuka atau menyimpan jika file Excel terlalu besar. Untuk mengatasi masalah ini, di sini, di tutorial ini, ini memberi tahu Anda cara mengurangi ukuran file Excel dengan menghapus konten atau format yang tidak perlu atau tidak pernah digunakan.

Excel: Cara Membuat Atau Menyisipkan Bookmark
Pernahkah Anda membayangkan membuat atau menyisipkan bookmark untuk melompat dengan cepat ke rentang data tertentu saat ada banyak data di lembar kerja atau buku kerja?

Bagaimana cara menerapkan bayangan ke baris / kolom ganjil atau genap (alternatif) di Excel?
Saat mendesain lembar kerja, banyak orang cenderung menerapkan bayangan ke baris atau kolom ganjil atau genap (alternatif) untuk membuat lembar kerja lebih visual. Artikel ini akan menunjukkan dua metode untuk menerapkan bayangan ke baris / kolom ganjil atau genap di Excel.


  • 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...
tab kte 201905
  • 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!
officetab bawah
Urutkan komentar berdasarkan
komentar (0)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL