Loncat ke daftar isi utama

Bagaimana cara menggabungkan beberapa kolom menjadi satu daftar di Excel?

Untuk menggabungkan atau menggabungkan beberapa kolom menjadi satu daftar panjang, biasanya, Anda dapat menyalin dan menempelkan data kolom satu per satu ke dalam kolom yang ditentukan. Tapi, di sini, saya bisa memperkenalkan beberapa trik cepat untuk menyelesaikan tugas ini di Excel.

Gabungkan beberapa kolom menjadi satu daftar dengan kode VBA

Gabungkan beberapa kolom menjadi satu daftar dengan Kutools for Excel

Tanpa mengulangi untuk menyalin dan menempel data kolom, kode VBA berikut dapat membantu Anda menangani pekerjaan ini dengan cepat dan mudah.

1. Tahan Alt + F11 kunci di Excel, dan itu membuka file Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempelkan makro berikut di file Modul Jendela.

Kode VBA: Gabungkan atau gabungkan beberapa kolom menjadi satu daftar

Sub CombineColumns1()
'updateby Extendoffice
    Dim xRng As Range
    Dim i As Integer
    Dim xLastRow As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    xLastRow = xRng.Columns(1).Rows.Count + 1
    For i = 2 To xRng.Columns.Count
        Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
        ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
        xLastRow = xLastRow + xRng.Columns(i).Rows.Count
    Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda gabungkan menjadi hanya satu kolom, lihat tangkapan layar:

doc menggabungkan kolom menjadi satu 1

4. Dan kemudian klik OK tombol, dan kolom yang dipilih telah digabungkan menjadi hanya satu kolom seperti yang ditunjukkan tangkapan layar berikut:

doc menggabungkan kolom menjadi satu 2 2 doc menggabungkan kolom menjadi satu 3

Tips: Setelah menjalankan VBA ini, data asli dari rentang tersebut akan dihapus, sebaiknya Anda menyalin dan menyimpannya di lokasi lain terlebih dahulu.

Jika sudah terpasang Kutools untuk Excel, nya Transformasi Rentang utilitas dapat membantu Anda menggabungkan beberapa kolom menjadi satu kolom atau baris tunggal.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari.
Pergi ke Download
Uji Coba Gratis 30 hariPembelian
PayPal / Perdagangan Saya

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

1. Pilih data kolom yang ingin Anda gabungkan menjadi satu daftar.

2. Lalu klik Kutools > Jarak > Transformasi Rentang, lihat tangkapan layar:

3. di Transformasi Rentang kotak dialog, pilih Rentang ke satu kolom opsi, dan klik Ok tombol, lihat tangkapan layar:

doc menggabungkan kolom menjadi satu 5

4. Berikut ini muncul Transformasi Rentang kotak, klik sel tempat Anda ingin menampilkan hasilnya, lihat tangkapan layar:

doc menggabungkan kolom menjadi satu 6

5. Lalu klik OK tombol, kolom yang Anda pilih telah digabungkan menjadi satu kolom tunggal di lokasi tertentu yang Anda inginkan. Lihat tangkapan layar:

doc menggabungkan kolom menjadi satu 7

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk

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!
Comments (7)
No ratings yet. Be the first to rate!
Kevin
Kevin
This comment was minimized by the moderator on the site
This works great if you need to combine all of one column, then move to the next column, etc. What if you need to combine them in the row order? Such as...
A1
B1
A2
B2
Reply
0
0
skyyang
skyyang     Kevin
This comment was minimized by the moderator on the site
Hello, Kevin,
To combine the data from rows into one single column based on the row order, please apply the following code:
Sub ConvertRangeToColumn()
'Updateby Extendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
袛械薪懈褋
袛械薪懈褋
This comment was minimized by the moderator on the site
袛芯斜褉芯谐芯 胁械褔械褉邪, 斜谢邪谐芯写邪褉褞 袙邪褋 蟹邪 锌芯屑芯褖褜, 袙褘 褋褝泻芯薪芯屑懈谢懈 褔邪褋褘 胁褉械屑械薪懈. 小锌邪褋懈斜芯, 卸械谢邪褞 袙邪屑 褋褔邪褋褌褜褟!
Reply
0
0
skyyang
skyyang     袛械薪懈褋
This comment was minimized by the moderator on the site
Hello,
Glad it can help you! 馃榾
Reply
Report
0
0
袦邪褉懈褟
袦邪褉懈褟
This comment was minimized by the moderator on the site
小锌邪褋懈斜芯 斜芯谢褜褕芯械, 胁褋械 褋褉邪斜芯褌邪谢芯!!!
Reply
0
0
Aster
Aster
This comment was minimized by the moderator on the site
This has been very helpful. It saved me hours of copying and pasting columns from A to ANY.
Reply
Report
0
0
Mike
Mike
This comment was minimized by the moderator on the site
This worked perfect and was very helpful! Thanks!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations