我有一个代码正在通过范围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
使用此代码,它将返回所有前六个数字为数字且单词为Totals的单元格:
但我想在此代码中进行更改,以查找没有单词Totals的字符串:
尝试这个:
If IsNumeric(Left(r, 6)) And 0 = InStr(r, "Totals:") Then
MsgBox r
End If
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句