VBA实现Inventory Tracking双条件匹配库存更新代码报错排查

原代码核心错误 #

• 匹配逻辑存在根本性缺陷：分开遍历B列（物料编码）、C列（规格），只要两列中任意位置存在匹配值就判定校验通过，没有校验两个匹配值是否在同一行，会导致库存更新到错误行。
• 你推测的Address相关逻辑确实存在语法和逻辑错误：SizeCell.Address(缺少右括号，会直接触发编译错误；且Address属性返回的是字符串类型的单元格地址（如"C5"），不是可操作的单元格对象，无法直接调用Offset方法；同时错误使用Set关键字给字符串、整数等非对象类型赋值，会触发类型不匹配报错。
• 匹配结果会被遍历操作覆盖：遍历C列时，无论当前单元格是否匹配输入值，都会覆盖CellOffsetMatch和OriginalCount的取值，循环结束后两个变量只会存储最后一行遍历到的单元格内容，完全无法定位实际匹配的行。
• 单元格引用逻辑错误：更新库存时写的Range("CellOffsetMatch")会把变量名当做固定地址字符串解析，不会读取变量中存储的实际匹配位置，会触发“单元格不存在”报错。
• 变量类型定义不合理：OriginalCount定义为Object类型，实际存储的是整数库存值，CellOffsetMatch类型定义模糊，混用对象、字符串赋值逻辑，极易触发运行时错误。

修复后可直接运行的代码 #

Sub AddInventory()
    Dim ItemCode As String
    Dim Size As String
    Dim InputCount As Integer
    Dim isMatch As Boolean
    Dim wsInv As Worksheet
    Dim matchCodeCell As Range
    Dim originalStock As Integer
    
    ' 绑定库存工作表，避免切换活动表导致引用错位
    Set wsInv = ThisWorkbook.Worksheets("Inventory")
    ' 读取输入区域的值
    Size = wsInv.Range("Size2").Value
    InputCount = wsInv.Range("count3").Value
    ItemCode = wsInv.Range("Code2").Value
    isMatch = False
    
    ' 逐行遍历编码列，校验同一行同时匹配编码和规格
    For Each codeCell In wsInv.Range("B2:B45")
        ' B列偏移1列即为同行C列的规格值，无需分开遍历两列
        If codeCell.Value = ItemCode And codeCell.Offset(0, 1).Value = Size Then
            isMatch = True
            Set matchCodeCell = codeCell
            ' B列偏移2列即为同行D列的库存值，读取原始库存
            originalStock = CInt(codeCell.Offset(0, 2).Value)
            Exit For ' 找到匹配项后立即退出循环，避免后续遍历覆盖结果
        End If
    Next
    
    If isMatch Then
        ' 累加输入计数值后写回库存单元格
        matchCodeCell.Offset(0, 2).Value = originalStock + InputCount
    Else
        MsgBox "物料不存在，请重试，或使用「Count」按钮新增物料条目"
    End If
End Sub

关键实现说明 #

• 取消了分开遍历两列的错误逻辑，改为逐行校验同一行的编码、规格是否同时匹配输入值，从根源避免跨行列错配问题。
• 移除了冗余且易出错的Address地址转换逻辑，直接通过Range对象的Offset方法偏移定位对应单元格，减少语法错误和类型转换开销。
• 找到匹配行后立即退出循环，既避免后续遍历覆盖匹配结果，也提升代码运行效率。
• 提前绑定工作表对象，避免用户切换活动工作表时出现单元格引用错位的问题。
• 严格区分VBA赋值规则：仅单元格等对象类型变量使用Set赋值，整数、字符串、布尔值等普通类型直接赋值，符合语法规范。
• 增加了库存值的整数转换逻辑，避免单元格格式为文本时触发类型不匹配错误。

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