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

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