VBA フィルター矢印を特定列のみ表示する

　　実務では、データ分析する際、フィルターがよく使われています。その際、フィルターの矢印が見出しの内容を隠してしまうことが、あったりします。それを回避するため、フィルターをかける列のみ、矢印を表示する方法を見て行きましょう。

 

フィルター矢印を特定列のみ表示する

 

Sub test()

    '　フィルター矢印を特定列のみ表示する
    Dim i As Long
    Dim R As Range
　　’セルA１を含むデータ範囲を変数Rに代入
    Set R = Range("A1").CurrentRegion

    With R
　　　’　データの各列にループをかけ、矢印を非表示する
        For i = 1 To .Columns.Count
            .AutoFilter i, visibleDropDown:=False
        Next i

　　　　’４列にフィルターをかけ、「女」に絞り込む+矢印を再表示

        .AutoFilter Field:=4, Criteria1:="女", visibleDropDown:=True
    End With

End Sub

 

実行結果
 
 
 
 
 
関連記事