查找字符并替换

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

Getting wildcards to work in find and replace function in VBA macro