Ẩn Các Hàng Hạng Mục nhánh con Tự Động

[Takehi_JP]

Em Chào Anh Chị GPE, em có cái excel mà nó dài quá, em muốn ẩn nhanh chống , tự động, hoặc cách thứ nào nhanh nhất có thể, để ẩn các hạng mục con dưới các mục mẹ nhờ Anh Chị chỉ giúp ạ.
em có gữi file kèm theo.

Chân Thành Cảm ơn !

 

[Hoàng Tuấn 868]

Em Chào Anh Chị GPE, em có cái excel mà nó dài quá, em muốn ẩn nhanh chống , tự động, hoặc cách thứ nào nhanh nhất có thể, để ẩn các hạng mục con dưới các mục mẹ nhờ Anh Chị chỉ giúp ạ.
em có gữi file kèm theo.

Chân Thành Cảm ơn !

Thử cách này xem sao.

 

[Maika8008]

Em Chào Anh Chị GPE, em có cái excel mà nó dài quá, em muốn ẩn nhanh chống , tự động, hoặc cách thứ nào nhanh nhất có thể, để ẩn các hạng mục con dưới các mục mẹ nhờ Anh Chị chỉ giúp ạ.
em có gữi file kèm theo.

Chân Thành Cảm ơn !

Bạn chạy code này:

Sub HideRows()
    Dim rw&, EndR&, aData, Rng As Range
    EndR = Range("D" & Rows.Count).End(xlUp).Row
    aData = Range("A1:D" & EndR).Value
    For rw = 3 To UBound(aData)
        If aData(rw, 1) = "" Then
            If Rng Is Nothing Then
                Set Rng = Cells(rw, 1)
            Else
                Set Rng = Union(Rng, Cells(rw, 1))
            End If
        End If
    Next
    Rng.EntireRow.Hidden = True
End Sub

 

[fastfood10]

Em Chào Anh Chị GPE, em có cái excel mà nó dài quá, em muốn ẩn nhanh chống , tự động, hoặc cách thứ nào nhanh nhất có thể, để ẩn các hạng mục con dưới các mục mẹ nhờ Anh Chị chỉ giúp ạ.
em có gữi file kèm theo.

Chân Thành Cảm ơn !

Không phải chỉ cần dùng Filter rồi cột A bỏ tích Blank là được rồi sao bạn ?

 

[Takehi_JP]

cảm ơn Anh Chị, em ngộ ra được cái ngu của mình rồi ạ