电子表格指定数字全匹配查找及偏移列连续单元格求和需求

下面分两种场景给出解决方案，覆盖Excel公式（365版本）和VBA脚本两种实现方式：

一、Excel 365 公式实现 #

假设目标数字存放在单元格Z1，需要遍历整个工作表查找匹配项，公式如下：

=SUM(MAP(TOCOL(IF(A1:XFD1048576=Z1,CELL("address",A1:XFD1048576)),3),LAMBDA(cell,SUM(OFFSET(INDIRECT(cell),0,4,1,5)))))

公式说明： #

• TOCOL(IF(A1:XFD1048576=Z1,CELL("address",A1:XFD1048576)),3)：提取所有匹配目标数字的单元格地址，过滤掉空值
• MAP(..., LAMBDA(cell,SUM(OFFSET(INDIRECT(cell),0,4,1,5))))：对每个匹配的单元格，偏移4列后取1行5列的区域求和
• 最外层SUM：将所有偏移区域的求和结果汇总为最终总和

如果需要限定查找范围（比如只在A1:ZZ1000内查找），把公式中的A1:XFD1048576替换为目标区域即可。

二、VBA 脚本实现（兼容所有Excel版本） #

如果使用旧版Excel，或者需要将结果存入变量供后续代码调用，用VBA更灵活：

Sub CalculateTargetSum()
    Dim targetNumber As Variant
    Dim targetSheet As Worksheet
    Dim currentCell As Range
    Dim totalResult As Double
    Dim sumRange As Range
    
    ' 定义目标数字（可改为单元格引用，比如 targetNumber = ThisWorkbook.Sheets("Sheet1").Range("Z1").Value）
    targetNumber = 132545
    ' 指定要操作的工作表
    Set targetSheet = ThisWorkbook.Sheets("Sheet1")
    totalResult = 0
    
    ' 遍历工作表已使用区域（比全表遍历更高效）
    For Each currentCell In targetSheet.UsedRange
        ' 匹配目标数字（如果是文本型数字，改为 CStr(currentCell.Value) = CStr(targetNumber)）
        If currentCell.Value = targetNumber Then
            ' 获取偏移4列后的5个连续单元格区域
            Set sumRange = currentCell.Offset(0, 4).Resize(1, 5)
            ' 累加区域求和结果
            totalResult = totalResult + Application.Sum(sumRange)
        End If
    Next currentCell
    
    ' 这里的totalResult就是最终汇总的总和变量，可用于后续操作
    ' 示例：将结果输出到单元格或弹窗提示
    targetSheet.Range("Z2").Value = totalResult
    MsgBox "汇总总和：" & totalResult
End Sub

脚本说明： #

• 可自定义目标数字的来源（直接赋值或引用单元格）
• 遍历UsedRange避免无效单元格遍历，提升效率
• 找到匹配单元格后，通过Offset(0,4).Resize(1,5)定位到目标求和区域
• 最终结果存入totalResult变量，可直接用于后续逻辑处理

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