查找字符并替换

【问题标题】：Find characters and replace查找字符并替换
【发布时间】：2013-07-10 12:23:42
【问题描述】：

我试图替换这个 '.' '@' '?'在“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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：