查找实际？在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行，它的工作