Question

我有一个代码经过范围A并找到一个前6个字符作为数字的字符串代码是

Sub FindString()
   Dim A As Range, r As Range
   Set A = Intersect(ActiveSheet.UsedRange, Range("A:A"))
For Each r In A
    If IsNumeric(Left(r.Text, 6)) And InStr(1, r, "Totals:") Then

    MsgBox r.Value

    End If
Next r
End Sub

使用此代码，它将返回所有前6个字符为数字且单词为Totals的单元格：其中

但我想在这段代码中进行更改，该代码通过字符串查找没有单词Totals：in it

Answer 1

试试这个：

If IsNumeric(Left(r, 6)) And 0 = InStr(r, "Totals:") Then
    MsgBox r
End If

查找不包含特定单词

1 个答案: