看起来你已经找对了方向——用Worksheet_Calculate事件来捕捉Power Query刷新后的单元格更新，但现有代码的逻辑还没到位。我帮你修正并完善代码，直接实现你要的功能：

第一步：先设置Power Query的自动刷新频率 #

首先得确保你的Power Query查询能每分钟自动刷新：

• 右键Excel里的Power Query查询（通常在【数据】选项卡的【查询和连接】面板里）
• 选择【属性】，勾选【刷新频率】，设置为1分钟，确定后A2就会每分钟自动更新了。

第二步：修正后的VBA事件代码 #

把以下代码粘贴到对应工作表的模块里（右键工作表标签 → 【查看代码】，然后粘贴）：

Private Sub Worksheet_Calculate()
    ' 关闭事件触发，防止循环执行
    Application.EnableEvents = False
    
    ' 定义变量存储A2和B2的值，避免重复读取单元格
    Dim valA2 As Variant
    Dim valB2 As Variant
    
    valA2 = Me.Range("A2").Value
    valB2 = Me.Range("B2").Value
    
    ' 核心逻辑：如果A2大于B2，更新B2为A2的值
    If valA2 > valB2 Then
        Me.Range("B2").Value = valA2
    End If
    
    ' 重新开启事件触发，确保后续刷新能正常触发代码
    Application.EnableEvents = True
End Sub

代码关键点解释 #

• Application.EnableEvents = False：必须加这一行，不然当我们修改B2的值时，会再次触发Worksheet_Calculate事件，导致代码无限循环执行。
• 使用变量存储单元格值：比直接多次调用Range("A2").Value更高效，也避免了单元格值在代码执行过程中意外变化的问题。
• 核心比较逻辑：只在A2确实大于B2时才更新B2，否则什么都不做，完全符合你的需求。
• 最后一定要恢复Application.EnableEvents = True：不然后续的刷新、计算都不会触发事件了。

注意事项 #

• 代码必须放在工作表模块里，不能放在标准模块（比如Module1），否则Worksheet_Calculate事件不会生效。
• 你的Excel文件需要保存为.xlsm格式（启用宏的工作簿），不然宏会被禁用。
• 确保Excel的宏安全设置允许启用宏（可以在【文件】→【选项】→【信任中心】→【信任中心设置】里调整）。

内容的提问来源于stack exchange，提问作者Monkey Bunny