完全懂你想要的这种“无感同步”效率——不用每次手动插行、写引用，新建产品表就自动同步到汇总，这绝对是Excel能搞定的，用VBA宏就能实现，我给你拆解具体的实现步骤和细节：

核心实现思路 #

• 利用Excel的**工作簿级事件（Workbook_NewSheet）**监听新建工作表的动作
• 先校验新工作表的命名是否符合你预设的规则（比如你说的序列号格式，像Product-001、Product-002这类）
• 如果符合规则，自动在汇总表的最后一行插入新行，并且生成对新工作表指定单元格的动态引用

具体VBA代码实现 #

这个代码要放在ThisWorkbook模块里，因为是工作簿级别的全局事件：

1. 按Alt+F11打开VBA编辑器
2. 双击左侧项目窗口中的ThisWorkbook（在你的工作簿名称下方）
3. 把下面的代码粘贴到右侧的代码编辑区：

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim summarySheet As Worksheet
    Dim newRow As Long
    Dim productSheetName As String
    
    ' 替换成你实际的汇总表名称
    Set summarySheet = ThisWorkbook.Worksheets("Summary")
    
    ' 获取新创建的工作表名称
    productSheetName = Sh.Name
    
    ' 这里是命名规则校验，改成你自己的规则（比如以"Product-"开头）
    If Left(productSheetName, 8) = "Product-" Then
        ' 找到汇总表的最后一行（假设第一行是表头）
        newRow = summarySheet.Cells(summarySheet.Rows.Count, "A").End(xlUp).Row + 1
        
        ' 示例：A列写入产品表名称，B列引用产品表的B2，C列引用C2，可按需扩展
        summarySheet.Cells(newRow, "A").Value = productSheetName
        summarySheet.Cells(newRow, "B").Formula = "='" & productSheetName & "'!B2"
        summarySheet.Cells(newRow, "C").Formula = "='" & productSheetName & "'!C2"
        
        ' 如果你用的是Excel自带的表格（Table），用下面的注释部分更稳定（替换上面的行插入代码）
        ' Dim tbl As ListObject
        ' Set tbl = summarySheet.ListObjects("Table1") ' 替换成你的表格名称
        ' Dim newTblRow As ListRow
        ' Set newTblRow = tbl.ListRows.Add(AlwaysInsert:=True)
        ' newTblRow.Range(1).Value = productSheetName
        ' newTblRow.Range(2).Formula = "='" & productSheetName & "'!B2"
    End If
End Sub

关键参数调整 #

• 汇总表名称：把代码里的"Summary"改成你实际的汇总表名字
• 命名规则：修改Left(productSheetName, 8) = "Product-"，比如如果你的产品表是SN-001格式，就改成Left(productSheetName, 3) = "SN-"
• 引用单元格：把'!B2、'!C2改成你需要引用的产品表单元格（比如产品名称在B1，就改成'!B1）

初始化已存在的产品表 #

如果你之前已经创建了一些产品表，想要一次性同步到汇总表，可以用下面的一次性宏：

Sub SyncExistingProductSheets()
    Dim ws As Worksheet
    Dim summarySheet As Worksheet
    Dim newRow As Long
    
    Set summarySheet = ThisWorkbook.Worksheets("Summary")
    
    ' 清空汇总表的数据行（保留第一行表头）
    summarySheet.Range("A2:" & summarySheet.Cells(summarySheet.Rows.Count, summarySheet.Columns.Count).Address).ClearContents
    
    ' 遍历所有工作表，同步符合规则的表
    For Each ws In ThisWorkbook.Worksheets
        If Left(ws.Name, 8) = "Product-" Then
            newRow = summarySheet.Cells(summarySheet.Rows.Count, "A").End(xlUp).Row + 1
            summarySheet.Cells(newRow, "A").Value = ws.Name
            summarySheet.Cells(newRow, "B").Formula = "='" & ws.Name & "'!B2"
            summarySheet.Cells(newRow, "C").Formula = "='" & ws.Name & "'!C2"
        End If
    Next ws
End Sub

运行这个宏（按F5）就能把所有符合规则的产品表一次性同步到汇总表。

注意事项 #

• 保存格式：一定要把工作簿保存为启用宏的工作簿（.xlsm），普通的.xlsx格式会禁用宏，事件不会触发
• 宏安全性：打开工作簿时要选择“启用内容”，否则事件监听不会生效
• 命名规则要严格：避免把测试表、临时表误识别为产品表，比如不要用符合规则的名字命名非产品工作表
• 测试先行：先新建一个符合规则的工作表（比如Product-001），检查汇总表是否自动添加了带正确引用的行

如果你需要调整命名规则、引用的单元格位置，或者有其他特殊需求（比如同步更多列、处理格式），随时说就行，这个方案完全可以根据你的实际情况定制～