Bagaimana cara mengubah urutan kolom menjadi baris dan memasukkan baris baru untuk mengisi data di Excel?
Pada artikel ini, saya memperkenalkan kode VBA untuk mengubah urutan kolom menjadi baris dan memasukkan baris baru untuk mengisi data seperti gambar di bawah ini, jika Anda tertarik dengan operasi ini, silakan buka di bawah untuk lebih jelasnya.
Ubah urutan dan sisipkan baris dengan VBA
Ubah urutan dan sisipkan baris dengan VBA
Tidak ada cara langsung untuk mengubah urutan rentang dan menyisipkan baris untuk mengisi data yang sama, tetapi di sini saya dapat memperkenalkan kode VBA untuk menyelesaikan tugas ini dengan cepat.
1. tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul, dan tempelkan kode VBA di bawah ini ke jendela Modul. Lihat tangkapan layar:
VBA: Mengubah urutan dan menyisipkan baris.
Sub TransposeInsertRows()
'UpdatebyExtendoffice20161125
Dim xRg As Range
Dim i As Long, j As Long, k As Long
Dim x As Long, y As Long
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
Application.ScreenUpdating = False
x = xRg(1, 1).Column + 2
y = xRg(1, xRg.Columns.Count).Column
For i = xRg(xRg.Rows.Count, 1).Row To xRg(1, 1).Row Step -1
If Cells(i, x) <> "" And Cells(i, x + 1) <> "" Then
k = Cells(i, x - 2).End(xlToRight).Column
If k > y Then k = y
For j = k To x + 1 Step -1
Cells(i + 1, 1).EntireRow.Insert
With Cells(i + 1, x - 2)
.Value = .Offset(-1, 0)
.Offset(0, 1) = .Offset(-1, 1)
.Offset(0, 2) = Cells(i, j)
End With
Cells(i, j).ClearContents
Next j
End If
Next i
Application.ScreenUpdating = True
End Sub
3. tekan F5 untuk menjalankan kode, lalu pilih rentang data yang ingin Anda ubah urutannya dan masukkan baris ke dalam dialog popping. Lihat tangkapan layar:
4. klik OK. Dan kisaran yang dipilih telah diubah seperti gambar di bawah ini.
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 Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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 sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
