Excel VBA新手求助：如何实现点击按钮自动复制K9/K10数据至左侧表格新行

嗨，作为VBA新手就想着用自动化提升效率，这点真的很棒！针对你把K9、K10的数据复制到左侧表格新行的需求，我整理了一套简单易上手的方案，跟着步骤来就能轻松搞定👇

第一步：添加触发按钮 #

• 打开你的Excel文件，点击顶部菜单栏的「开发工具」选项卡（如果没看到这个选项卡，去Excel设置里勾选「显示开发工具选项卡」就行）
• 点击「插入」→ 选择「表单控件」里的「按钮（窗体控件）」
• 在表格空白处拖动鼠标画出按钮，弹出「指定宏」窗口时点击「新建」，自动打开VBA编辑器

第二步：编写VBA代码 #

把编辑器里的默认代码替换成下面这段：

Sub AddDataToLeftTable()
    Dim targetSheet As Worksheet
    Dim lastDataRow As Long
    
    ' 指定要操作的工作表，把"Sheet1"改成你实际的表名
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 自动找到左侧表格的最后一行（假设左侧表格以A列为基准，按需修改列标）
    lastDataRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 把K9、K10的数据填入新行的对应列，这里填A、B列，按需调整目标列
    targetSheet.Cells(lastDataRow, "A").Value = targetSheet.Range("K9").Value
    targetSheet.Cells(lastDataRow, "B").Value = targetSheet.Range("K10").Value
    
    ' 可选：自动复制上一行的格式/公式，保持表格一致性
    targetSheet.Rows(lastDataRow - 1).Copy
    targetSheet.Rows(lastDataRow).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False ' 清除复制状态
    
    MsgBox "数据已成功添加到新行！", vbInformation
End Sub

代码关键部分说明 #

• Set targetSheet = ThisWorkbook.Worksheets("Sheet1")：一定要把"Sheet1"改成你实际使用的工作表名称，不然代码会找不到目标表
• lastDataRow = ... +1：这段是核心，自动定位左侧表格的最后一行，+1就是要新增的空白行位置，如果你左侧表格的关键列不是A列，把代码里的"A"改成对应列标（比如"C"）
• 列映射部分：Cells(lastDataRow, "A")是新行的目标列，你可以根据自己的需求改成其他列（比如"D"对应第4列）

第三步：测试功能 #

回到Excel界面，点击你创建的按钮，就能看到K9、K10的数据自动填充到左侧表格的新行里啦！后续每周新增数据时，只要点一下按钮，重复操作完全不用手动复制粘贴。

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