hide บรรทัดที่เป็นค่าว่าง

[March201711]

อยากจะ hide บรรทัดตั้งแต่ C5 : E18 ต้องปรับ code vba อย่างไร ทำแล้วไม่ได้ค่ะ

Sub hide_col()

Code: Select all

 Sheets("sheet1").Select
   On Error Resume Next
        With Worksheets("Sheet1")
            .Columns(1).Cells.EntireRow.Hidden = False
            .Range(.Range("C5").End(xlDown), .Range("C" & .Rows.Count) _
            .End(xlUp)).SpecialCells(xlCellTypeBlanks) _
            .EntireRow.Hidden = True
        End With

End Sub

[puriwutpokin]

ตัวอย่างโค้ดครับ

Code: Select all

Sub hide_col()


Sheets("sheet1").Select
   On Error Resume Next
        With Worksheets("sheet1")
            .Columns(1).Cells.EntireRow.Hidden = False
            .Range("C5:C18").SpecialCells(xlCellTypeBlanks) _
            .EntireRow.Hidden = True
        End With

End Sub