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?
Tumpuk kolom dari kiri ke kanan ke satu kolom dengan VBA
Tumpuk kolom dari kiri ke kanan menjadi 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
3. tekan F5 kunci untuk menjalankan kode, sebuah dialog muncul bagi Anda untuk memilih kolom yang akan Anda susun menjadi satu.
4. klik OK, pilih sel untuk menempatkan hasilnya.
5. klik OK menyelesaikan. Sekarang kolom yang dipilih telah ditumpuk menjadi satu kolom.
Tumpuk kolom dari kiri ke kanan menjadi satu kolom dengan Kutools for Excel
Jika Anda memiliki Kutools for Excel diinstal di Excel, Anda dapat menggunakan file Transform Range utilitas untuk menangani pekerjaan ini.
| Kutools for Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
Setelah menginstal Kutools for Excel, lakukan seperti di bawah ini:(Download Gratis Kutools for Excel Sekarang!)
1. Pilih kolom yang ingin Anda susun, klik Kutools > Jarak > Transform Range.
2. Dalam Transform Range dialog, periksa Range to single row kotak centang, klik Ok.
3. Pada dialog popping, pilih sel untuk menempatkan hasilnya, klik OK.
Sekarang kolom telah diubah menjadi satu baris.
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.
Sekarang baris tunggal telah dialihkan ke kolom tumpukan.
Rentang transposisi
Alat Produktivitas Kantor Terbaik
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...
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!
