More than 3 years have passed since last update.

マクロでオートフィルタを掛ける

ExcelVBA

Last updated at 2020-03-01Posted at 2020-03-01

オートフィルタ

Sub Macro1()
    Worksheets("book1").activate

    'オートフィルタを設定 
    'Field:=2  番号によりフィルタ項目を指定 
    '絞り込みオプションが複数ある場合、配列を用意
    ActiveSheet.Range("$A$1:$BA$137934").AutoFilter Field:=2, Criteria1:=Array( _
        "オプション1", "オプション2", "オプション3", _
        Operator:=xlFilterValues

    '複数フィルタ項目を指定したい場合
     Worksheets("book1").Range("A8").AutoFilter Field:=4, Criteria1:="=単語1"
     Worksheets("book1").Range("A8").AutoFilter Field:=7, Criteria1:="単語2"

    'フィルタ結果をコピーし、book2のセルH1に貼り付け
    Worksheets("book1").Range("AE8").CurrentRegion.Copy _
    Worksheets("book2").Range("H1")

    'オートフィルタを解除
    Worksheets("book1").AutoFilterMode = False
End Sub

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up