|
おはようございます。
オートフィルタの方を少し修正しました。
これも試してみてください。
Sub test()
Dim rng As Range, r1 As Range, r2 As Range
Application.ScreenUpdating = False
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Cells(1, 1).AutoFilter Field:=1
Set rng = Range("A2", Range("A65536").End(xlUp))
'
Cells(1, 1).AutoFilter Field:=1, Criteria1:="=a", Operator:=xlOr, _
Criteria2:="=b"
Set r1 = rng.SpecialCells(xlCellTypeVisible).Rows
'
Cells(1, 1).AutoFilter
Cells(1, 1).AutoFilter Field:=1, Criteria1:="=c"
Set r2 = rng.SpecialCells(xlCellTypeVisible).Rows
'
Cells(1, 1).AutoFilter
rng.EntireRow.Hidden = True
Union(r1, r2).EntireRow.Hidden = False
Cells(1, 1).AutoFilter
End Sub
|
|