Excel同工作簿跨工作表转移单元格数据及清空源表的VBA代码咨询

关于工作表引用的疑问解答 #

工作表名称和编号两种引用方式都可以正常使用，更推荐用工作表名称引用：只要你不手动修改工作表的名称，代码不会因为拖拽调整工作表顺序、新增/删除其他工作表失效，稳定性远高于编号引用。

完整可直接使用的VBA代码 #

代码已经包含你提到的source（源表）、destination（目标表）相关定义，每一步都加了注释方便你理解：

Sub TransferData()
    ' 声明源工作表、目标工作表对象
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    
    ' 绑定对应工作表，直接用表名引用，如果你改了表名替换引号内的名称即可
    Set sourceSheet = ThisWorkbook.Sheets("Sheet2")
    Set destinationSheet = ThisWorkbook.Sheets("Sheet1")
    
    ' 转移第一组数据：Sheet2的I7 → Sheet1的E5
    destinationSheet.Range("E5").Value = sourceSheet.Range("I7").Value
    ' 转移第二组数据：Sheet2的C8 → Sheet1的E6
    destinationSheet.Range("E6").Value = sourceSheet.Range("C8").Value
    
    ' 清空Sheet2所有输入内容（仅清空单元格值，保留原有格式；需要连格式一起清空可以把ClearContents改成Clear）
    sourceSheet.Cells.ClearContents
    
    ' 可选：操作完成弹出提示，不需要可以删掉这行
    MsgBox "数据转移完成，已清空源表输入内容", vbInformation
End Sub

新手绑定按钮触发的操作步骤 #

• 打开你的Excel工作簿，按Alt + F11快捷键调出VBA编辑器
• 在左侧项目管理器右键点击你的工作簿名称，依次选择「插入」→「模块」
• 把上面的代码完整粘贴到弹出的空白模块窗口，关闭VBA编辑器即可
• 回到Excel的Sheet1（仪表盘页），点击「开发工具」选项卡 →「插入」→「表单控件（按钮）」
• 在页面上拖动鼠标画好按钮的大小，松开后在弹出的「指定宏」窗口里选择TransferData，点击确定即可
• 后续直接点击你创建的按钮，就能自动完成数据转移+清空源表的操作

注意事项 #

• 如果需要保留Sheet2里的固定表头、公式，不要用sourceSheet.Cells.ClearContents，可以改成指定输入区域清空，比如sourceSheet.Range("A1:Z100").ClearContents，只清空你用来输入内容的范围
• 首次运行前建议先备份工作簿，避免误操作丢失历史数据

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