查找實際？在excel vba

Question

我需要找到一個實際的？在一系列細胞中。我正在使用此代碼：

Dim rCell As Range 
    Dim rArea As Range 

' set range variable = Column in the active sheet. 
    Set rCell = Range("g1") 
    Set rArea = Range("g2:g" & countusers) 
    For Each rCell In rArea 
    With rCell 
    Dim Qmark As Integer 
     If InStr(1, (rCell.Value), "~?") > 0 Then 
     MsgBox "Cell " & rCell.Address & "has a question mark in it" 
     Qmark = Qmark + 1 
     End If 

我把〜放在問號的前面，但它不工作。 在此先感謝

Answer 1

我想通了。我補充說：

Dim SearchChar as String 
SearchChar = "?" 

然後換成「〜？」在與SearchChar InStr行，它的工作