Excel VBA实现Sheet1指定区域定期追加复制到Sheet2

没问题，这是一个很常见的自动数据同步需求，我给你整理了完整的实现方案，分核心复制逻辑、定时执行设置两部分，还有一些注意事项帮你避坑：

一、核心复制数据的VBA代码 #

这个宏会把Sheet1的A1:M20区域复制到Sheet2的最后一行之后，完全不会覆盖原有数据：

Sub CopyAndAppendData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    
    ' 绑定源工作表和目标工作表（如果你的表名不是Sheet1/Sheet2，记得修改）
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 找到Sheet2中A列的最后一行行号，确保追加到正确位置
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 复制源区域，粘贴到目标区域的下一行
    ' 这里用xlPasteValuesAndNumberFormats是为了只复制值和数字格式，避免公式或格式混乱
    sourceSheet.Range("A1:M20").Copy
    targetSheet.Cells(lastRow + 1, "A").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    ' 清除剪贴板，避免Excel一直显示复制状态
    Application.CutCopyMode = False
    
    ' 可选：弹出提示框确认操作完成，不需要可以删掉这行
    MsgBox "数据已成功追加到Sheet2！", vbInformation
End Sub

二、设置定期自动执行 #

有两种方式实现定时，你可以根据需求选：

方式1：Excel内置定时（仅Excel打开时生效） #

用Application.OnTime方法实现Excel运行期间的定时执行，比如每1小时复制一次：

' 启动定时任务的宏
Sub StartAutoCopy()
    Dim nextRunTime As Date
    ' 设置下次执行时间，这里是当前时间加1小时，可改成你需要的间隔（比如"00:30:00"是30分钟）
    nextRunTime = Now + TimeValue("01:00:00")
    
    ' 注册定时任务，指定要执行的宏和下次执行时间
    Application.OnTime nextRunTime, "CopyAndAppendData"
    
    MsgBox "自动复制任务已启动，将每1小时执行一次！", vbInformation
End Sub

' 停止定时任务的宏（需要时运行）
Sub StopAutoCopy()
    On Error Resume Next
    ' 取消之前注册的定时任务，时间要和StartAutoCopy里的间隔一致
    Application.OnTime EarliestTime:=Now + TimeValue("01:00:00"), Procedure:="CopyAndAppendData", Schedule:=False
    On Error GoTo 0
    MsgBox "自动复制任务已停止！", vbInformation
End Sub

使用方法：打开Excel文件后，运行StartAutoCopy宏，之后只要Excel保持打开，就会定时执行复制。

方式2：Windows任务计划（无人值守，Excel关闭也能执行） #

如果需要Excel关闭时也能定时执行，用Windows任务计划配合批处理文件：

1. 把你的Excel文件保存为xlsm格式（启用宏的工作簿），确保宏已启用（在Excel信任中心设置启用所有宏）。
2. 创建一个批处理文件（比如RunExcelMacro.bat），内容如下（注意替换Excel路径和你的文件路径）：

@echo off
start "" "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" "C:\你的文件路径\你的Excel文件.xlsm" /e"CopyAndAppendData"

3. 打开Windows任务计划程序，创建基本任务：
   • 设置触发条件（比如每天每隔1小时）
   • 操作选择「启动程序」，选择刚才创建的批处理文件
   • 完成设置后，任务会定时启动Excel执行宏，执行完自动关闭Excel

三、注意事项 #

• 如果Sheet1的A1:M20有合并单元格，粘贴可能会导致布局混乱，建议尽量避免合并单元格，或者调整代码适配。
• 如果你需要复制包括格式、公式在内的全部内容，把xlPasteValuesAndNumberFormats改成xlPasteAll即可。
• 定时间隔可以根据需求调整，比如TimeValue("00:15:00")就是每15分钟执行一次。

如果还有其他细节需要调整（比如过滤重复数据、处理空行等），随时告诉我就行！

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