Cara Mengurutkan Data Tabel Sesuai Keinginan Menggunakan VBA Macro

Dalam dunia pengolahan data, kemampuan untuk mengurutkan data tabel dengan cepat dan sesuai keinginan adalah kunci efisiensi kerja, terutama ketika berhadapan dengan ratusan hingga ribuan baris informasi. Microsoft Excel memang menyediakan fitur Sort bawaan, namun bagaimana jika kamu ingin membuatnya otomatis hanya dengan satu kali klik? Di sinilah VBA Macro hadir sebagai solusi yang sangat berguna.

Dalam artikel ini, kita akan membahas cara mengurutkan data tabel secara otomatis menggunakan VBA Macro, yang akan memudahkan siapa saja dalam menyusun informasi tanpa perlu klik menu satu per satu. Dengan satu tombol, data akan langsung tertata rapi berdasarkan kolom yang kamu tentukan.

Mengapa Menggunakan VBA Macro untuk Mengurutkan Data Tabel?

Menggunakan fitur sort manual di Excel memang cukup mudah, tetapi dalam pekerjaan yang bersifat berulang, atau ketika kamu harus mengurutkan data tabel dengan struktur yang sama secara rutin, menggunakan VBA akan jauh lebih efisien.

Beberapa keuntungan menggunakan VBA Macro untuk mengurutkan data tabel antara lain:

• Proses otomatis hanya dengan satu klik.
• Bisa mengatur urutan lebih dari satu kolom (multi-level sorting).
• Tidak perlu membuka tab menu atau ribbon Excel.
• Lebih rapi, akurat, dan hemat waktu.

Struktur Data yang Akan Diurutkan

Misalnya, kamu memiliki data transaksi karyawan dengan struktur tabel dari kolom B hingga I (ID, Nama, Departemen, Tanggal Transaksi, Jenis Transaksi, Nominal, Metode Pembayaran, dan Kode Transaksi). Tabel tersebut terdiri dari 1001 baris (dari baris ke-3 hingga baris ke-1003). Berikut tampilannya:

Tujuan kita adalah mengurutkan data tabel berdasarkan:

1. Kolom D (Departemen) – sebagai kunci utama pengurutan.
2. Kolom C (Nama Karyawan) – sebagai kunci kedua.

Kode VBA Macro untuk Mengurutkan Data Tabel

Berikut adalah script VBA Macro yang bisa kamu gunakan:

Sub UrutkanData()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    With ws.Sort
        .SortFields.Clear
        ' Kunci pertama: kolom D (Departemen)
        .SortFields.Add Key:=ws.Range("D3:D1003"), Order:=xlAscending
        ' Kunci kedua: kolom C (Nama Karyawan)
        .SortFields.Add Key:=ws.Range("C3:C1003"), Order:=xlAscending

        .SetRange ws.Range("B3:I1003")
        .Header = xlNo ' Ganti ke xlYes jika baris ke-3 adalah header
        .Apply
    End With

    MsgBox "Data berhasil diurutkan berdasarkan kolom D lalu kolom C.", vbInformation
End Sub

Penjelasan Script VBA

• Set ws = ActiveSheet: memilih worksheet aktif sebagai tempat pengurutan dilakukan.
• .SortFields.Clear: menghapus aturan urutan sebelumnya agar tidak tumpang tindih.
• .SortFields.Add: menambahkan aturan urut. Di sini, pertama berdasarkan kolom D, lalu kolom C.
• .SetRange: menentukan area yang akan diurutkan (dari kolom B hingga I, baris 3 hingga 1003).
• .Header = xlNo: menyatakan bahwa baris ke-3 bukan header. Jika baris ke-3 adalah judul kolom, ubah ke xlYes.
• MsgBox: memberi notifikasi bahwa proses pengurutan telah selesai.

Cara Menggunakan Macro Ini

1. Buka Excel, tekan Alt + F11 untuk membuka Visual Basic for Applications (VBA).
2. Klik Insert > Module.
3. Salin dan tempel kode VBA di atas.
4. Kembali ke Excel, tekan Alt + F8, pilih UrutkanData, lalu klik Run.

Jika benar, maka hasilnya adalah sebagai berikut:

Keuntungan Otomatisasi Mengurutkan Data Tabel

Dengan menggunakan macro ini, kamu hanya perlu satu klik untuk mengurutkan data tabel yang panjang sesuai kolom yang kamu tentukan. Hal ini tentu sangat bermanfaat bagi pengguna yang bekerja dengan:

• Data kepegawaian
• Laporan keuangan
• Laporan penjualan
• Daftar inventaris
• Dan berbagai jenis tabel lainnya

Script ini dapat dimodifikasi untuk mengurutkan data tabel berdasarkan kriteria lain, seperti urutan menurun (descending), menambahkan kunci urutan ketiga, atau bahkan dijalankan otomatis saat workbook dibuka.

Kesimpulan

Mengurutkan data tabel di Excel tidak perlu selalu dilakukan secara manual. Dengan bantuan VBA Macro, kamu bisa mengotomatiskan proses ini dan menyesuaikannya sesuai kebutuhan. Contoh macro yang sudah dibahas di artikel ini akan membantu kamu mengatur ribuan baris data hanya dengan satu klik tombol. Ini adalah solusi cerdas untuk pengguna Excel yang ingin lebih produktif dan efisien.

Mulailah gunakan VBA hari ini dan rasakan betapa mudahnya mengurutkan data tabel dengan cara yang profesional!

Download Template Gratis

Bagi Anda yang ingin mencoba teknik ini secara langsung, kami telah menyiapkan template gratis yang dirancang khusus untuk membantu Anda mempraktikkan Cara Mengurutkan Data Tabel Sesuai Keinginan Sekali Klik ini. File Excel bisa didownload melalui tautan berikut:

Atau juga jika ingin mempelajari langkah demi langkah secara visual, bisa kunjungi Youtube Channel Depot Excel. Di sana teman-teman akan melihat bagaimana rumusnya bekerja. Semoga bermanfaat!