如何修改VBA代码，仅当指定单元格变更时刷新Power Query

没问题，咱们直接调整这段VBA代码就可以实现需求——只有当你指定的过滤用关键单元格发生变更时，才触发Power Query的刷新，而不是工作表任意单元格变动都执行。

修改后的VBA代码示例 #

假设你的关键过滤单元格是当前工作表的A1（你可以根据实际情况替换成自己的单元格地址，比如B2、D5等）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义你的关键过滤单元格，这里示例为当前工作表的A1
    Dim triggerCell As Range
    Set triggerCell = Me.Range("A1")
    
    ' 检查变更的单元格是否包含关键单元格
    If Not Intersect(Target, triggerCell) Is Nothing Then
        ' 仅在关键单元格变更时刷新所有查询
        ThisWorkbook.RefreshAll
        ' 如果你只想刷新特定的Power Query，而不是全部，可以替换成下面这行
        ' ThisWorkbook.Queries("你的查询名称").Refresh
    End If
End Sub

代码关键部分解释 #

• triggerCell变量：用来指定你作为过滤条件的那个特定单元格，把Me.Range("A1")改成你实际使用的单元格地址即可（如果单元格在其他工作表，写成Sheets("工作表名称").Range("单元格地址")）。
• Intersect(Target, triggerCell)：这个函数用来判断用户修改的单元格范围（Target）和你的关键单元格是否有重叠——只有当用户刚好修改了关键单元格时，这个判断才会返回非空值，进而执行刷新操作。
• 可选：刷新特定查询：如果你不想刷新工作簿里所有的查询，只想刷新和过滤相关的那一个，把ThisWorkbook.RefreshAll替换成ThisWorkbook.Queries("你的查询名称").Refresh，记得把引号里的名称改成你Power Query的实际名称。

注意事项 #

• 这段代码要放在包含关键单元格的那个工作表的代码模块里（和你原来放Worksheet_Change的位置一样）。
• 如果用户一次性选中多个单元格修改，只要其中包含关键单元格，代码依然会触发刷新，这个逻辑是合理的。

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