Xin trợ giúp code giúp ẩn các dòng dữ liệu trống

[MANHTS]

Em chào các bác
Em có 1 biểu mẫu tại shet BAOCAO khi xuất dữ liệu ra thì có những dòng trống không có dữ liệu em muốn có 1 nút để ẩn các dòng đó đi nhưng em không biết cách làm
rất mong các bác giúp em (em có kèm theo file)
em chân thành cảm ơn!

 

[BuiQuangThuan]

Em chào các bác
Em có 1 biểu mẫu tại shet BAOCAO khi xuất dữ liệu ra thì có những dòng trống không có dữ liệu em muốn có 1 nút để ẩn các dòng đó đi nhưng em không biết cách làm
rất mong các bác giúp em (em có kèm theo file)
em chân thành cảm ơn!

Thử code này coi

Sub AnDong()
Dim rng As Range, Vung As Range
Set Vung = Sheets("PHIEUBAOCAO").Range("D16:D50")
Vung.EntireRow.Hidden = False
Application.ScreenUpdating = False
For Each rng In Vung
    If rng.Value = "" Then
        rng.EntireRow.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[MANHTS]

Thử code này coi

Sub AnDong()
Dim rng As Range, Vung As Range
Set Vung = Sheets("PHIEUBAOCAO").Range("D16:D50")
Vung.EntireRow.Hidden = False
Application.ScreenUpdating = False
For Each rng In Vung
    If rng.Value = "" Then
        rng.EntireRow.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

em cảm ơn bác nhiều ạ

Bài đã được tự động gộp: 27/1/21

Thử code này coi

Sub AnDong()
Dim rng As Range, Vung As Range
Set Vung = Sheets("PHIEUBAOCAO").Range("D16:D50")
Vung.EntireRow.Hidden = False
Application.ScreenUpdating = False
For Each rng In Vung
    If rng.Value = "" Then
        rng.EntireRow.Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub

tuyệt vời bác à, em xin chân thành cảm ơn bác

 

[Maika8008]

Em chào các bác
Em có 1 biểu mẫu tại shet BAOCAO khi xuất dữ liệu ra thì có những dòng trống không có dữ liệu em muốn có 1 nút để ẩn các dòng đó đi nhưng em không biết cách làm
rất mong các bác giúp em (em có kèm theo file)
em chân thành cảm ơn!

Cách khác:

Sub AnDongTrong()
Application.ScreenUpdating = False
With Sheet2
    .Range("D16:D50").EntireRow.Hidden = False
    .Range("D" & .Range("D65536").End(xlUp).Offset(1).Row & ":D50").EntireRow.Hidden = True
End With
End Sub