Code Lọc dữ liệu

[chiendich]

Đệ nhờ các sư huynh giúp hoàn thiện thêm code này với.

 

[quanluu]

Đệ nhờ các sư huynh giúp hoàn thiện thêm code này với.

Sub loc1()
    Dim lr As Integer
    Range("B6:J1000").Clear
    With Sheets("Data")
        .Range(.[A4], .[I65536]).AdvancedFilter 2, [D1:D2], [B5:j5]
    End With
    lr = Range("B65000").End(3).Row
    Range("B5:J" & lr + 1).Borders.LineStyle = xlContinuous
    Range("B6:B" & lr) = "=row() - 5"
    Range("B" & lr + 1) = "Tong cong"
    Range("D" & lr + 3) = "Nguoi lap"
    Range("H" & lr + 3) = "Thu truong don vi"
    Range("I" & lr + 1) = "=sum(I6:I" & lr & ")"
End Sub