Tag: runtime

从过滤的数据的最小值的行中删除filter/复制数据时，优化代码以更快获得乐趣

我有第1页（115行）第1和第2列的数据。 这些是我的参考价值。 我在ActiveSheet（10000+）列3和4中有数据。 这些是我的原始数据值。 我有下面的代码将find最接近的原始数据值的参考值通过取得差异，find0和15分钟之间的值，find最小值，并从该行复制到另一个位置的其他数据。 我在过程中使用了2个自动filter来为每个参考值做这个，所以它发生了115次。 我的问题如下： 是添加/删除filter减慢我的search？ 我应该只查看所有10,000个数据值，而不是先在同一天过滤？ 当我find过滤列表的最小值的值时，是否有更好的方法来快速复制同一行的其他列的数据？ 我在这段代码的最后添加了一个计时器来帮助量化。 我希望你能帮助！ Sub UpdatedTimeMatcherwithFilters() 'Make the code as fast as possible Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim MinValue, MinRow As Integer Dim searchRange, Rng As Range Dim elapsedTime As Integer startTime = Time Set searchRange = Range("G1:G1697") 'Count the reference values TotalRefVal = Worksheets("Sheet1").Cells(Rows.Count, […]