我开发了一个 VBA 宏，用于刷新 5 个 SAP AAO 查询，然后通过删除重复项将这些查询数据分别复制到表中，然后加载到电源查询中。在那里我添加了一些计算列，然后将该数据加载到电源支点中。
我还使用下面提到的 VBA 代码在每个工作表中执行一些操作，但是目前运行代码需要 4 多分钟。
在这 4 分钟内，至少 45 秒用于刷新 AAO 查询，剩余时间宏正在运行（包括刷新电源查询）
我仍在学习 VBA，因此我select / activate在代码中使用了宏记录器代码和工作表。我知道这不是正确的方法，因为我不知道除此之外更好的选择。由于这些事情，宏需要更多的时间来运行。
如果我不使用select代码来选择工作表，那么我会收到一条错误消息并且代码没有运行。
如果有人能帮我优化这段代码就太好了，这样就可以减少执行宏操作的时间。
Sub Refresh_AAO_Query()
Dim MyArray, i
Dim Sht, Sht1, Sht2, Sht3, Sht4, Sht5 As Worksheet
Dim OPs_Model_Data, OPs_Data, Sales_Data, Threats_Data, RE_Turnover, RE_LY As Worksheet
Dim Message As String
Dim LastRow1, LastRow2, LastRow3, LastRow4, LastRow5, LastRow6, LoB_LastRow, LoB_LastRow1, LoB_LastRow2, LoB_LastRow3, LastColumn1, LastColumn2, LastColumn3, LastColumn4, LastColumn5, LastColumn6, LastColumn7 As Long
Dim LoB, LoB1, …