SẮP XẾP TĂNG DẦN CHO CỘT B2, CÓ SỐ DÒNG VÀ SỐ CỘT DI ĐỘNG CHO TẤT CẢ CÁC SHEEET

[Thúy Sa]

Em chào anh chị.
Em cần anh chị giúp đỡ về viết code " sắp xếp giá trị tăng dần cho cột B2, có số dòng và số cột di động, cho toàn bộ workbook bằng VBA.
Em cám ơn.

 

[Maika8008]

Em chào anh chị.
Em cần anh chị giúp đỡ về viết code " sắp xếp giá trị tăng dần cho cột B2, có số dòng và số cột di động, cho toàn bộ workbook bằng VBA.
Em cám ơn.

Thử chạy xem:

Sub SapXep()
    Dim Sh As Worksheet
    Dim Frw&, Lcol&, Lrw&
    Application.ScreenUpdating = False
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Activate
        If Range("B2") = "" Then Frw = 3 Else: Frw = 2
        Lrw = Cells(Frw, 2).End(xlDown).Row
        Lcol = Sh.Cells(1, Columns.Count).End(xlToLeft).Column + 1
        Range(Cells(Frw, 1), Cells(Lrw, Lcol)).Sort Range("B" & Frw), xlAscending
    Next
    Application.ScreenUpdating = True
End Sub

 

[VetMini]

Cái bệnh tiêu đề viết hoa này có tính truyền nhiễm khá cao.
Mới bữa trước có gac nọ làm là mấy ngày nay thấy bà con bắt đầu theo rần rần.