非表示の方法

Sub 非表示行処理() Dim ws As Worksheet Dim lastRow As Long Dim i As Long ' 対象のシートを設定 Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を変更 ' データが入力されている最終行を取得 lastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row ' 3はC列の列番号 ' 行を非表示にするループ For i = 1 To lastRow If ws.Cells(i, 3).Value = "" Then ' 3はC列の列番号 ws.Rows(i).Hidden = True End If Next i End Sub