Bagaimana cara mengurutkan kolom secara otomatis di excel?

Misalnya, Anda memiliki tabel pembelian seperti gambar di bawah ini. Sekarang Anda ingin kolom Harga diurutkan secara otomatis saat Anda memasukkan angka/harga baru di kolom ini, bagaimana cara mengatasinya?

Urutkan otomatis kolom berdasarkan nilai dengan VBA

Makro VBA ini akan mengurutkan semua data di kolom tertentu secara otomatis segera setelah Anda memasukkan data baru atau mengubah nilai di kolom di Excel

1. Klik kanan nama lembar saat ini di bilah Tab Lembar, lalu klik Lihat Kode dari menu klik kanan

2. Di kotak dialog pembuka Microsoft Visual Basic for Application, tempelkan kode makro VBA berikut ke jendela pembuka

VBA. Kolom Urutkan Otomatis di Excel

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Catatan
1) Pada kode vba di atas, B. B artinya akan otomatis mengurutkan Kolom B, B1 adalah sel pertama di Kolom B, B2 is the second cell in Column B, and you can change them based on your needs.
2) Cuplikan Header. =xlYa di baris ke-5 memberi tahu Excel bahwa rentang yang akan Anda urutkan memiliki tajuk, sehingga baris pertama dari rentang tersebut tidak akan disertakan saat menyortir. Jika tidak ada header, harap ubah menjadi Header. =xlNo ; . =Range("B2") Key1:=Range("B2") di baris ke-4 ke Key1. =Range("B1") .

3. Kemudian kembali ke lembar kerja, saat Anda memasukkan angka baru di kolom Harga atau mengubah harga yang ada, kolom Harga akan diurutkan secara otomatis dalam urutan menaik

Demo. Urutkan otomatis kolom berdasarkan nilai dengan VBA di Excel

Kutools for Excel mencakup lebih dari 300 alat praktis untuk Excel, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan Uji Coba Gratis Sekarang

Urutkan dengan mudah berdasarkan frekuensi kejadian di Excel

Kutools for Excel's Urutkan Utilitas lanjutan mendukung pengurutan data berdasarkan panjang teks, nama belakang, nilai absolut, frekuensi, dll. di Excel dengan cepat

Uji Coba Gratis Fitur Penuh 30 -hari.

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

• Gunakan kembali. Masukkan dengan cepat rumus kompleks, bagan  dan apa pun yang pernah Anda gunakan sebelumnya; . Encrypt Cells with password; Create Mailing List and send emails...
• Super Formula Bar (mengedit beberapa baris teks dan formula dengan mudah); . Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
• Menggabungkan Sel/Baris/Kolom tanpa kehilangan Data; . Cegah Sel Duplikat; . Combine Duplicate Rows/Columns.. Prevent Duplicate Cells; Compare Ranges...
• Pilih Baris Duplikat atau Unik ; . Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
• Exact Copy Beberapa Sel tanpa mengubah referensi rumus; . Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
• Ekstrak Teks , Tambah Teks, Hapus berdasarkan Posisi, Hapus Spasi ; . Convert Between Cells Content and Comments...
• Filter Super (simpan dan terapkan skema filter ke sheet lain); . Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
• Menggabungkan Buku Kerja dan Lembar Kerja ; . Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
• Lebih dari 300 fitur canggih . Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.

Baca selengkapnya. Download Gratis. Pembelian.  

Office Tab Menghadirkan antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Lebih Mudah

• Aktifkan pengeditan dan pembacaan bertab 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 hingga 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari

Baca selengkapnya. Download Gratis. Pembelian.  

Terlama Pertama

Urutkan komentar menurut

Terlama Pertama

Pertama Terbaru

Komentar ( 37 )

Bernilai 5 dari 5 · 1 peringkat

Alicia

sekitar 6 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Cantik, cantik, cantik, terima kasih banyak. Tidak akan pernah bisa memikirkan ini sendiri dan saya sangat menghargai Anda berbagi ini

Membalas

0

0

Dekan Marshall

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya mencari penyortiran otomatis yang sama saat memasukkan data untuk bagan excel saya. Sulit untuk memahami detail dari apa yang telah Anda masukkan di sini sebagai contoh. Saya akan sangat menghargai jika seseorang di sini yang melakukan contoh di atas dapat membantu saya menyortir lembar saya sehingga melakukan hal yang sama. Saya memiliki bagan F1 yang menunjukkan pemenang, dan poin, dan ingin agar ketika poin dimasukkan di sebelah nama pembalap untuk balapan tertentu, total di sisi kanan lembar berada dalam urutan numerik, TANPA . Tampaknya saya tidak dapat menempatkan lampiran bagan saya pada pesan ini, jadi jika Anda dapat mengubah bagan saya untuk saya sehingga ini akan terjadi, saya ingin mendengar dari Anda. Saya dapat mengirimkannya melalui email kepada Anda. Jika Anda dapat membantu dengan ini, silakan kirim email kepada saya di lordmarshall2013@gmail. com dan di baris SUBJECT harap tulis bantuan F1 Excel dan akan membalas dengan bagan terlampir untuk Anda. Terima kasih sebelumnya atas bantuan yang dapat Anda berikan

Membalas

0

0

SK

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ini HEBAT. Ini sangat membantu

Membalas

0

0

Brandon

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Katakanlah saya perlu mengurutkan otomatis kolom "C" dan kolom "D". Bagaimana saya memodifikasi kode untuk mengurutkan kedua kolom?

Membalas

0

0

KeSi     Brandon

sekitar 4 minggu yang lalu

Komentar ini diminimalkan oleh moderator di situs

Weet niet of dit je inmiddels gelukt was, maar voor diegene die het ook nog zouden willen
In de Sub kun je gewoon meerdere keren het IF statement plaatsen, en dan komt het er als volgt uit te zien
Dit kun je uiteraard net zo ver uitbreiden als je wilt. Als je dit los van elkaar wilt doen met bepaalde waardes omdat je bijvoorbeeld met gegevensvalidatie work, and moet je meerdere tablelen doen, omdat die waardes anders met elkaar mee verspringen. (Ik het nodig voor mijn losse gegevensvalidaties, ik heb een extra tabblad aangemaakt waar alle gegevensvalidatielijsten staan)



Sub Worksheet_Change Pribadi (Target ByVal Sebagai Rentang)
Pada Kesalahan Lanjutkan Berikutnya

Jika Tidak Berpotongan(Target, Rentang("A. A")) Bukan Apa-apa Lalu
Rentang("A1"). Sortir Kunci1. =Rentang("A2"), _
Pesanan1. =xlNaik, Tajuk. =xlYa, _
Pesan Kustom. =1, Kasus Pertandingan. =Salah, _
Orientasi. =xlAtasKeBawah
Berakhir jika

Jika Tidak Berpotongan(Target, Rentang("B. B")) Bukan Apa-apa Lalu
Rentang ("B1"). Sortir Kunci1. =Rentang("B2"), _
Pesanan1. =xlNaik, Tajuk. =xlYa, _
Pesan Kustom. =1, Kasus Pertandingan. =Salah, _
Orientasi. =xlAtasKeBawah
Berakhir jika

Jika Tidak Berpotongan(Target, Rentang("C. C")) Bukan Apa-apa Lalu
Rentang("C1"). Sortir Kunci1. =Rentang("C2"), _
Pesanan1. =xlNaik, Tajuk. =xlYa, _
Pesan Kustom. =1, Kasus Pertandingan. =Salah, _
Orientasi. =xlAtasKeBawah
Berakhir jika

Jika Tidak Berpotongan(Target, Rentang("D. D")) Bukan Apa-apa Lalu
Rentang("D1"). Sortir Kunci1. =Rentang("D2"), _
Pesanan1. =xlNaik, Tajuk. =xlYa, _
Pesan Kustom. =1, Kasus Pertandingan. =Salah, _
Orientasi. =xlAtasKeBawah
Berakhir jika

Akhir Sub

Membalas

1

0

niko

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo. Trik yang sangat baik, terima kasih banyak. Di file saya, saya memiliki info penting yang perlu saya lihat di sel A1 dan A2. Oleh karena itu, saya telah menstabilkan semua sel dan nilai saya mulai dari A3 hingga A500. Saat saya menjalankan vba ini, info saya di sel A2 masuk ke sel 501. Bagaimana saya membuatnya mulai dari sel A3?

Membalas

0

0

Rezal

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Baris pertama dikecualikan untuk penyortiran

Membalas

0

0

Kode Merah     Rezal

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Saya memiliki masalah yang sama dan saya menemukan alasannya. Pergi ke baris 5, (Pesanan1. =xlNaik, Tajuk. =xlYa, _). Skrip memberi tahu Excel bahwa sel pertama adalah header, dan karenanya akan mengabaikannya saat penyortiran dilakukan. Jika Anda ingin menyertakan baris pertama, ubah ke baris berikutnya


Pesanan1. =xlNaik, Tajuk. =xlTidak, _

Membalas

Laporan

0

0

Logan

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Menyalin kode persis ke lembar saya di VBA. Tapi tidak ada yang terjadi, apakah saya melewatkan sesuatu?

Membalas

0

0

Tarcisio

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

TERIMA KASIH

Membalas

0

0

Sushant

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Terima kasih untuk kode dan logika. Logika di atas tidak berfungsi saat kita melihat rentang sel yang lebih besar seperti Intersect(Target, Range("B. B,C. CD. D")). Saya ingin jika ada perubahan di sel mana pun di Kolom (B,C atau D), perlu dilakukan resoring

Membalas

0

0

SHABEERALI

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ada yang tau cara setting auto serial no. untuk lembar kerja excel. Nomor harus mengecualikan semua judul dan sub judul, dan harus diatur ulang secara otomatis setelah menambahkan atau menghapus baris

Membalas

0

0

Tang Kelly     SHABEERALI

sekitar 5 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,
Kutools for Excel menyediakan fitur Sisipkan Nomor Urut, yang dapat memasukkan nilai unik dan berturut-turut tidak peduli berapa kali Anda memasukkan
Misalnya, pertama kali Anda memasukkan 1,2,3,4;
Kali kedua fitur ini akan memasukkan 5,6,7,8,9,10
Ketiga kalinya fitur ini akan memasukkan 11,12,…

Membalas

Laporan

0

0

Stefanus

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Meskipun ini adalah kode yang fantastis, saya ingin tahu apakah ada yang bisa membantu saya mengubahnya dari naik ke turun?

Membalas

0

0

Xander     Stephen

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ubah (Pesanan1. =xlNaik, Tajuk. =xlYa, ) Ke (Pesanan1. =xlMenurun, Tajuk. =xlYa, )

Membalas

0

0

Rhea

sekitar 4 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo, saya pengguna Excel perantara. Saya bertanya-tanya apakah seseorang dapat membantu mengarahkan saya untuk apa yang saya coba capai. Inilah yang saya coba lakukan. Urutkan Otomatis dengan Pesanan Khusus

Sedikit tentang spreadsheet saya. Saya punya satu lembar (bernama. Sheet1) yang mencantumkan 16 kolom (A hingga P) dan saat ini 19 baris (jumlah ini akan bertambah jika lebih banyak data dimasukkan). Di kolom terakhir (kolom P) semua sel memiliki menu drop down pilihan (terletak dan ditarik dari lembar dua (bernama "BackEnd"). Pilihan tarik-turun diberi kode warna (menggunakan aturan pemformatan bersyarat)

Apa yang saya harapkan untuk dilakukan. Saat pengguna memasukkan data di baris baru, segera setelah mereka selesai memilih opsi dari menu tarik-turun di kolom P, Excel akan mengurutkan baris baru secara otomatis ke urutan tertentu. Saya telah dapat membuat kode VBA untuk penyortiran otomatis dalam urutan naik dan turun, tetapi saya belum dapat membuat kode untuk menyortir data secara otomatis dalam urutan tertentu. Urutan yang saya inginkan agar data diurutkan adalah

Tidak responsif
Tidak tertarik
Tertarik
Pra-Skrining Tidak Memenuhi Syarat
Kualifikasi Pra-Skrining
aplikasi ditunda
Aplikasi Disetujui
Penilaian Awal
Lingkup Pekerjaan
Perbaikan Rumah Sedang Berlangsung
Tertahan
Menyelesaikan
Lainnya

Apakah ini mungkin? . Terima kasih

Membalas

0

0

Bekir

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai,

Bagaimana saya bisa memulai makro ini setelah saya mengisi semua data ke kolom tertentu?
Saya ingin daftar makro dimulai setelah saya mengisi kotak kosong. Karena ketika saya menggunakan ini, itu mengubah tempat secara tiba-tiba
Saya perlu memulai makro ini setelah saya mengisi data terakhir dari kolom itu (tepatnya 20 data)

Membalas

0

0

Paula

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bolehkah saya bertanya apakah ada cara untuk menggunakan kode VBA ini jika ada rumus di kolom yang ingin Anda urutkan utama

i. e. jika A2 = jumlah f2 + g2+ h2 dan kolom A perlu diurutkan pada jumlah total?

Bantuan apa pun akan dihargai dengan baik sebagai harapan untuk menggunakannya untuk balapan peringkat ketika pemenangnya adalah pemenang dengan total tiga acara balapan

Terima kasih

Membalas

0

0

NABILA ISMAIL     Paula

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

saya juga ingin tahu solusi untuk masalah Paula. tolong bagikan

Membalas

0

0

Stan     Paula

sekitar 1 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Bagi saya itu berhasil mengubah baris ini
Jika Tidak Berpotongan(Target, Rentang("B. B")) Bukan Apa-apa Lalu
Saya pikir kuncinya adalah mengatur Rentang Target ke bidang yang berubah, dan tetap mengurutkan data dengan hasil penjumlahan

Membalas

0

0

Adam     Paula

sekitar 11 bulan yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ini berfungsi untuk saya ketika ada rumus di dalam sel
Sub Worksheet_SelectionChange Pribadi (Target ByVal Sebagai Rentang) Rentang ("B1"). Sortir Kunci1. =Range("B2"), Urutan1. =xlNaik, Tajuk. =xlYa, PesanKustom. =1, Kasus Pertandingan. =Salah, Orientasi. =xlAtasKeBawah
Akhir Sub

Membalas

0

0

kerry

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Ini sangat membantu tetapi saya memiliki 2 baris tajuk (baris 1 dan 2) dan ketika saya menjalankan VBA dibutuhkan baris kedua ke bawah tanggal
bagaimana saya menghentikan ini?

Membalas

0

0

kellytte     kerry

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai kerry,

Ada VBA yang secara otomatis mengurutkan sel di Kolom dengan mengabaikan dua sel header pertama

Sub Worksheet_Change Pribadi (Target ByVal Sebagai Rentang)
Dim xIntRC Sebagai Integer
Redupkan xURg Sebagai Kisaran
Pada Kesalahan Lanjutkan Berikutnya
Jika Tidak Berpotongan(Target, Rentang("B. B")) Bukan Apa-apa Lalu
Jika Tidak Berpotongan(Target, Rentang("B1. B2")) Bukan Apa-apa Kemudian Keluar dari Sub
Atur xURg = Lembar Aktif. Rentang Terpakai
xIntRC = xURg. Baris. menghitung
Rentang("B2. B" & xIntRC). Sortir Kunci1. =Rentang("B3"), _
Pesanan1. =xlNaik, Tajuk. =xlYa, _
Pesan Kustom. =1, Kasus Pertandingan. =Salah, _
Orientasi. =xlAtasKeBawah
Berakhir jika
Akhir Sub

Membalas

Laporan

0

0

Miringkan     kellytte

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Halo, saya tidak beruntung dengan kode langsung di atas dari "kellytte" untuk menyortir sel di Kolom dengan mengabaikan dua sel header pertama. Ada yang bisa bantu saya?

Membalas

0

0

javad     kellytte

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Kode ini memecahkan masalah saya. tetapi saya perlu mengurutkan kolom B & dengan ini Ubah saja kolom A, tidak semua. tolong bantu

Membalas

0

0

edwin

sekitar 3 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Hai, ini mengatur seluruh baris tetapi saya memiliki beberapa tautan pada sel ke dalam folder tertentu yang tertinggal setelah diurutkan

Membalas

0

0

Dan

sekitar 2 tahun yang lalu

Komentar ini diminimalkan oleh moderator di situs

Jadi ini sepertinya berfungsi saat data dimasukkan secara manual tetapi tidak berfungsi saat tabel yang diisi ulang dari file lain. apakah ada cara untuk melakukan itu?

Apakah ada cara untuk mengurutkan otomatis di Excel?

Bagaimana cara membuat spreadsheet secara otomatis mengurutkan?

Bagaimana cara mengurutkan otomatis berdasarkan tanggal dan menyatukan baris di Excel?

Bagaimana cara mengurutkan banyak kolom secara otomatis di Excel?