|
▼亜矢 さん:
> これを3つの会社以外(黒猫、佐川、西濃)のものを絞りこむ方法
AutoFilterではないですが、AdvancedFilterで複雑な条件を指定できます。
ただし、条件はシートに書き込みます。
(以下は AA,AB,AC 列に 条件を書きこむものとします)
AA AB AC
1 会社名 会社名 会社名
2 <>*ヤマト* <>*佐川* <>*西濃*
3
Sub advTest()
Dim rt As Range
Dim rc As Range
Set rt = Range("A5").CurrentRegion
Set rc = Range("AA1").Resize(2, 3) 'AA列以降に条件を書きこむ
rc.Rows(1).Formula = "=$A$5" 'A列タイトル「会社名」
rc(2, 1).Formula = "<>*ヤマト*"
rc(2, 2).Formula = "<>*佐川*"
rc(2, 3).Formula = "<>*西濃*"
rt.AdvancedFilter xlFilterInPlace, rc
End Sub
これなら条件がいくつでも可能です。
|
|