0

我正在处理一些数据,通过搜索列表并打印出与我正在寻找的条件匹配的单元格的行号。我InStr用来做这个 - 这可以用来搜索多个项目吗?

我尝试过“或”、“与”等,但它们似乎不起作用,而且我正在寻找很多标准,所以不希望有很多 If 语句。

For Each cell In SrchRng
    If InStr(1, cell.Value, "A" or "B") > 0 Then


   'Print row number...

     End If
Next cell

End Sub

运行时错误“13”类型不匹配

发生上述情况。实际输出将是出现“A”或“B”的行号。

4

1 回答 1

0

您可以尝试添加以缩短您的代码,也可能使其更具可读性:

If InStr(1, cell.Value, "A") + _
   InStr(1, cell.Value, "B") > 0 Then
     'do stuff
End If
于 2019-08-16T18:41:27.273 回答