通过Excel数据选项卡获取数据后，如何回写内容至源Excel文件？

手动同步法（适合偶尔操作） #

• 打开combined.xlsx，找到你修改过的目标工作表，选中所有需要同步的数据区域（确保和源文件的表头、数据结构完全匹配）
• 用Ctrl+C复制选中内容
• 打开对应经理的源Excel文件（OneDrive本地同步路径下的文件）
• 选中源文件工作表的对应数据区域（若要覆盖全部数据，直接选中表头起始的所有数据行，或用Ctrl+A全选）
• 右键选择粘贴选项 -> 值和数字格式，避免格式冲突导致数据异常
• 保存源文件，OneDrive会自动完成云端同步

VBA自动同步法（适合频繁同步场景） #

如果需要多次同步，用VBA可以节省操作时间：

1. 打开combined.xlsx，按下Alt+F11打开VBA编辑器
2. 右键点击左侧工程窗口中的combined.xlsx，选择插入 -> 模块
3. 粘贴以下代码，替换代码中的工作表名称和源文件路径为你的实际信息：

Sub SyncToSourceFile()
    Dim combinedWs As Worksheet
    Dim sourceWb As Workbook
    Dim sourceWs As Worksheet
    Dim sourceFilePath As String
    Dim syncRange As Range
    
    ' 替换为你修改的汇总表工作表名称
    Set combinedWs = ThisWorkbook.Worksheets("经理A工作表")
    ' 替换为OneDrive本地同步的源文件路径
    sourceFilePath = "C:\Users\YourName\OneDrive\经理A专属文件.xlsx"
    
    Set sourceWb = Workbooks.Open(sourceFilePath)
    Set sourceWs = sourceWb.Worksheets(1) ' 源文件仅单个工作表，取第一个
    
    ' 选中汇总表中所有已使用的数据区域
    Set syncRange = combinedWs.UsedRange
    syncRange.Copy
    
    ' 粘贴值和格式到源文件
    sourceWs.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False
    
    ' 保存并关闭源文件
    sourceWb.Save
    sourceWb.Close
    
    MsgBox "数据已同步至源文件！"
End Sub

4. 返回Excel界面，按下Alt+F8，选择SyncToSourceFile执行即可完成自动同步

注意事项 #

• 必须保证汇总表对应工作表和源文件的数据结构完全一致（列数、表头顺序、数据行对应关系），否则会出现数据错位
• 确保OneDrive本地同步正常（右下角图标无红色叉号或同步错误提示），否则云端文件无法及时更新
• 使用VBA时，需允许Excel启用宏（打开文件时的安全提示中选择启用宏）

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