VBA新手求助：如何用For循环实现按LT值求和至指定列的UDF

• 累加逻辑完全失效：循环过程中直接给addtill变量赋值，没有单独存储累加值，每轮循环都会覆盖之前的计算结果，根本达不到求和的效果
• 范围硬编码写死：循环的行、列范围固定为i从2到10、j从3到12，完全没有适配实际传入的单元格区域大小，换个表或者数据范围变了就直接失效
• 参数匹配逻辑错误：直接把传入的LT值当列索引用，没有实现“在表头行找到和LT对应的值、把该列作为累加终点”的核心需求
• 没有异常容错：如果传入的LT在表头里找不到，会直接触发VBA运行时错误

Function addtill(LT As Variant, rangeA As Range) As Double
    ' 声明变量，明确类型减少隐式转换错误
    Dim totalSum As Double
    Dim startCol As Long, endCol As Long
    Dim rowOffset As Long, colOffset As Long
    
    totalSum = 0 ' 初始化累加值为0
    
    ' 纯For循环遍历表头，定位LT对应的截止列（完全符合练习For循环的学习目标）
    endCol = 0
    For colOffset = 1 To rangeA.Columns.Count
        ' 匹配表头单元格和传入的LT值
        If rangeA.Cells(1, colOffset).Value = LT Then
            endCol = colOffset
            Exit For ' 找到第一个匹配项就跳出循环，减少无效计算
        End If
    Next colOffset
    
    ' 找不到匹配列的容错处理
    If endCol = 0 Then
        addtill = 0
        Exit Function
    End If
    
    ' 设置数值累加的起始列：默认从表头下第2列开始累加，可根据实际表格结构调整
    startCol = 2
    
    ' 逐行遍历数据区域（跳过第一行表头）
    For rowOffset = 2 To rangeA.Rows.Count
        ' 逐列累加从起始列到目标截止列的数值
        For colOffset = startCol To endCol
            ' 只累加数字类型的值，跳过空值、文本值，避免类型错误
            If IsNumeric(rangeA.Cells(rowOffset, colOffset).Value) Then
                totalSum = totalSum + rangeA.Cells(rowOffset, colOffset).Value
            End If
        Next colOffset
    Next rowOffset
    
    ' 输出最终累加结果
    addtill = totalSum
End Function

• 函数参数规则：第一个参数传入你要匹配的LT值（比如表头的月份、项目名），第二个参数传入你要计算的完整单元格区域（包含表头行）
• 适配场景：不管你的数据区域有多少行多少列，代码都会自动适配范围大小，不会因为数据量变化失效
• 效果匹配：会自动逐行累加从数值起始列到LT匹配列的所有数字值，和你预期的按LT截断列求和的效果完全一致

如果觉得循环找表头效率低，可以替换成Range.Find方法定位匹配列，代码逻辑更简洁，匹配精度更高，但For循环的实现更适合新手理解逐元素判断的逻辑

注意 如果你的表格数值起始列不是表头下第2列，只需要修改startCol = 2这行的数字为实际的起始列偏移值即可，比如数值从第3列开始就改成startCol = 3

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