VBA sort nhiều lần

[chaukimsa]

Tôi có bài thống kê cần ghi lại kết quả khi sort từng cột , khi làm thủ công thì rất dài bài viết , rất mong được hướng dẩn tạo code cho ngắn lại ,thành thật biết ơn và chúc các quý anh chị được nhiều sức khoẻ và nhiều thuận lợi

 

[CHAOQUAY]

Tôi có bài thống kê cần ghi lại kết quả khi sort từng cột , khi làm thủ công thì rất dài bài viết , rất mong được hướng dẩn tạo code cho ngắn lại ,thành thật biết ơn và chúc các quý anh chị được nhiều sức khoẻ và nhiều thuận lợi

Số liệu trong E5:CY104 là 0; 1 hay là còn số nào khác

 

[Phuocam]

Tôi có bài thống kê cần ghi lại kết quả khi sort từng cột , khi làm thủ công thì rất dài bài viết ,

Thử code sau:

Sub Sort2()
Dim i As Long
Sheet1.Select
With Range("A5", Range("CY" & Rows.Count).End(xlUp))
    For i = 103 To 5 Step -1
        .sort Cells(5, i), xlDescending
        Cells(5, i - 1).Copy: Cells(3, i - 1).PasteSpecial
    Next i
Application.CutCopyMode = False
End With
End Sub

 

[chaukimsa]

Số liệu trong E5:CY104 là 0; 1 hay là còn số nào khác

vâng mình chỉ có bao nhiêu thống kê đó thôi , thành thật cảm ơn.

 

[chaukimsa]

Thử code sau:

Sub Sort2()
Dim i As Long
Sheet1.Select
With Range("A5", Range("CY" & Rows.Count).End(xlUp))
    For i = 103 To 5 Step -1
        .sort Cells(5, i), xlDescending
        Cells(5, i - 1).Copy: Cells(3, i - 1).PasteSpecial
    Next i
Application.CutCopyMode = False
End With
End Sub

Cám ơn nhiều ,mình thấy chạy được lắm .....hihiihihi !