Xóa và sắp xếp lại dữ liệu trong bảng tính theo điều kiện (1 người xem)

[baihocdt]

Chào các bạn, các bạn giúp mình viết 1 đoạn code trong VBA để có thể tự động xóa các dữ liệu theo điều kiện cho trước và dồn các dữ liệu còn lại lên phần đầu của bảng tính nhé. Mình có gửi kèm theo file đính kèm, các bạn xem giúp mình nhé. Cảm ơn các bạn.

 

[Ba Tê]

Chào các bạn, các bạn giúp mình viết 1 đoạn code trong VBA để có thể tự động xóa các dữ liệu theo điều kiện cho trước và dồn các dữ liệu còn lại lên phần đầu của bảng tính nhé. Mình có gửi kèm theo file đính kèm, các bạn xem giúp mình nhé. Cảm ơn các bạn.

Thử với code này xem sao, muốn gán nó nào nút nào thì bạn tự làm.

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long
Rng = Range([A2], [A65000].End(xlUp)).Resize(, 6).Value
ReDim Arr(1 To UBound(Rng, 1), 1 To 6)
For I = 1 To UBound(Rng, 1)
    If Rng(I, 6) > 0 Then
        K = K + 1
        Arr(K, 1) = K
        For J = 2 To 6
            Arr(K, J) = Rng(I, J)
        Next J
    End If
Next I
Range("A2:F1000").ClearContents
If K Then Range("A2").Resize(K, 6).Value = Arr
End Sub