Excel宏数据检索耗时过长求助：优化INDEX+MATCH代码

核心优化思路 #

针对60000行数据的检索效率问题，从减少无效计算、替换低效查找方式、降低Excel交互开销三个方向优化：

1. 缩小数据引用范围，避免整列扫描 #

原代码中G:G、C:C、B:B是整列引用，会让Evaluate处理大量空行数据。先获取实际数据的最后行号，限定引用范围：

Dim lastRow As Long
lastRow = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row '以B列为准获取最后数据行

'修改后的Evaluate语句（仅作为过渡优化，更优方案见下）
OT = Evaluate("INDEX('" & ws2.Name & "'!G2:G" & lastRow & ", MATCH(C4&""-""&A" & startRow + i & "-DAY(A" & startRow + i & ")+1,'" & ws2.Name & "'!C2:C" & lastRow & "&""-""&'" & ws2.Name & "'!B2:B" & lastRow & ", 0))")

2. 用VBA字典替换INDEX/MATCH，实现O(1)快速查找 #

Evaluate结合函数循环查找本质是多次工作表函数调用，效率极低。改用字典预存所有匹配键值对，循环时直接取值：

'在代码开头声明字典（需先勾选"Microsoft Scripting Runtime"引用，或用CreateObject）
Dim dataDict As New Dictionary
Dim r As Long
Dim keyStr As String

'预加载数据到字典
For r = 2 To lastRow
    keyStr = ws2.Cells(r, "C").Value & "-" & ws2.Cells(r, "B").Value
    If Not dataDict.Exists(keyStr) Then
        dataDict(keyStr) = ws2.Cells(r, "G").Value
    End If
Next r

'循环取值时直接调用字典
Dim targetKey As String
targetKey = Range("C4").Value & "-" & (Range("A" & startRow + i).Value - Day(Range("A" & startRow + i).Value) + 1)
If dataDict.Exists(targetKey) Then
    OT = dataDict(targetKey)
Else
    OT = "" '或处理未找到的情况
End If

注：若未勾选引用，可替换为Set dataDict = CreateObject("Scripting.Dictionary")

3. 关闭Excel交互特性，减少运行开销 #

在宏执行前后添加以下代码，禁止屏幕刷新和事件触发：

'宏开头
Application.ScreenUpdating = False
Application.EnableEvents = False

'宏结尾（务必恢复，避免影响后续操作）
Application.ScreenUpdating = True
Application.EnableEvents = True

内容的提问来源于stack exchange，提问作者Priyantha Gamini