Excel VBA技术求助：实现员工跟踪表数据自动同步至主表

嘿，我完全懂你这种手动复制粘贴到崩溃的感受！15个表每周重复操作确实太折磨人了，下面我给你一套现成的VBA解决方案，跟着步骤走就能搞定，哪怕你VBA零基础也没问题～

一、整体思路 #

• 给每个员工的跟踪表加一个「提交数据」按钮，员工点击后就能自动把自己表中的指定数据（当日/当周工作产出）同步到主跟踪表
• 主表需要有固定的结构，用来匹配员工表的数据（比如日期、工作产出、员工姓名这几列是必备的）

二、编写员工表的提交VBA代码 #

打开任意一个员工跟踪表，按Alt + F11打开VBA编辑器，插入一个新模块，把下面的代码粘贴进去：

Sub SubmitToMasterTracker()
    ' 声明变量
    Dim wsEmployee As Worksheet
    Dim wsMaster As Worksheet
    Dim masterWorkbook As Workbook
    Dim lastRowEmployee As Long
    Dim lastRowMaster As Long
    Dim employeeName As String
    Dim masterFilePath As String
    
    ' 绑定当前员工表
    Set wsEmployee = ActiveSheet
    
    ' 1. 获取员工姓名（假设姓名存在A1单元格，可根据你的表结构修改）
    employeeName = wsEmployee.Range("A1").Value
    If employeeName = "" Then
        MsgBox "请先在A1单元格填写你的姓名哦！", vbExclamation
        Exit Sub
    End If
    
    ' 2. 设置主表的文件路径！！！这里一定要改成你主表的实际路径
    masterFilePath = "C:\你的工作文件夹\主跟踪表.xlsx"
    
    ' 3. 尝试打开主表
    On Error Resume Next
    Set masterWorkbook = Workbooks.Open(masterFilePath)
    On Error GoTo 0
    
    ' 如果主表找不到，提示错误
    If masterWorkbook Is Nothing Then
        MsgBox "找不到主跟踪表，请检查路径是否正确！", vbCritical
        Exit Sub
    End If
    
    ' 4. 绑定主表的工作表（假设主表数据存在名为「主数据」的工作表，可修改）
    Set wsMaster = masterWorkbook.Worksheets("主数据")
    
    ' 5. 获取员工表中需要同步的最后一行数据（假设数据从第3行开始，A列日期、B列工作产出）
    lastRowEmployee = wsEmployee.Cells(wsEmployee.Rows.Count, "A").End(xlUp).Row
    If lastRowEmployee < 3 Then
        MsgBox "没有可提交的数据呢！", vbInformation
        masterWorkbook.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 6. 找到主表的空白行，准备粘贴数据
    lastRowMaster = wsMaster.Cells(wsMaster.Rows.Count, "A").End(xlUp).Row + 1
    
    ' 7. 复制员工表数据到主表，同时把员工姓名填充到对应列
    wsEmployee.Range("A3:B" & lastRowEmployee).Copy wsMaster.Range("A" & lastRowMaster)
    wsMaster.Range("C" & lastRowMaster & ":C" & lastRowMaster + lastRowEmployee - 3).Value = employeeName
    
    ' 8. 保存并关闭主表
    masterWorkbook.Close SaveChanges:=True
    
    ' 提交成功提示
    MsgBox "数据提交成功啦！", vbInformation
End Sub

代码关键修改点（一定要根据你的实际情况调整）： #

• masterFilePath：把路径改成你的主跟踪表实际存储路径，比如"D:\团队工作\主跟踪表.xlsx"
• 员工姓名位置：如果你的员工姓名不是在A1，就把Range("A1")改成对应的单元格
• 数据区域：如果你的工作产出不是从A3:B开始，就调整Range("A3:B" & lastRowEmployee)里的列和起始行
• 主表工作表名：如果主表的工作表不是叫「主数据」，就把Worksheets("主数据")改成你的表名

三、给员工表添加提交按钮 #

1. 打开员工跟踪表，找到顶部菜单栏的「开发工具」（如果没看到，去Excel选项里勾选「开发工具」显示出来）
2. 点击「插入」，选择「按钮（窗体控件）」，在工作表合适的位置画一个按钮
3. 弹出「指定宏」窗口，选择刚才的SubmitToMasterTracker宏，点击确定
4. 右键按钮，选择「编辑文字」，改成「提交数据到主表」就可以了

把这个按钮和代码复制到所有15个员工跟踪表中，员工就能直接点击提交了！

四、主表的结构建议 #

为了同步数据更顺畅，主表最好包含以下列（顺序可以调整）：

• A列：日期
• B列：工作产出内容
• C列：员工姓名
  这样同步过来的数据会自动对应，后续统计也方便

五、注意事项 #

• 提交时确保主表没有被其他同事打开，否则会提示无法访问
• 第一次使用前，先用一个测试表提交数据，检查主表是否正确接收
• 如果后续员工表或主表的结构有变化，记得同步修改代码里的单元格范围

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