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

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.

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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda dengan
80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • 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 tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... 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 ...
  • 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...
  • Lebih dari
    300
    fitur yang kuat
    . Mendukung Office/Excel
    2007-2019 dan 365
    . Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap
    30
    percobaan gratis -hari. Jaminan uang kembali 60 hari.
tab kte 201905

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 dengan
    50%
    , dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (5)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Ini bekerja dengan sempurna dan sangat membantu! Terima kasih!
Komentar ini diminimalkan oleh moderator di situs
Ini sudah sangat membantu. Itu menyelamatkan saya berjam-jam menyalin dan menempelkan kolom dari A ke APAPUN.
Komentar ini diminimalkan oleh moderator di situs
асибо ольшое, е аботало!!!
Komentar ini diminimalkan oleh moderator di situs
Доброго вечера, благодарю Вас за помощь, Вы сэкономили часы времени. Hebat, желаю Вам счастья!
Komentar ini diminimalkan oleh moderator di situs
Halo,
Senang bisa membantu Anda! 😀
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