Xem full màn hình : Tại đây

Tải file mẫu : Tại đây

Chương trình tự động sắp xếp sheets theo thứ tự A,B,C,D…

Code :

‘This code will sort the worksheets alphabetically Sub SortSheetsTabName()

    Application.ScreenUpdating = False

    Dim ShCount As Integer, i As Integer, j As Integer

    ShCount = Sheets.Count

        For i = 1 To ShCount – 1

            For j = i + 1 To ShCount

                If Sheets(j).Name < Sheets(i).Name Then

                Sheets(j).Move before:=Sheets(i)

                End If

            Next j

        Next i

    Application.ScreenUpdating = True

End Sub

Hoạt động : Chương trình sử dụng 2 vòng lặp For để sho sánh từng sheets với
các sheets còn lại nếu tên sheets nhỏ hơn ( tức là có kí tự đằng trước ) thì sẽ chuyển lền trước. 

DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.
DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.
Cám ơn.