Bagaimana cara dengan mudah dan cepat mengubah rentang dan menumpuk data di Excel?
Misalnya, ada beberapa data yang ditampilkan dalam kelompok, dan sekarang saya ingin mengubah urutan rentang dan menumpuk data di setiap kolom seperti gambar di bawah ini. Pada artikel ini, saya akan memperkenalkan metode untuk tugas ini di Excel.
Ubah urutan dan susun data dengan VBA
Mengubah urutan dan menumpuk data dengan Transpose Table Dimension 
Ubah urutan dan susun data dengan VBA
Anda dapat menerapkan kode VBA untuk mengubah urutan dan menumpuk data.
1. Pilih data kecuali header kolom, dan tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempelkan kode di bawah ini ke Modul.
VBA: Transpose dan Stack data
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci, dan kemudian data telah dialihkan dan ditumpuk. Lihat tangkapan layar:
Catatan: Dalam kode VBA, A menunjukkan untuk menempatkan data transpose di kolom A lembar aktif dan mengganti data asli di kolom A.
Mengubah urutan dan menumpuk data dengan Transpose Table Dimension
Jika Anda ingin mengubah rentang dan menumpuk data dengan cepat dan mudah tanpa kode VBA, Anda dapat menerapkannya Kutools for Excel'S Mengubah Urutan Dimensi Tabel utilitas
| Kutools for Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. |
Setelah menginstal Kutools for Excel, silakan lakukan seperti di bawah ini :(Free download Kutools for Excel Sekarang!)
1. Pilih data yang Anda gunakan, klik Kutools > Jarak > Ubah Urutan Dimensi Tabel. Lihat tangkapan layar:
2. Di dialog, periksa Tabel silang ke daftar opsi, dan pilih sel tempat Anda ingin menempatkan data yang dialihkan Rentang hasil (sel tunggal) kolom tulisan. Lihat tangkapan layar:
3. klik Ok. Sekarang kisaran telah dialihkan dan ditumpuk dalam kolom.
Transpose Range dan Stack Data
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!
