我首先想到的非环版本要做到这一点(循环简单得多),是使用匹配(),但如果你有多个值使用A = Q或同日在那里,你可能会遇到一个问题。
Dim i,j as Integer
i=Application.Match(RefCell1,LookUp1,0).Row
j=Application.Match(RefCell2,LookUp2,0).Row
If i=j Then
HdrRow=i
Else
End If
我特别没有使那个匹配场景的If语句条件更容易阅读和编辑。
使用这种方法,您会遇到存在多个相同值的问题。这个是匹配单个吧
另一种方法是使用嵌套的if语句:
Dim i as integer
i=Application.Match(RefCell1,LookUp1,0).Row
If Application.IfError(i,0)>0 Then
If Cells(i,"Q").Value=http://cn.voidcc.com/question/Cells(RefCell1Row,"A").Value
HdrRow=i
Else
End If
Else
End If
最后,我还是希望推荐一个循环,这样就可以评估每行线,这将建立在第二种方法。
标签:满足条件,vba,End,Dim,Else,Application,多列,Match,Row From: https://www.cnblogs.com/Insist-Y/p/17011762.html