Bagaimana cara mengurutkan beberapa baris atau kolom secara mandiri sekaligus di Excel?
Di Excel, Anda dapat menerapkan fitur Sortir untuk mengurutkan hanya satu baris atau kolom dalam berbagai kolom, tetapi, jika Anda perlu mengurutkan beberapa baris atau kolom secara terpisah sekaligus untuk menampilkan tangkapan layar berikut. Apakah ada cara cepat untuk menyelesaikan tugas ini di Excel?
Urutkan beberapa kolom secara mandiri sekaligus dengan kode VBA
Urutkan beberapa baris secara mandiri sekaligus dengan kode VBA
Urutkan beberapa kolom secara mandiri sekaligus dengan kode VBA
Untuk mengurutkan beberapa kolom secara independen dalam urutan menaik, kode VBA berikut dapat membantu Anda, lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Urutkan beberapa kolom secara terpisah sekaligus:
Sub SortIndividualJR()
'Updateby Extendoffice
Dim xRg As Range
Dim yRg As Range
Dim ws As Worksheet
Set ws = ActiveSheet
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
Application.ScreenUpdating = False
For Each yRg In xRg
With ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, Order:=xlAscending
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNo
.MatchCase = False
.Apply
End With
Next yRg
Application.ScreenUpdating = True
End Sub
3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda memilih rentang data yang ingin Anda urutkan berdasarkan setiap kolom, lihat tangkapan layar:
4. Dan kemudian klik OK, setiap kolom telah diurutkan secara bergantung sekaligus, lihat tangkapan layar:
Urutkan beberapa baris secara mandiri sekaligus dengan kode VBA
Jika Anda ingin mengurutkan beberapa baris secara terpisah, berikut juga kode VBA untuk Anda.
1. Pilih data yang ingin Anda urutkan berdasarkan setiap baris.
2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.
Kode VBA: Urutkan beberapa baris sekaligus:
Sub SortIndividualR()
'Updateby Extendoffice
Dim xRg As Range, yRg As Range
If TypeName(Selection) <> "Range" Then Exit Sub
Set xRg = Selection
If xRg.Count = 1 Then
MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
Exit Sub
End If
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
Application.ScreenUpdating = False
For Each yRg In xRg.Rows
yRg.Sort Key1:=yRg.Cells(1, 1), _
Order1:=xlAscending, _
Header:=xlNo, _
Orientation:=xlSortRows
Next yRg
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
Application.ScreenUpdating = True
End Sub
4. Lalu tekan F5 kunci untuk menjalankan kode ini, data di setiap baris telah diurutkan sekaligus, lihat tangkapan layar:
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!