如何用VBA实现Excel跨工作表任务匹配与工时自动汇总

• 前置对象绑定：先把两张工作表赋值给变量，避免反复写表名引错；用字典结构存储汇总表已有项目和对应行号，比逐行遍历查找效率高10倍以上，且用后期绑定字典的写法不需要手动加载开发工具引用，新手可直接用。
• 有效范围定位：分别定位两张表对应列的最后一个非空单元格，只遍历有效数据行，不要遍历整列造成无意义的性能损耗；默认第1行为表头，从第2行开始读数据。
• 逐行匹配逻辑：遍历明细表F列的父任务字段，跳过空值无效行，校验I列工时是否为合法数值；匹配到已有项目就直接累加对应行的工时，匹配不到就把当前行的项目、设计师、销售单元、工时分列追加到汇总表末尾，同时把新项目写入字典避免重复新建。
• 容错处理：加入空值判断、数值格式校验，运行时关闭屏幕更新提升速度，运行结束自动释放对象、弹出完成提示。

Sub 项目工时自动汇总()
    ' 关闭屏幕更新，大幅提升运行速度
    Application.ScreenUpdating = False
    Dim wsData As Worksheet, wsSum As Worksheet
    Dim lastRowData As Long, lastRowSum As Long, i As Long
    Dim dict As Object
    Dim projName As String, workHour As Double
    
    ' 绑定两张目标工作表
    Set wsData = ThisWorkbook.Worksheets("Cleaned Data")
    Set wsSum = ThisWorkbook.Worksheets("Project summaries")
    ' 后期绑定字典，无需手动勾选库引用
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 读取汇总表现有项目到字典，键为项目名，值为对应行号
    lastRowSum = wsSum.Cells(wsSum.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRowSum
        If Trim(wsSum.Cells(i, "A").Value) <> "" Then
            dict(Trim(wsSum.Cells(i, "A").Value)) = i
        End If
    Next i
    
    ' 遍历明细表所有有效数据行
    lastRowData = wsData.Cells(wsData.Rows.Count, "F").End(xlUp).Row
    For i = 2 To lastRowData
        projName = Trim(wsData.Cells(i, "F").Value)
        ' 跳过项目名为空的无效行
        If projName <> "" Then
            ' 校验工时格式，非数值按0计算避免报错
            If IsNumeric(wsData.Cells(i, "I").Value) Then
                workHour = CDbl(wsData.Cells(i, "I").Value)
            Else
                workHour = 0
            End If
            
            If dict.Exists(projName) Then
                ' 匹配到已有项目，直接累加工时
                wsSum.Cells(dict(projName), "D").Value = wsSum.Cells(dict(projName), "D").Value + workHour
            Else
                ' 未匹配到项目，新增行写入数据
                lastRowSum = lastRowSum + 1
                wsSum.Cells(lastRowSum, "A").Value = projName
                wsSum.Cells(lastRowSum, "B").Value = wsData.Cells(i, "G").Value
                wsSum.Cells(lastRowSum, "C").Value = wsData.Cells(i, "H").Value
                wsSum.Cells(lastRowSum, "D").Value = workHour
                ' 新项目写入字典，供后续行匹配
                dict(projName) = lastRowSum
            End If
        End If
    Next i
    
    ' 释放内存、恢复Excel设置
    Set dict = Nothing
    Set wsData = Nothing
    Set wsSum = Nothing
    Application.ScreenUpdating = True
    MsgBox "项目汇总计算完成", vbInformation
End Sub

注意：如果两张表的表头不在第1行，把代码里所有循环起始值2改成表头所在行的下一行数字即可；如果运行时提示“下标越界”，先检查两个工作表的名称是否和代码中写的完全一致，注意不要有前后多余空格。

• 先从宏录制入门：不用一开始硬啃语法，先把你手动做汇总的操作录制成宏，对照自动生成的代码理解单元格、工作表的引用规则，上手速度比纯看教材快很多。
• 学会逐行调试：写代码时不要直接点全量运行，按F8可以逐行执行代码，把鼠标悬停在变量上就能看到当前的存储值，哪一步出问题可以快速定位，不用瞎猜报错原因。
• 按需学习不用求全：你当前需求只涉及单元格定位、循环判断、字典匹配三个核心VBA技能，不用一开始就把所有VBA语法学完再动手，遇到不会的写法针对性查对应功能的实现方式，边做边记效率最高。
• 养成备份习惯：跑宏前先存一份原文件的备份，新手写代码容易出现误改数据的情况，备份可以避免数据丢失。

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