Vba: cara mengurutkan nilai berdasarkan abjad

Anda dapat menggunakan sintaks dasar berikut di VBA untuk mengurutkan nilai dalam rentang berdasarkan abjad:

 Sub SortAlphabetical()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

Contoh khusus ini mengurutkan baris dalam rentang A1:B11 berdasarkan nilai di kolom A menurut abjad (A hingga Z).

Jika Anda ingin mengurutkan nilai dalam urutan abjad terbalik (Z ke A), Anda dapat menentukan Order1:=xlDescending sebagai gantinya.

Perhatikan bahwa Header:=xlYes menetapkan bahwa baris pertama harus diperlakukan sebagai baris header.

Contoh berikut menunjukkan cara menggunakan sintaksis ini dalam praktiknya.

Contoh: Mengurutkan Nilai Berdasarkan Abjad Menggunakan VBA

Katakanlah kita memiliki kumpulan data berikut di Excel yang berisi informasi tentang berbagai pemain bola basket:

Katakanlah kita ingin mengurutkan baris berdasarkan nama tim berdasarkan abjad.

Kita dapat membuat makro berikut untuk melakukan ini:

 Sub SortAlphabetical()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Baris sekarang diurutkan berdasarkan nama tim menurut abjad (A sampai Z).

Untuk mengurutkan baris dalam urutan abjad terbalik (Z ke A), kita dapat menentukan Order1:=xlDescending :

 Sub SortAlphabetical()
Range(" A1:B11 ").Sort Key1:=Range(" A1 "), Order1:=xlDescending, Header:=xlYes
End Sub

Saat kami menjalankan makro ini, kami menerima keluaran berikut:

Baris sekarang diurutkan berdasarkan nama tim dalam urutan abjad terbalik (Z ke A).

Catatan #1 : Dalam contoh ini, kami mengurutkan dalam satu kolom. Namun, Anda dapat menentukan lebih banyak kunci untuk mengurutkan pada beberapa kolom.

Catatan #2 : Anda dapat menemukan dokumentasi lengkap metode pengurutan VBA di sini .

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara mengurutkan lembar berdasarkan beberapa kolom
VBA: Cara menghitung jumlah baris dalam jangkauan
VBA: cara memfilter kolom