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 宏中的查找和替换功能中起作用