如何检查字符串是否出现在工作表中*两次* Excel VBA？

Question

我试图检查某个字符串是否出现在给定的工作表上两次。到目前为止，我只能检查字符串是否出现一次：

$(this).css({
  width : "500px",
  height : 500,                // or Number if px are the expected unit
  backgroundColor : "#ffb2b2"
});

如何检查UsedRange以查看该值是否出现两次？这需要是一个宏（到目前为止我找到了这样做的公式）。

Answer 1

找到第一个匹配项时设置一个标志，然后检查标志是否已设置：

Dim first As Boolean
For Each curr In wb.Worksheets(1).UsedRange
    If InStr(1, curr.Value, searchString) > 0 Then
        If first Then MsgBox ("searchString appears twice")
        first = True
    End If
Next

Answer 2

If WorksheetFunction.CountIf(Worksheets(1).UsedRange, "*" & searchString & "*") > 1 Then 
    MsgBox searchString & " appears more than once"
End If