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 for Excel, nya Transformasi Rentang utilitas dapat membantu Anda menggabungkan beberapa kolom menjadi satu kolom atau baris tunggal.

Kutools for 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 for 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 for Excel Sekarang !

Kutools for 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

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 Canggih untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda 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