Excel VBA 不要データを一時的に非表示｜見やすさや操作性を向上する方法

以下のシーンで利用します。

1.特定の行を一時的に非表示にする（例: 空白行や不要なデータを隠す）

2.フィルターのように特定の条件に合う行のみを表示する。

3.データを整理して、必要な部分だけを表示する。

4.ボタンやマクロで行の表示/非表示を切り替える。

Option Explicit

Sub HideRow5() '標準モジュール
    Rows(5).Hidden = True
End Sub

指定した行の表示/非表示を切り替える

Option Explicit

Sub ToggleRow5() '標準モジュール
    Rows(5).Hidden = Not Rows(5).Hidden
End Sub

選択した行を非表示にする

Option Explicit

Sub HideSelectedRow() '標準モジュール
    If Not TypeOf Selection Is Range Then
        MsgBox "セルを選択してください。", vbExclamation, "エラー"
        Exit Sub
    End If

    Selection.EntireRow.Hidden = True
End Sub

A列が空白の行を非表示にする

Option Explicit

Sub HideEmptyRows() '標準モジュール
    Dim ws As Worksheet
    Dim i As Long
    
    Set ws = ActiveSheet
    For i = ws.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
        If ws.Cells(i, 1).Value = "" Then
            ws.Rows(i).Hidden = True
        End If
    Next i
End Sub

B列に「非表示」という文字がある行を非表示にする

Option Explicit

Sub HideRowsWithKeyword() '標準モジュール
    Dim ws As Worksheet
    Dim i As Long
    Dim keyword As String

    Set ws = ActiveSheet
    keyword = "非表示"

    For i = ws.Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
        If ws.Cells(i, 2).Value = keyword Then
            ws.Rows(i).Hidden = True
        End If
    Next i
End Sub

ユーザーに非表示にする行番号を入力させる

Option Explicit

Sub HideRowByUserInput() '標準モジュール
    Dim rowNum As Variant
    
    rowNum = InputBox("非表示にする行番号を入力してください", "行非表示")
    
    If Not IsNumeric(rowNum) Or rowNum < 1 Then
        MsgBox "有効な行番号を入力してください。", vbExclamation, "エラー"
        Exit Sub
    End If
    
    Rows(CLng(rowNum)).Hidden = True
End Sub

シートの全行を表示する（非表示を解除）

Option Explicit

Sub UnhideAllRows() '標準モジュール
    Rows.Hidden = False
End Sub