如何正确编写VBA函数QtyPerPN汇总指定零件号的总数量？

原代码存在的核心问题 #

• 参数声明错误：将PN_QTYRange声明为数组() As Variant，但Excel传递单元格区域时会返回二维变体对象，无需添加数组括号，应改为As Range或As Variant。
• 循环逻辑无效：硬编码的counter < 15测试循环无法适配任意大小的数据区域，完全不具备通用性。
• 数组索引错误：二维区域的索引格式为区域(行号, 列号)，原代码中PN_QTYRange(i, i)错误引用对角单元格，混淆了零件号列和数量列的位置。
• 变量类型不明确：TotalQty和counter未声明具体类型，可能引发计算精度问题或逻辑异常。

修正后的完整代码 #

Function QtyPerPN(PartNumber As Variant, PN_QTYRange As Range) As Double
    Dim TotalQty As Double
    Dim row As Range
    
    TotalQty = 0
    
    ' 遍历数据区域内的每一行
    For Each row In PN_QTYRange.Rows
        ' 匹配当前行的零件号（对应区域第一列，即A列）
        If row.Cells(1).Value = PartNumber Then
            ' 累加对应数量（对应区域第二列，即B列），忽略非数值内容
            If IsNumeric(row.Cells(2).Value) Then
                TotalQty = TotalQty + row.Cells(2).Value
            End If
        End If
    Next row
    
    QtyPerPN = TotalQty
End Function

修正说明与用法 #

1. 参数优化：将PN_QTYRange改为As Range，直接接收Excel单元格区域，避免数组转换的额外问题。
2. 通用遍历逻辑：使用For Each row In PN_QTYRange.Rows遍历所有行，适配任意大小的数据集，不再依赖硬编码的循环次数。
3. 清晰的列引用：用row.Cells(1)指定零件号所在列（A列），row.Cells(2)指定数量所在列（B列），逻辑直观不易出错。
4. 类型安全与容错：明确TotalQty为Double类型，支持小数数量计算；增加IsNumeric判断，避免非数值内容导致的公式错误。

使用示例 #

在Excel单元格中输入以下公式即可得到目标结果：

=QtyPerPN(364, A2:B8)

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