|
▼まろにゃ さん:
今晩は。
先日、ichinoseさんが回答されていたと思いますので、ご参考まで
A列に
'Data1
'a
'b
'c
'ab
'bc
'ac
'abc
'とデータをセットして試されては。
Sub test()
Dim rng As Range, rng2 As Range
Cells(6, 1).AutoFilter field:=1, Criteria1:="=a", Operator:=xlOr, _
Criteria2:="=b"
Set rng = Range("A6", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Rows
Cells(6, 1).AutoFilter
Cells(6, 1).AutoFilter field:=1, Criteria1:="=c"
Set rng2 = Range("A6", Range("A65536").End(xlUp)).SpecialCells(xlCellTypeVisible).Rows
Cells(6, 1).AutoFilter
Range("A6", Range("A65536").End(xlUp)).EntireRow.Hidden = True
Union(rng, rng2).EntireRow.Hidden = False
Cells(6, 1).AutoFilter field:=1
Cells(6, 1).AutoFilter
End Sub
|
|