求每月自动用工作簿新增工作表更新Excel主表的VBA/代码/脚本方案

以下是可直接使用的VBA代码，专门解决每月将新增工作表数据更新到主工作表的需求，会自动跳过已同步过的工作表，避免重复数据：

代码功能 #

• 遍历工作簿内所有工作表，自动识别未同步的新增表
• 将新增表中的数据追加到主工作表末尾
• 记录已同步的工作表名称，防止重复处理
• 可配置自动触发（比如工作簿打开时运行）

使用步骤 #

1. 打开目标Excel工作簿，按Alt + F11打开VBA编辑器
2. 右键点击左侧工程窗口中的工作簿名称，选择「插入」→「模块」
3. 将下方代码粘贴到模块中，根据你的实际情况修改配置项
4. 返回Excel界面，按Alt + F8选择SyncNewSheetsToMain执行，或设置自动触发

Sub SyncNewSheetsToMain()
    Dim mainSheet As Worksheet
    Dim ws As Worksheet
    Dim lastRowMain As Long
    Dim lastRowWs As Long
    Dim processedSheets As Range
    Dim isProcessed As Boolean
    
    ' ===== 配置项：根据你的实际情况修改 =====
    Const MAIN_SHEET_NAME As String = "主工作表" ' 主工作表名称
    Const DATA_COLUMNS As String = "A:D" ' 需要同步的列范围
    Const PROCESSED_MARK_COLUMN As String = "Z" ' 存储已处理表名的列（可隐藏）
    ' ======================================
    
    Set mainSheet = ThisWorkbook.Worksheets(MAIN_SHEET_NAME)
    Set processedSheets = mainSheet.Range(PROCESSED_MARK_COLUMN & ":" & PROCESSED_MARK_COLUMN)
    
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> MAIN_SHEET_NAME Then
            isProcessed = False
            
            ' 检查当前工作表是否已同步过
            On Error Resume Next
            isProcessed = Not (processedSheets.Find(ws.Name, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing)
            On Error GoTo 0
            
            If Not isProcessed Then
                ' 获取主表最后一行（从数据列判断）
                lastRowMain = mainSheet.Cells(mainSheet.Rows.Count, Split(DATA_COLUMNS, ":")(0)).End(xlUp).Row + 1
                ' 获取当前工作表数据最后一行（假设表头在第1行，数据从第2行开始）
                lastRowWs = ws.Cells(ws.Rows.Count, Split(DATA_COLUMNS, ":")(0)).End(xlUp).Row
                
                ' 复制数据到主表
                If lastRowWs >= 2 Then
                    ws.Range(Split(DATA_COLUMNS, ":")(0) & "2:" & DATA_COLUMNS & lastRowWs).Copy _
                        mainSheet.Range(Split(DATA_COLUMNS, ":")(0) & lastRowMain)
                    ' 标记该工作表已处理
                    mainSheet.Cells(lastRowMain, PROCESSED_MARK_COLUMN).Value = ws.Name
                End If
            End If
        End If
    Next ws
    
    MsgBox "新增工作表数据同步完成！", vbInformation
End Sub

' 可选：设置工作簿打开时自动执行（需粘贴到ThisWorkbook模块中）
Private Sub Workbook_Open()
    ' 示例：仅每月1号自动同步，可根据需求修改触发条件
    ' If Day(Date) = 1 Then
    '     SyncNewSheetsToMain
    ' End If
End Sub

关键配置说明 #

• 修改MAIN_SHEET_NAME为你的主工作表实际名称
• 调整DATA_COLUMNS为需要同步的列范围（比如"A:F"对应A到F列）
• PROCESSED_MARK_COLUMN用于记录已同步的表名，建议隐藏该列避免干扰

注意事项 #

• 确保所有新增工作表的表头与主表完全一致，数据从第2行开始
• 新增工作表名称需唯一，否则会被判定为已同步
• 如需每月定时自动运行，可结合Windows任务计划：设置每月指定日期打开该工作簿，并在Excel中启用宏（需在信任中心设置允许宏运行）

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