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