Question

如果有人能给我一些帮助，我将不胜感激。

我在下面有以下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

提前致谢！

干杯

Answer 1

您的代码循环遍历16384列1500行或24,576,000个单元格。

此代码将搜索范围限制在更小的范围内，并且还使用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

VBA代码需要很长时间才能在Excel中运行

1 个答案: