【エクセルマクロ】数値が0の行を非表示にする2選：動画あり

エクセルマクロで、数値が0の行を非表示にするVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

数値が0の行を非表示にする

以下のExcelVBAを実行すると、数値が0の行を非表示にします。

Sub 数値がゼロの行を非表示()
 
    Dim i As Long
    Dim LastRow As Long
 
    '最終行
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
    '行をループ
    For i = LastRow To 1 Step -1
        If Cells(i, 2) = "0" Then
         
            '行を非表示
            Rows(i).Hidden = True
         
        End If
    Next i
 
End Sub

 
値がゼロの行を一括で非表示にしました。

数値が0の行を非表示にする（複数セルを判定）

以下のExcelVBAを実行すると、数値が0の行を一気に非表示にします。

Sub 数字がゼロの行を一括非表示()
 
    Dim i As Long
    Dim j As Long
    Dim LastRow As Long
    Dim LastClm As Long
         
    '最終列
    LastClm = Range("A1").End(xlToRight).Column
 
    '最終行
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
    '行をループ
    For i = LastRow To 1 Step -1
     
        '列をループ
        For j = 2 To LastClm
                
            '値が0だったら
            If Cells(i, j) = "0" Then
                 
                '最終列まで0だったら
                If j = LastClm Then
                 
                    '行を非表示
                    Rows(i).Hidden = True
                End If
            
            Else
                '値に0以外があったら、次の行へ
                Exit For
            End If
         
        Next j
    Next i
 
End Sub

 
行の値が0の場合、その行を非表示にしました。

下図ではマクロ結果が分かりやすいように、

「0」のセルに色付けしてから、マクロを動作させています。

 
 
この記事がお役に立ちますと幸いです。
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

エクセルマクロで、ワークシートの追加・削除を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.09.03