オートフィルタを設定、特定キーワードで抽出

Sub prcFilterForContinuation()
    ' 機能概要: シートAのA列にオートフィルタを設定し、「●」という文字が含まれるセルを表示
    ' 引数: なし
    ' 備考: フィルタの基準は「続」を含む

    Dim ws As Worksheet

    ' シートAを設定
    Set ws = ThisWorkbook.Sheets("SheetA")

    ' A列にオートフィルタを設定
    ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row).AutoFilter

    ' 「続」という文字を含むセルでフィルタリング
    ws.Range("A1:A" & ws.Cells(ws.Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=1, Criteria1:="=*●*", _
        Operator:=xlAnd

End Sub