做while while循环并且条件不起作用

时间:2017-11-21 16:16:01

标签: vba excel-vba excel

我正在使用while循环并且AND条件无法正常工作

For Each y In ws.Range("C1:C" & ws.Range("A1000000").End(xlUp).Row)
    If InStr(y, "Total") > 0 Then
        i = -1
        Do While (InStr(ws.Range("C" & y.Row).Offset(i, 0), Right(y, Len(y) - InStr(y, " "))) = 0 And InStr(ws.Range("C" & y.Row).Offset(i, 0), "%)") = 0)
            i = i - 1
        Loop
    End If
Next y

第二个instr不工作,我得到误报。基本上,代码找到一个以total开头的单词,然后它取出" Total"之后的字符串。并寻找那个词,但这个词也应该有"%)"在其中

1 个答案:

答案 0 :(得分:1)

您没有正确使用InStr功能。

  

语法

InStr( [start], string, substring, [compare] )