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

Bagaimana cara menumpuk kolom dari kiri ke kanan menjadi satu kolom di Excel?

Misalkan ada beberapa kolom, tugasnya adalah menumpuk kolom dari kiri ke kanan menjadi satu kolom seperti gambar di bawah ini. Kecuali secara manual memindahkan kolom satu per satu, apakah ada trik untuk menyelesaikan ini di Excel?
doc tumpukan kolom dari kiri ke kanan 1

Tumpuk kolom dari kiri ke kanan ke satu kolom dengan VBA

Tumpuk kolom dari kiri ke kanan ke satu kolom dengan Kutools for Excel


Tumpuk kolom dari kiri ke kanan ke satu kolom dengan VBA

Di Excel, tidak ada fungsi bawaan yang dapat menangani pekerjaan ini, tetapi kode VBA dapat membantu Anda.

1. tekan Alt + F11 kunci, lalu di Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul untuk membuat modul kosong baru.

2. Salin dan tempel kode di bawah ini ke Modul.

VBA: Tumpuk kolom menjadi satu

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

doc tumpukan kolom dari kiri ke kanan 2

3. tekan F5 kunci untuk menjalankan kode, sebuah dialog muncul bagi Anda untuk memilih kolom yang akan Anda susun menjadi satu.
doc tumpukan kolom dari kiri ke kanan 3

4. klik OK, pilih sel untuk menempatkan hasilnya.
doc tumpukan kolom dari kiri ke kanan 4

5. klik OK menyelesaikan. Sekarang kolom yang dipilih telah ditumpuk menjadi satu kolom.
doc tumpukan kolom dari kiri ke kanan 5


Tumpuk kolom dari kiri ke kanan ke satu kolom dengan Kutools for Excel

Jika Anda memiliki Kutools untuk Excel diinstal di Excel, Anda dapat menggunakan file Transform Range utilitas untuk menangani pekerjaan ini.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Unduh Gratis Kutools untuk Excel Sekarang!)

1. Pilih kolom yang ingin Anda susun, klik Kutools > Jarak > Transform Range.
doc tumpukan kolom dari kiri ke kanan 6

2. Dalam Transform Range dialog, periksa Range to single row kotak centang, klik Ok.
doc tumpukan kolom dari kiri ke kanan 7

3. Pada dialog popping, pilih sel untuk menempatkan hasilnya, klik OK.
doc tumpukan kolom dari kiri ke kanan 8

Sekarang kolom telah diubah menjadi satu baris.
doc tumpukan kolom dari kiri ke kanan 9

4. Pilih satu baris, tekan Ctrl + C untuk menyalinnya, dan pilih sel lain yang akan menempatkan kolom tumpukan, klik kanan untuk memilih Transpose(T) dalam menu konteks.
doc tumpukan kolom dari kiri ke kanan 10

Sekarang baris tunggal telah dialihkan ke kolom tumpukan.
doc tumpukan kolom dari kiri ke kanan 11


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 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 canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (3)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Cheat Word untuk melakukan hal yang sama:
- salin semua baris dan baris Anda di Excel
- tempel tanpa ke dokumen Word
- ctrl + h (cari dan ganti)
- salin ruang tabulasi antara dua baris
- tempel ke bilah pencarian
- ganti dengan tab dengan jeda baris "^l"

Semua sel Anda sekarang ada di kolom di dokumen Word Anda.
Salin tempel ke Excel: selesai!
Komentar ini diminimalkan oleh moderator di situs
Aku akan selamanya berterima kasih padamu. Terima kasih banyak!
Komentar ini diminimalkan oleh moderator di situs
Adakah yang tahu cara mengganti/hardcode kolom (tidak memunculkan kotak pesan untuk seleksi)? Jadi, atur XSRg menjadi seperti: Set xSRg = Range("A1").CurrentRegion.Select(yang tidak berfungsi karena jenis ketidakcocokan) terima kasih
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan