Sub HideFilterArrows()
Dim filterRange As Range ' フィルター対象範囲
Dim colIndex As Long ' ループ用カウンター
Dim ws As Worksheet
Set ws = ActiveSheet
Set filterRange = ws.Range("F5:I14") ' 見出し行を含む範囲を指定
'----- すべての列で矢印を非表示 -----
With filterRange
For colIndex = 1 To .Columns.Count
.AutoFilter Field:=colIndex, VisibleDropDown:=False
Next colIndex
'----- 特定列(例:2 列目)だけ抽出条件を設定し矢印を表示 -----
.AutoFilter Field:=2, Criteria1:="Shizuoka", VisibleDropDown:=True
End With
End Sub