Mình dùng đoạn code của concogia rất hữu ích. Nhưng cho hỏi thêm để mình có thể sử dụng nhiều hơn. Cụ thể: " Dấu đi những dòng rổng trong bảng dữ liệu có nhiều sheep, và mỗi sheep thì căn cứ vào các cột khác nhau chứa dữ liệu rổng để dấu dòng đó"?? để mình kem file. Thank!!
Thử phương án này xem sao:
[GPECODE=vb]Sub HideRows()
Dim Rng As Range, i As Long, Arr
Const Col As String = "C.G.H.E.J"
Application.ScreenUpdating = False
Arr = Split(Col, ".")
For i = 1 To Sheets.Count
With Sheets(i)
For Each Rng In Intersect(.UsedRange, .Columns(Arr(i - 1)))
Rng.EntireRow.Hidden = (Rng = "")
Next
End With
Next
Application.ScreenUpdating = True
End Sub[/GPECODE]
Bạn thích ẩn cột nào thì cứ nhập vào hằng Col theo thứ tự sheet từ trái sang phải nhé.
Với code trên, nếu hàng nào có giá trị ở cột tương ứng là "" thì sẽ ẩn đi, ngược lại thì sẽ hiện lại.
