嘿，我来帮你搞定这个自动留存更新记录的需求！根据你的描述，咱们可以用Excel的VBA宏来实现这个功能，步骤清晰，跟着做就行：

一、前期准备 #

• 先把你的工作簿另存为.xlsm格式（因为要启用宏功能，普通.xlsx不支持）
• 确认好两个工作表的名字：假设你带自动查询的表叫数据源，要存历史记录的表叫历史记录（名字可以改，后面代码对应调整就行）

二、编写VBA宏代码 #

1. 按Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里，找到你的工作簿，右键点击它 → 插入 → 模块
3. 把下面的代码粘贴到模块里：

Sub SaveUpdateRecord()
    Dim sourceSheet As Worksheet
    Dim historySheet As Worksheet
    Dim latestData As Range
    Dim targetCol As Integer
    
    ' 指定工作表，这里替换成你实际的表名
    Set sourceSheet = ThisWorkbook.Worksheets("数据源")
    Set historySheet = ThisWorkbook.Worksheets("历史记录")
    
    ' 找到历史表的最后一列，+1就是要新增的列
    targetCol = historySheet.Cells(1, Columns.Count).End(xlToLeft).Column + 1
    
    ' 获取数据源里的所有已用数据（如果你的数据范围固定，比如A1:D20，就改成sourceSheet.Range("A1:D20")）
    Set latestData = sourceSheet.UsedRange
    
    ' 复制数据到历史表的新列
    latestData.Copy Destination:=historySheet.Cells(1, targetCol)
    
    ' 给新列加个更新时间标记，方便识别
    historySheet.Cells(1, targetCol) = "Updated: " & Now()
End Sub

4. 调整代码细节：如果你的工作表名字不是数据源和历史记录，替换引号里的内容；如果数据范围不是整个已用区域，把sourceSheet.UsedRange改成你实际的单元格范围（比如sourceSheet.Range("A2:D100")，跳过表头的话）

三、设置查询更新后自动触发宏 #

1. 回到Excel主界面，点击「数据」选项卡 → 「查询和连接」，弹出侧边栏
2. 在侧边栏里找到你的自动更新查询，右键点击它 → 「属性」
3. 在属性窗口里，勾选「刷新后运行宏」，然后从下拉菜单里选择我们刚写的SaveUpdateRecord宏
4. 点击确定，搞定！

四、测试验证 #

手动刷新一次查询（右键查询 → 刷新），看看历史记录表是不是新增了一列带最新数据和更新时间的记录。如果一切正常，以后每次查询自动更新完成后，都会自动把数据存到新列里啦！

如果你的数据结构比较特殊（比如有合并单元格、动态变化的数据源范围），可以补充细节，我再帮你调整代码~

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