Làm thế nào để sắp xếp các sheet trong file Excel theo thứ tự abc kí tự đầu tên của mỗi sheet nhỉ?
tks,
tks,
Nhay chuot phai vao cua so trang sheet, chon rename sau do danh ten moi theo thu tu 123 hoac abc tuy thich
Hy vong da tra loi cau hoi cua ban
Sub SortWorksheets()
Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean
SortDescending = False
If ActiveWindow.SelectedSheets.Count = 1 Then
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
Else
With ActiveWindow.SelectedSheets
For N = 2 To .Count
If .Item(N - 1).Index <> .Item(N).Index - 1 Then
MsgBox "You cannot sort non-adjacent sheets"
Exit Sub
End If
Next N
FirstWSToSort = .Item(1).Index
LastWSToSort = .Item(.Count).Index
End With
End If
For M = FirstWSToSort To LastWSToSort
For N = M To LastWSToSort
If SortDescending = True Then
If UCase(Worksheets(N).Name) > UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
Else
If UCase(Worksheets(N).Name) < UCase(Worksheets(M).Name) Then
Worksheets(N).Move Before:=Worksheets(M)
End If
End If
Next N
Next M
End Sub
COPY DOAN CODE TREN
->MO FILE EXEL Can sap xep worksheet ra
->NHAN ALT+F11
->HIEN MAN HINH VP...
->VAO INSERT->MODULE->PASTE VAO MAN HINH HIEN RA
->DONG VP... LAI
VAO THE TOOL->MACROO->MACROS->ENTER
HAY TA BAM TO HOP PHIM ALT+F8->ENTER
Ok, để mình thử.@ketoan4mat:
Bây giờ mới trả lời ko biết có muộn ko? Mình sử dụng ASAP Utilities ( Phiên bản trial) để sắp xếp các sheet trong file Excel. Học tập các sư phụ ở Diễn đàn Giải pháp Excel & Download tại đó. Lâu quá mình ko nhớ nằm ở chỗ nào nữa. Bạn thử vào link này nhé :
Asap Utilities
(Trước đây mình vào topic khác và đã có nhắn Thanks. Nhưng ở topic này ko có)
Mình thường sử dụng ASAP Utilities để xóa name rác.