[已解决]如行定位到有条件的当前日期行

fggf

数据库中行数太多，如何才能快速定位到D列为“定报”且B列为当前日期或者是将来的日期的所在行。 定位问题.zip (9.72 KB, 下载次数: 6)

2016-7-31 20:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

scl5801

2016-7-31 23:25

Sub dq()
   x = Range("b65536").End(xlUp).Row
   For i = 3 To x
      If Cells(i, 2) > Now And Cells(i, 4) = "定报" Then
         r = i
         Exit For
      End If
   Next i
   Range("b" & r).Select
End Sub

跳转到最佳答案楼层

scl5801

Sub dq()
   x = Range("b65536").End(xlUp).Row
   For i = 3 To x
      If Cells(i, 2) > Now And Cells(i, 4) = "定报" Then
         r = i
         Exit For
      End If
   Next i
   Range("b" & r).Select
End Sub