嘿，这个需求我太熟悉了！手动复制粘贴确实麻烦，Excel其实有专业的方法来实现Power Query处理后的数据导出回原数据源，分两种场景给你详细说：

CSV是文本格式，直接用Power Query操作比较方便：

• 先在master.xls的Power Query编辑器里确认合并后的数据没问题，然后点击左上角的**「关闭并上载至」**（别点默认的「关闭并上载」）。
• 在弹出的对话框中，选择「仅创建连接」，勾选「加载后刷新数据」，点击确定。
• 回到Excel主界面，切换到「数据」选项卡，点击「连接」，找到刚才创建的查询连接。
• 右键点击该连接→「属性」，在「定义」选项卡复制下「命令文本」里的M代码（或者直接回到Power Query编辑器复制整个查询的M代码）。
• 打开你要覆盖的one.csv文件，进入Power Query新建空白查询，把复制的M代码粘贴进去，运行查询确认数据正确。
• 最后点击「关闭并上载至」，选择「表」，指定加载位置覆盖原表格，保存文件就完成了。

Excel文件直接覆盖容易出问题，用VBA更稳定还能自动化：

• 打开master.xls，按Alt+F11打开VBA编辑器。
• 插入新模块，粘贴下面的代码（记得替换里面的参数）：

Sub ExportToOriginalExcel()
    Dim targetQuery As WorkbookQuery
    Dim targetWorkbook As Workbook
    Dim targetSheet As Worksheet
    
    ' 替换成你合并后的查询名称
    Set targetQuery = ThisWorkbook.Queries("合并查询")
    ' 替换成目标文件的完整路径
    Set targetWorkbook = Workbooks.Open("C:\YourPath\two.xls")
    ' 替换成目标工作表名称
    Set targetSheet = targetWorkbook.Sheets("Sheet1")
    
    ' 清空目标表原有数据
    targetSheet.Cells.Clear
    
    ' 将查询结果加载到目标表
    With targetSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=" & targetQuery.Name & _
        ";Extended Properties=""""" _
        , Destination:=targetSheet.Range("A1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [" & targetQuery.Name & "]")
        .Refresh BackgroundQuery:=False
    End With
    
    ' 保存并关闭目标文件
    targetWorkbook.Save
    targetWorkbook.Close
End Sub

• 替换好查询名、文件路径和工作表名后，运行这个宏，就能自动把合并数据导出到two.xls里了。

额外提醒 #

• 处理CSV时要注意编码一致性，避免导出后出现乱码；
• 如果需要定期自动导出，可以把VBA宏和Excel的「数据刷新」事件绑定，实现全自动化。

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