VBA开发技术咨询：For Each循环、Offset应用及跨工作表求和难题

嘿，这个需求我之前做报表自动化的时候刚好碰到过，分两步走就能轻松搞定，我给你整理了具体的实现思路和可直接复用的VBA代码：

首先得定位到你要搜索的工作表和指定区域，然后找到所有包含目标字符串的单元格，把它们左边一列的内容存起来——这里用Range.Find方法比逐个单元格循环高效多了，还能自动遍历所有匹配项。

拿到第一步收集的内容后，我们可以用WorksheetFunction.SumIf直接批量求和，或者逐个查找累加，前者更简洁。如果担心有重复的匹配项，还可以先做个去重处理，避免重复计算。

完整代码示例 #

Sub MatchAndSum()
    ' 定义变量
    Dim wsSearch As Worksheet, wsSum As Worksheet
    Dim searchRange As Range, foundCell As Range
    Dim targetStr As String
    Dim matchValues As Collection
    Dim sumResult As Double
    Dim firstFind As String
    
    ' 替换成你的实际参数
    Set wsSearch = ThisWorkbook.Worksheets("搜索表") ' 存放待搜索数据的工作表
    Set wsSum = ThisWorkbook.Worksheets("求和表") ' 存放待求和数据的工作表
    targetStr = "你的目标字符串" ' 替换成你要查找的目标文本
    Set searchRange = wsSearch.Range("B2:B100") ' 替换成你的指定搜索区域
    
    ' 初始化集合存储匹配的左侧列内容
    Set matchValues = New Collection
    
    ' 查找所有匹配目标字符串的单元格
    Set foundCell = searchRange.Find(What:=targetStr, LookIn:=xlValues, LookAt:=xlWhole)
    If Not foundCell Is Nothing Then
        firstFind = foundCell.Address
        Do
            ' 把当前匹配单元格左侧一列的内容加入集合
            matchValues.Add foundCell.Offset(0, -1).Value
            ' 继续查找下一个匹配项
            Set foundCell = searchRange.FindNext(foundCell)
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstFind
    End If
    
    ' 如果有匹配项，开始求和
    If matchValues.Count > 0 Then
        sumResult = 0
        Dim val As Variant
        For Each val In matchValues
            ' SumIf参数说明：匹配列、匹配值、求和列
            sumResult = sumResult + WorksheetFunction.SumIf(wsSum.Range("A:A"), val, wsSum.Range("B:B"))
        Next val
        
        ' 输出结果，可根据需求改成写入单元格或其他形式
        MsgBox "最终求和结果为：" & sumResult
        ' 示例：写入求和表的C1单元格
        ' wsSum.Range("C1").Value = sumResult
    Else
        MsgBox "未找到匹配的目标字符串！"
    End If
    
    ' 释放对象，避免内存占用
    Set wsSearch = Nothing
    Set wsSum = Nothing
    Set searchRange = Nothing
    Set foundCell = Nothing
    Set matchValues = Nothing
End Sub

实用小提示 #

• 记得把代码里的工作表名称、目标字符串、搜索区域、求和表的匹配列和求和列替换成你实际的内容
• 如果需要去重（比如同一个左侧列内容重复出现，不想重复求和），可以修改加入集合的逻辑：

  On Error Resume Next
  matchValues.Add foundCell.Offset(0, -1).Value, Key:=CStr(foundCell.Offset(0, -1).Value)
  On Error GoTo 0
  

• 如果需要模糊匹配目标字符串，把LookAt:=xlWhole改成LookAt:=xlPart即可

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