excel - 在Excel中,VBA代码需要较长时间才能运行

  显示原文与译文双语对照的内容

如果有人能提供给我一些帮助,会很感激。

下面的VBA代码如下所示

  • 在Excel工作表中查看指定范围
  • 当它找到一个与今天匹配的细胞时,它就会选择那个细胞

问题是,这段代码正在查找 1500行,以查找今天的日期,这需要一些时间。 关于我如何提高速度的任何想法? 这是我的代码:


Dim DateRng As Range, DateCell As Range
Set DateRng = Range("1:1500")
For Each DateCell In DateRng
If DateCell.Value = Date Then DateCell.Select
Next

提前致谢!

cheers!

时间: 作者:

代码通过 1500行或者 24,576,000单元格循环遍历 16384列。

这里代码将搜索区域限制在更小的范围内,并使用 Range.Find 方法。 我想你会找到更快的。


Sub FindDate()
Dim DateRng As Range, DateCell As Range

Set DateRng = Range("A1:A1500")
With DateRng
 Set DateCell =. Find(Date)
 If Not DateCell Is Nothing Then
 DateCell.Select
 End If
End With
End Sub

作者:
...