Excel VBA统计随机扫描条码次数并累加累计值代码故障排查

需求梳理 #

• 全天随机顺序扫描条码
• 每日工作结束后，扫描枪将所有条码数据导入Excel B列
• 统计每个不同条码的扫描次数
• 将统计结果匹配F列存储的条码记录，累加到H列对应单元格的累计总值中

原代码故障点 #

原代码无法运行、逻辑不生效的核心原因如下：

• 范围写法错误：Range("B3,B36")、Range("G3, G61")使用逗号分隔参数，仅代表两个不连续的单独单元格，并非B3到B36、G3到G61的连续数据区域，根本无法读取全量扫描数据和匹配条码
• 变量使用错误：将单元格区域赋值给Variant类型变量生成数组后，数组不存在Cells属性，调用Inventory.Cells会直接触发运行时错误
• 循环逻辑错误：计数器i的自增逻辑放在条码遍历循环外部，全程只会执行一次，无法逐行遍历匹配所有条码记录
• 列号匹配错误：需求明确匹配F列条码、累加到H列，原代码错误使用G列做匹配、I列做结果写入，列号完全偏移
• 统计逻辑错误：匹配到一次条码就直接退出循环，会跳过同条码的其余扫描记录，无法统计真实扫描次数

修正后代码 #

Private Sub addButton_Click()
    Dim lastScanRow As Long, lastInventoryRow As Long
    Dim scanRange As Range, invRange As Range, cell As Range
    Dim countMap As Object
    Dim scanVal As String, invVal As String
    
    ' 初始化字典用于条码计数
    Set countMap = CreateObject("Scripting.Dictionary")
    
    ' 自动获取B列扫描数据的最后一行，确定扫描数据范围
    lastScanRow = Cells(Rows.Count, "B").End(xlUp).Row
    Set scanRange = Range("B3:B" & lastScanRow)
    
    ' 遍历所有扫描条码，统计每个条码的出现次数
    For Each cell In scanRange
        scanVal = Trim(cell.Value)
        If scanVal <> "" Then
            If countMap.Exists(scanVal) Then
                countMap(scanVal) = countMap(scanVal) + 1
            Else
                countMap.Add scanVal, 1
            End If
        End If
    Next cell
    
    ' 自动获取F列条码记录的最后一行，确定匹配范围
    lastInventoryRow = Cells(Rows.Count, "F").End(xlUp).Row
    Set invRange = Range("F3:F" & lastInventoryRow)
    
    ' 遍历F列条码，匹配到对应计数后累加到H列
    For Each cell In invRange
        invVal = Trim(cell.Value)
        If invVal <> "" And countMap.Exists(invVal) Then
            cell.Offset(0, 2).Value = cell.Offset(0, 2).Value + countMap(invVal)
        End If
    Next cell
    
    ' 释放对象内存
    Set countMap = Nothing
    Set scanRange = Nothing
    Set invRange = Nothing
End Sub

使用说明 #

• 代码会自动识别B列、F列的有效数据行，不需要手动修改行号范围，适配每日不同的数据量
• 加入了空值判断和文本去空格处理，避免空单元格、条码前后带不可见空格导致的匹配失败问题
• 使用字典做计数统计，相比双层单元格循环效率更高，条码数量多的时候也不会出现明显卡顿
• 严格对齐需求：读取B列数据统计次数，匹配F列条码，结果直接累加到对应行的H列，不会覆盖原有累计值

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