If Application.IfError(i,0)>0 Then If Cells(i,"Q").Value=http://cn.voidcc.com/question/Cells(RefCell1Row,"A").Value HdrRow=i End If End If

最后,我还是希望推荐一个循环,这样就可以评估每行线,这将建立在第二种方法。