khi sử dụng cấu trúc IF với đoạn code của mình như sau thì mình thấy dòng

Nguyên tắc trước khi ẩn là bạn phải mở ẩn trước.
Đầu tiên cần mở ẩn tất cả các dòng trong sheet (chú ý là toàn bộ nhé). Lệnh này đặt trước khi xét vòng lặp For cho biến i.
Sau đó bạn mới kiểm tra và ẩn những dòng thỏa mãn điều kiện.

vâng. nhưng khi chạy tới Sheets("Danh_Muc").Range("B" & i + 4 & ":B" & i + 5, "B" & i + 7 & ":B" & i + 9).EntireRow.Hidden = True thì dòng "B" & i + 6 cũng bị ẩn đi luôn ạ. có cách nào chọn ẩn đúng B i + 4, B i + 5, B i + 7, B i + 8, B i + 9 không ạ?
mình không làm được nên phải làm thế này ạ:
Sub Loc_phieu_kiem_tra()
Dim dongcuoi_locphieu As Long
dongcuoi_locphieu = Sheets("Danh_Muc").Range("A" & Rows.Count).End(xlUp).Row
Dim i As Long
For i = 18 To dongcuoi_locphieu
If Sheets("Danh_Muc").Range("G" & i).Value = "VK" Then
Sheets("Danh_Muc").Range("B" & i + 6 & ":B" & i + 11).EntireRow.Hidden = True
ElseIf (Sheets("Danh_Muc").Range("G" & i).Value = "bt") Or (Sheets("Danh_Muc").Range("G" & i).Value = "bts") Then
Sheets("Danh_Muc").Range("B" & i + 4 & ":B" & i + 5, "B" & i + 7 & ":B" & i + 9).EntireRow.Hidden = True '''''tới đây là ẩn một phát từ "B" & i + 4 tới ":B" & i + 9''''
Sheets("Danh_Muc").Range("B" & i + 6).EntireRow.Hidden = False ''''Nên mình phải chèn dòng này''''
ElseIf (Sheets("Danh_Muc").Range("G" & i).Value = "") And (Sheets("Danh_Muc").Range("d" & i).Value <> "") Then
Sheets("Danh_Muc").Range("B" & i + 4 & ":B" & i + 11).EntireRow.Hidden = True
End If
Next i
End Sub

Chào bạn bạn làm hướng code như sau, ẩn đi hết các dòng rồi bạn hiện dòng range("B"&i+6) lên bạn nhé. hoặc bạn đẩy file lên nhé.