Hoàn thiện code ẩn dòng không phát sinh

[bebeen]

Chào AC! Em muốn nhờ anh chị hoàn thiện cho em code ẩn những dòng dữ liệu không có phát sinh?

 

[phulien1902]

Chào AC! Em muốn nhờ anh chị hoàn thiện cho em code ẩn những dòng dữ liệu không có phát sinh?

Bạn chép cái này vào nhé:

Sub bebeen()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    Set WorkRng = Application.Sheets("TH_HANGNHAP").Range("D7:D1000")
    For Each Rng In WorkRng
        If Rng.Value = "0" Then
            Rng.EntireRow.Hidden = True
        End If
    Next
End Sub

 

[doveandrose]

Public Sub hello()
S11.Range("A7:E10000").AutoFilter 4, ">0"
End Sub

 

[SA_DQ]

Thêm 1 tham khảo cho bạn:

Xài mảng thay vì hàm SUMPRODUCT() trong VBA