找一個實際的？ 在 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 行中，它起作用了