excel - 文字を検索して置換

Question

この「。」を置き換えてみました。「@」「?」列「D」のBAD文字を赤で強調表示しますが、これには何かが欠けています。誰か助けてください。
ありがとう。

Sub Finding()
    Cells.Select
    Selection.Replace What:=".", Replacement:="BAD Character", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("D2").Select
End Sub

Answer 1

あなたのコードは機能します。以下のコードを使用して、不正な文字をループ処理できます。

Sub Finding()

    Dim badChar As String, str_bad As String
    badChar = ".@"

    For i = 1 To Len(badChar)
        str_bad = Mid(badChar, i, 1)
        Columns(4).Replace What:=str_bad, Replacement:="BAD Character", LookAt:=xlPart, _
                           SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

    Next
End Sub

VBAマクロの検索および置換機能でワイルドカードを機能させる