A列全体に対し、特定のキーワードを消去

Sub prcRemoveSpecificKeywordsInColumnA()

    Dim wks As Worksheet
    Dim arrKeywordsToRemove As Variant
    Dim i As Integer

    ' 使用するワークシートの設定
    Set wks = ThisWorkbook.Sheets("Sheet1")

    ' 消去するキーワードの配列を設定
    arrKeywordsToRemove = Array("キーワード1", "キーワード2", "キーワード3")

    ' A列のデータ範囲を設定（A列全体）
    Dim rng As Range
    Set rng = wks.Columns(1)

    ' 配列の各キーワードに対して置換を実行
    For i = LBound(arrKeywordsToRemove) To UBound(arrKeywordsToRemove)
        rng.Replace What:=arrKeywordsToRemove(i), Replacement:="", _
                    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
    Next i
End Sub