Sub FilterContainsKeyword()
Dim tblRange As Range ' フィルター対象
Set tblRange = Worksheets("Sheet1").Range("F3").CurrentRegion ' 見出し行を含む範囲
'--- 列 4(H 列)で「森」を含む行を抽出 ---
tblRange.AutoFilter Field:=4, Criteria1:="=*森*"
End Sub
2. 特定の文字列を含まない行だけ抽出する例
Sub FilterExcludesKeyword()
Dim tblRange As Range
Set tblRange = Worksheets("Sheet1").Range("F3").CurrentRegion
'--- 列 4(H 列)で「森」を含まない行を抽出 ---
tblRange.AutoFilter Field:=4, Criteria1:="<>*森*"
End Sub