列の表示と非表示

Sub 非表示()

    Dim i As Long
    
    For i = 2 To 50
    
      If Cells(i, 3) = "非稼働" Then
      
          Rows(i).Hidden = True
    
      End If
    
    Next i

End Sub

Sub 表示()

    Dim i As Long
    
    For i = 2 To 50
    
      If Cells(i, 3) = "非稼働" Then
      
          Rows(i).Hidden = False
    
      End If
    
    Next i

End Sub