Sắp xếp lại danh sách học sinh

[PhanTuHuong]

Có những trường hợp, bạn phải thu thập danh sách học sinh và sắp xếp lại theo danh sách. Công việc này sẽ rất vất vả khi số lượng học sinh lớn hay do sự quản lý của mỗi giáo viên chủ nhiệm là khác nhau.
Tôi xin giới thiệu cách sắp xếp lại (trường hợp này bỏ qua ô trống, còn các điều kiện khác như số thứ tự, điểm lẫn vào ... thì bạn tự bổ sung). Ví dụ danh sách như hình vẽ ở dưới:

Sau đó bạn dùng chương trình này để xếp theo thứ tự:

Sub Sap_xep()
    Dim Vung, Dat, Ho_ten As Range
    Dim Ten_chuyen As String
    Dim i As Integer
    i = 1
        Set Vung = Application.InputBox("Vung sap xep lai ho va ten:", Type:=8)
        Set Dat = Application.InputBox("Chon diem dat de xep lai ho va ten:", Type:=8)
        For Each Ho_ten In Vung
            If Not Ho_ten = "" Then
                Dat.Cells(i, 1) = Ho_ten
                i = i + 1
            End If
        Next
End Sub