Nhờ anh chị giúp sắp xếp lại dữ liệu

[lealong]

Em có file data kết quả xsmb vài năm nên dữ liệu cũng khá nhiều, e muốn sắp xếp theo thứ tự như hàng bên phải sau phần tô màu vang, Đây là file VBA lấy dữ liệu xs bình dương mà e tải về trên forums trước đây, nhưng hiện tại bị error 404, anh chị chỉ giúp e nguyên nhân bị lỗi và fix lại giúp e, Thanks tất cả mọi người

 

[CHAOQUAY]

Em có file data kết quả xsmb vài năm nên dữ liệu cũng khá nhiều, e muốn sắp xếp theo thứ tự như hàng bên phải sau phần tô màu vang, Đây là file VBA lấy dữ liệu xs bình dương mà e tải về trên forums trước đây, nhưng hiện tại bị error 404, anh chị chỉ giúp e nguyên nhân bị lỗi và fix lại giúp e, Cảm ơn tất cả mọi người

Có thấy code nào trong file đâu bạn.
Nếu chỉ sort như file thì chạy thử

Sub Sort()
Dim Nguon
Dim Kq() As String
Dim i, j, k
Nguon = Sheet1.Range("A1").CurrentRegion
ReDim Kq(1 To 27, 1 To 1)
Kq(27, 1) = Nguon(2, 2)
For i = 3 To UBound(Nguon)
    j = 2
    Do While Nguon(i, j) <> ""
        k = k + 1
        Kq(k, 1) = Nguon(i, j)
        j = j + 1
    Loop
Next i
With Sheet1
    .Range("K2").Resize(27, 1).ClearContents
    .Range("K2").Resize(27, 1) = Kq
End With
End Sub

 

[lealong]

Cảm ơn anh CHAOQUAY đã giúp nhưng khi e copy code dán vào module khi chạy code thì
1. bị lỗi run time error 9(subscript out of range)
2. e muốn đảo ngược data năm 2017 lên đầu tiên
e thử sửa nhưng trình còn kém nên a sửa lại giúp e, tiện thể a xem code lấy kqxs binhduong bị lỗi 404 là do bị web chặn ko cho lấy data nữa phải ko ạ

 

[CHAOQUAY]

Cảm ơn anh CHAOQUAY đã giúp nhưng khi e copy code dán vào module khi chạy code thì
1. bị lỗi run time error 9(subscript out of range)

bạn dán vào file sapxepdulieu.xlsx của bài 1 mà chạy vì đây là file đầu tiên bạn đính kèm & tôi làm cho file này

 

[lealong]

Ok a . Cảm ơn anh ah