CÁCH SẮP XẾP SHEET TRONG EXCEL

MÃ CODE
Max code tớ ghim dưới phần bình luận nhé!
Cảm ơn mn mong mọi người tiếp tục ủng hộ kênh

[YoutubeTVONE]

Rất hữu ích nhanh gọn đơn giản Alt+F11 rồi Pate mã >> run >> xong

[noinhovohinh]

Gửi các bạn mã cod

Sub SheetAscending()

For i = 1 To Application.Sheets.Count
For j = 1 To Application.Sheets.Count - 1
If > UCase$(Application.Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next
Next
MsgBox "Xong"

End Sub