5 Macro Microsoft Excel Keren untuk Menyortir Data

Makro Excel mungkin tidak selengkap alat otomatisasi lainnya, tetapi validitas dan efisiensi Excel VBA tidak dapat diremehkan. Jika Anda bekerja di Excel dan alat Microsoft Office lainnya seperti Word dan Access, Anda tidak akan salah dengan VBA dan kemampuannya.

MS Excel adalah alat yang ampuh yang menawarkan banyak pilihan kepada penggunanya. Dari menyimpan data hingga membuat dasbor otomatis, Anda dapat melakukan semuanya di Excel dan spreadsheet-nya.

Jika Anda ingin menggunakan VBA untuk mengotomatiskan tanggung jawab penyortiran Anda di Excel, cobalah makro yang mudah diterapkan dan efisien ini.

Unduh Kumpulan Data Dummy

Sebagai permulaan, Anda dapat mengunduh kumpulan data dummy untuk mengerjakan keterampilan makro Excel Anda.

Yakinlah, setelah Anda memahami makro ini dan lebih memahami cara kerjanya, Anda dapat mengubah kode agar sesuai dengan spreadsheet Anda sendiri untuk bekerja atau sekolah.

Anda dapat mengunduh kumpulan data yang digunakan dalam artikel ini jika Anda ingin mengikuti.

Unduh: Kumpulan Data Excel

1. Menyortir Satu Kolom Menggunakan Excel Macros

Gunakan kode sederhana ini untuk mengurutkan kolom data dalam spreadsheet Excel. Jika Anda mengunduh dataset dummy, Anda dapat mencoba mengurutkan kolom E (Unit Terjual).

Buka file Excel baru dan simpan dengan Buku Kerja Excel Macro-Enabled (.xlsm) jenis buku kerja. File ini akan menyimpan makro untuk mengurutkan data Anda dari file lain.

Terkait: Kursus Online Terbaik untuk Menguasai Excel Lanjut

Anda akan mengontrol file Anda dari file makro, yang akan berinteraksi dengan buku kerja Anda secara terpisah.

Masukkan kode berikut:

Sub sortwithheader()
Workbooks("Financial Sample.xlsx").Sheets (1).Activate
Range("A1:P701").sort Key1:=Range("e1"), Order1:=xlAscending, Header:=xlYa
Akhir Sub

Di mana:

• Kunci1: Tentukan kolom yang ingin Anda urutkan
• Pesanan1: Metode pemesanan (naik/turun)
• Judul: Jika konten Anda memiliki tajuk, opsi ini akan tetap sebagai xlYa. Atau, pilih xlTidak.

Rentang akan terdiri dari sel awal dan alamat sel akhir sehingga semuanya ditangkap untuk tujuan penyortiran. Hasilnya, seluruh kumpulan data Anda akan diurutkan berdasarkan data di kolom E.

2. Menyortir Data Dinamis dalam Satu Kolom

Mungkin ada contoh di mana titik awal Anda ditentukan, tetapi titik akhir Anda dinamis. Dalam kasus seperti itu, Anda dapat membuat kode Anda dinamis sehingga mengambil akhir rentang secara otomatis.

Untuk mengakomodasi perubahan data, gunakan kode di bawah ini:

Sub sortwithheader()
Workbooks("Financial Sample.xlsx").Sheets (1).Activate
Range("A1", Range("A1").End (xlDown)).sort Key1:=Range("e2"), Order1:=xlAscending, Header:=xlYa
Akhir Sub

Di mana:

• Akhir (xlBawah): Fungsi ini akan secara otomatis memilih sel yang terakhir diisi secara otomatis

Catatan: Jika rumus menemukan sel kosong di dalam kolom, rumus akan menganggap sel sebelumnya sebagai akhir rentang.

Terkait: Cara Membuat Pintasan Keyboard Kustom di Microsoft Excel

3. Menyortir Beberapa Kolom Bersama

Mungkin ada situasi ketika Anda ingin mengurutkan data dalam beberapa kolom sekaligus. Untuk melakukannya, Anda dapat menggunakan kode berikut untuk mencapai tujuan Anda:

Sub SortirMultipleColumns()
Dengan Lembar Kerja("Lembar1")
 Dengan .Sel (1, "A").CurrentRegion
 .Cells.sort Key1:=.Range("B1"), Order1:=xlAscending, _
 Kunci2:=.Range("E1"), Urutan2:=xlAscending, _
 Orientasi:=xlTopToBottom, Header:=xlYa
 Berakhir dengan
 Berakhir dengan
Akhir Sub

4. Menyortir Kolom di Beberapa Lembar

Saat Anda berurusan dengan banyak lembar, Anda mungkin ingin menyiapkan data untuk dimasukkan ke dalam dasbor. Salah satu aspek terpenting dari persiapan data adalah menyortirnya, dan mengatur data dalam format tertentu untuk disajikan kepada pemangku kepentingan atau klien Anda.

Salah satu opsi adalah menelusuri setiap lembar secara manual, mengurutkan kolom yang diperlukan, lalu melanjutkan ke langkah berikutnya. Atau, mengapa tidak membiarkan VBA melakukannya untuk Anda?

Maksud dari kode di bawah ini adalah untuk menelusuri setiap lembar yang tersedia di buku kerja, dan berdasarkan kolom yang ditentukan, mengurutkan data yang tersedia.

Terkait: Fungsi Pencarian Microsoft Excel untuk Mencari Spreadsheet Lebih Efisien

Inilah cara Anda dapat mengurutkan kolom di beberapa lembar:

SubsortWS()
Redupkan Sebagai Lembar Kerja
'Aktifkan lembar kerja yang dimaksud
Workbooks("Contoh Keuangan.xlsx").Aktifkan
'Siklus melalui setiap lembar kerja individu secara otomatis menggunakan for loop
Untuk Setiap ws Di ActiveWorkbook. Lembar
'aktifkan setiap lembar kerja individu
ws. Mengaktifkan
'Tentukan rentang dan kemudian urutkan kolom berdasarkan kebutuhan Anda. Dalam hal ini, hanya satu kolom yang diurutkan.
Range("A1", Range("p1").End (xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYa
'Perintah yang digunakan untuk berpindah ke lembar kerja berikutnya, setelah lembar kerja sebelumnya telah diurutkan
selanjutnya
Akhir Sub

Semua informasi yang dimulai dengan tanda kutip tunggal adalah komentar VBA. Ini tidak dieksekusi selama tahap eksekusi. Namun, setiap komentar VBA yang Anda tambahkan adalah tambahan yang berarti untuk kode, karena Anda dapat menentukan esensi, fungsionalitas, dan bagian lain yang relevan di dalam bagian kode.

5. Menyalin Data yang Diurutkan Dari Satu Lembar ke Lembar Lainnya

Bayangkan situasi di mana Anda ingin mengurutkan data dan menyalin seluruh dataset (atau bagiannya) ke dalam lembar yang baru ditambahkan. Dalam kasus seperti itu, Anda dapat menggunakan kode di bawah ini untuk melakukan tugas yang ada:

SubsortWS()
Redupkan Sebagai Lembar Kerja
'Aktifkan lembar kerja yang dimaksud
Workbooks("Contoh Keuangan.xlsx").Aktifkan
'Siklus melalui setiap lembar kerja individu secara otomatis menggunakan for loop
Untuk Setiap ws Di ActiveWorkbook. Lembar
'aktifkan setiap lembar kerja individu
ws. Mengaktifkan
'Tentukan rentang dan kemudian urutkan kolom berdasarkan kebutuhan Anda. 
'Dalam hal ini, hanya satu kolom yang diurutkan.
Range("A1", Range("p1").End (xlDown)).sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYa
'Perintah yang digunakan untuk berpindah ke lembar kerja berikutnya, setelah lembar kerja sebelumnya telah diurutkan
selanjutnya
'Buat lembar kerja baru di dalam buku kerja untuk menyimpan data baru
Buku Kerja Aktif. Lembar. Menambahkan. Nama = "Hasil"
'Copy paste data yang diurutkan ke dalam lembar yang baru ditambahkan
Sheets("Sheet1").Range("A1:p701").Salin Tujuan:=Sheets("Hasil").Range("a1")
Akhir Sub

Kode di atas akan mengurutkan nilai di kolom E, tambahkan lembar baru Hasil ke dalam buku kerja yang ada, dan tempel hasil yang diurutkan di sel A1.

Membuat Sorting Macro di Excel

Excel VBA adalah bahasa yang bagus yang dapat menghemat banyak waktu dan tenaga. Dengan menggunakan makro VBA, Anda dapat membuat dasbor yang luas, mengurutkan data dengan mudah dengan beberapa klik, dan melakukan berbagai fungsi dengan mudah.

Untungnya, fungsionalitas Excel tidak berakhir dengan makro. Lihat beberapa tip dan trik untuk menjadi pengguna Excel yang lebih efisien.

9 Situs Web dan Blog Teratas untuk Mempelajari Tip dan Trik Excel

Baik Anda seorang ahli di Excel atau baru memulai, berikut adalah sembilan situs web dan blog teratas yang dapat Anda gunakan untuk mempelajari beberapa tip dan trik.

Baca Selanjutnya

Tentang Penulis