Bỏ qua nội dung chính

Làm cách nào để sắp xếp trang tính theo thứ tự bảng chữ cái / chữ và số trong Excel?

Thông thường, bạn có thể sắp xếp hoặc sắp xếp thứ tự các tab trang tính trong Excel bằng cách kéo và thả các tab trang tính trên thanh tab trang tính. Nhưng để hoàn thành việc này với nhiều trang tính, bạn có thể xem xét các cách phức tạp sau đây để nhanh chóng sắp xếp các trang tính theo thứ tự bảng chữ cái / chữ và số trong một sổ làm việc lớn.

Sắp xếp trang tính theo thứ tự bảng chữ cái / chữ và số với mã VBA
Sắp xếp trang tính theo thứ tự bảng chữ cái / chữ và số với Kutools cho Excel


Sắp xếp trang tính theo thứ tự bảng chữ cái / chữ và số với mã VBA

Có một macro để sắp xếp trang tính theo alpha được đăng trong Trung tâm hỗ trợ của Microsoft. Chúng ta có thể áp dụng nó theo các bước sau:

1.  Giữ phím tắt ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2.  Nhấp chuột Chèn > Mô-đun, rồi dán macro sau vào Cửa sổ mô-đun.

VBA: Sắp xếp trang tính theo thứ tự bảng chữ cái / chữ và số

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. Nhấn nút F5 phím để chạy macro này. Trong hộp nhắc sau, bấm , tất cả các trang tính sẽ được sắp xếp theo thứ tự bảng chữ cái tăng dần; và bấm vào Không, tất cả các trang tính sẽ được sắp xếp theo thứ tự bảng chữ cái giảm dần.


Sắp xếp trang tính theo thứ tự bảng chữ cái / chữ và số với Kutools cho Excel

Nếu bạn không quen với macro hoặc thích các cách khác, bạn có thể thử Kutools cho Excel. Kutools cho Excel's Sắp xếp trang tính công cụ có thể sắp xếp tất cả các trang tính một cách dễ dàng.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Nhấp chuột Kutools Plus > Bảng > Sắp xếp trang tính. Xem ảnh chụp màn hình:

2. Trong Sắp xếp trang tính hộp thoại, chọn một kiểu sắp xếp mà bạn cần trên ngăn bên phải, chẳng hạn như Sắp xếp Alpha, Sắp xếp số Alpha, và sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Sau đó, tất cả các trang tính được sắp xếp dựa trên kiểu sắp xếp được chỉ định. Xem ảnh chụp màn hình:

doc-sort-sheet6

Kutools cho Excel's Sắp xếp trang tính công cụ có thể nhanh chóng sắp xếp lại tất cả các trang tính trong sổ làm việc đang hoạt động. Nó hỗ trợ một số kiểu sắp xếp, bao gồm Sắp xếp Alpha, Sắp xếp số Alpha, Sắp xếp màu sắcĐảo ngược. Ngoài ra, bạn cũng có thể di chuyển trang tính lên / xuống và đặt lại việc sắp xếp.

  Nếu bạn muốn dùng thử miễn phí (30 ngày) tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Demo: Sắp xếp tất cả các trang tính theo thứ tự bảng chữ cái / chữ và số


Bài viết liên quan:

Sắp xếp các tab trang tính theo màu sắc

Công cụ năng suất văn phòng tốt nhất

🤖 Trợ lý AI của Kutools: Cách mạng hóa việc phân tích dữ liệu dựa trên: Thực thi thông minh   |  Tạo mã  |  Tạo công thức tùy chỉnh  |  Phân tích dữ liệu và tạo biểu đồ  |  Gọi các hàm Kutools...
Các tính năng phổ biến: Tìm, đánh dấu hoặc xác định các bản sao   |  Xóa hàng trống   |  Kết hợp các cột hoặc ô mà không làm mất dữ liệu   |   Vòng không có công thức hữu ích. Cảm ơn !
Siêu tra cứu: Nhiều tiêu chí VLookup    VLookup Nhiều Giá Trị  |   VLookup trên nhiều trang tính   |   Tra cứu mờ ....
Danh sách thả xuống nâng cao: Tạo nhanh danh sách thả xuống   |  Danh sách thả xuống phụ thuộc   |  Danh sách thả xuống nhiều lựa chọn ....
Trình quản lý cột: Thêm một số cột cụ thể  |  Di chuyển cột  |  Chuyển đổi trạng thái hiển thị của các cột ẩn  |  So sánh dãy và cột hữu ích. Cảm ơn !
Các tính năng nổi bật: Tiêu điểm lưới   |  Chế độ xem thiết kế   |   Thanh công thức lớn    Trình quản lý sổ làm việc & trang tính   |  Thư viện tài nguyên (Văn bản tự động)   |  Bảng chọn ngày   |  Kết hợp các bảng tính   |  Mã hóa/Giải mã ô    Gửi email theo danh sách   |  Siêu lọc   |   Bộ lọc đặc biệt (lọc in đậm/nghiêng/gạch ngang...) ...
15 bộ công cụ hàng đầu12 bản văn CÔNG CỤ (thêm văn bản, Xóa ký tự,...)   |   50 + Biểu đồ Các loại (Biểu đồ Gantt,...)   |   40+ Thực tế Công thức (Tính tuổi dựa trên ngày sinh,...)   |   19 chèn CÔNG CỤ (Chèn mã QR, Chèn ảnh từ đường dẫn,...)   |   12 Chuyển đổi CÔNG CỤ (Số thành từ, Chuyển đổi tiền tệ,...)   |   7 Hợp nhất & Tách CÔNG CỤ (Các hàng kết hợp nâng cao, Chia ô,...)   |   ... và nhiều hơn nữa

Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian.  Bấm vào đây để có được tính năng bạn cần nhất...

Mô tả


Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!

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