Giúp code sắp sếp dữ liệu ( loại bỏ dòng trống ) (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em cần 1 đoạn Code để sắp sếp dữ liệu ( loại bỏ dòng trống, dữ liệu tự nâng lên từ dưới lên ). chi tiết em có gửi trong file. rất mong mọi người giúp đở. Em xin chân thành cảm ơn !

 

[minhtuan55]

Em tự mò và chỉnh lại giờ cũng ok rồi, Mọi người xem em làm vậy đúng không ?

Sub Locbokhoantrang()
 Dim Arr()
 Dim J As Long, Col As Byte, W As Long
 Arr() = Range("b4:f43").Value ' [COLOR=#b22222]input[/COLOR]
 ReDim dArr(1 To UBound(Arr()), 1 To 5)
Range("M4:Q170").ClearContents ' [COLOR=#b22222]reset ouput[/COLOR]
For J = 1 To UBound(Arr())
    If Arr(J, 1) <> "" Then ' [COLOR=#b22222]dieu kien co the thay doi[/COLOR]
        W = W + 1
        For Col = 1 To 5
            dArr(W, Col) = Arr(J, Col)
        Next Col
    End If
 Next J
On Error Resume Next
Range("m4").Resize(W, 5).Value = dArr() [COLOR=#b22222] ' output[/COLOR]


End Sub

Chào cả nhà GPE !
Em cần 1 đoạn Code để sắp sếp dữ liệu ( loại bỏ dòng trống, dữ liệu tự nâng lên từ dưới lên ). chi tiết em có gửi trong file. rất mong mọi người giúp đở. Em xin chân thành cảm ơn !

 

[befaint]

Sử dụng pivot table...