Loncat ke daftar isi utama

Bagaimana cara mengurutkan lembar kerja dalam urutan abjad / alfanumerik di Excel?

Biasanya Anda dapat mengurutkan atau menyusun urutan tab lembar kerja di Excel dengan menyeret dan menjatuhkan tab lembar pada bilah tab lembar. Tetapi untuk menyelesaikan ini dengan beberapa lembar kerja, Anda dapat mempertimbangkan cara rumit berikut untuk mengurutkan lembar kerja dengan cepat dalam urutan alfabet / alfanumerik dalam buku kerja besar.

Urutkan lembar kerja dalam urutan abjad / alfanumerik dengan kode VBA
Urutkan lembar kerja dalam urutan abjad / alfanumerik dengan Kutools for Excel


Urutkan lembar kerja dalam urutan abjad / alfanumerik dengan kode VBA

Ada makro untuk mengurutkan lembar kerja berdasarkan alfa yang diposting di pusat Dukungan Microsoft. Kami dapat menerapkannya dengan langkah-langkah berikut:

1.  Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2.  Klik Menyisipkan > Modul, dan lalu tempelkan makro berikut di file Jendela Modul.

VBA: Mengurutkan lembaran dalam urutan abjad / alfanumerik

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. tekan F5 kunci untuk menjalankan makro ini. Di kotak prompt berikut, klik Ya Yes, semua lembar kerja akan disortir menurut urutan abjad; dan klik Tidak, semua lembar kerja akan diurutkan menurut urutan abjad.


Urutkan lembar kerja dalam urutan abjad / alfanumerik dengan Kutools for Excel

Jika Anda tidak terbiasa dengan makro atau lebih suka cara lain, Anda dapat mencoba Kutools untuk Excel. Kutools untuk Excel's Sortir Lembar alat dapat menyortir semua lembar kerja dengan mudah.

Sebelum melamar Kutools untuk Excel, Mohon unduh dan instal terlebih dahulu.

1. Klik Kutools Ditambah > Lembar Kerja > Sortir Lembar. Lihat tangkapan layar:

2. di Sortir Lembar kotak dialog, pilih satu jenis pengurutan yang Anda perlukan di panel kanan, seperti Sortir Alfa, Urutan Numerik Alfa, lalu klik OK tombol. Lihat tangkapan layar:

Kemudian semua lembar kerja diurutkan berdasarkan jenis pengurutan yang ditentukan. Lihat tangkapan layar:

lembar-sortir-dokumen6

Kutools untuk Excel's Sortir Lembar alat dapat dengan cepat mengatur ulang semua lembar kerja di buku kerja yang aktif. Ini mendukung beberapa jenis penyortiran, termasuk Sortir Alfa, Urutan Numerik Alfa, Sortir Warna dan Membalikkan. Selain itu, Anda juga dapat memindahkan lembar kerja ke atas / bawah, dan mengatur ulang pengurutan.

  Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Demo: Urutkan semua lembar kerja dalam urutan abjad / alfanumerik


Artikel terkait:

Urutkan tab lembar kerja berdasarkan warna

Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!

Comments (81)
Rated 5 out of 5 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou por茅m com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como est谩 acima
Ele respeita a ordem somente a cada 10

Algu茅m sabe como corrigir? Olhei no font da macro mas n茫o encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations