查找的字符並替換

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