VBA代码无法读取单元格原值，减法操作结果异常求助

你的代码之所以会从0开始做减法，核心原因是循环逻辑混乱，导致最终赋值的单元格不是你预期的目标单元格（比如C9），而是一个空白单元格（默认值为0），所以减去cases后得到负数。

具体问题点 #

1. 代码里的Exit Do属于错误用法——你没有对应的Do While/Until循环结构，这会导致内层For j循环提前终止，i和j的索引根本没定位到正确的目标单元格。
2. 即使打开注释里的条件判断，当前的循环结构也无法正确遍历找到匹配项，反而会因为错误的跳转导致最终操作的是空白单元格。

修正方案 #

方案1：直接定位目标单元格（推荐）

如果已经能通过k、ComboBox的值确定目标单元格位置，直接简化逻辑：

' 替换成你的实际定位逻辑，比如根据k计算行号，根据ComboBox确定列号
Dim targetCell As Range
Set targetCell = Sheets("Inventory").Range("C" & (7 * k - 2 + i - 1)) ' 示例行号计算，根据实际调整

' 处理单元格为空的情况，避免出现负数
If IsEmpty(targetCell.Value) Then
    targetCell.Value = -cases
Else
    targetCell.Value = targetCell.Value - cases
End If

方案2：修正循环定位逻辑

如果需要通过循环匹配ComboBox的值找目标单元格，调整循环结构：

Dim found As Boolean
Dim targetCell As Range
found = False

' 遍历指定区域找匹配项
For i = 1 To 5
    For j = 1 To 6
        ' 根据你的实际匹配条件调整，比如匹配第1列和第2列的值
        If Sheets("Inventory").Cells(7 * k - 2 + i - 1, 1).Value = ComboBox1.Value And _
           Sheets("Inventory").Cells(7 * k - 2 + i - 1, 2).Value = ComboBox2.Value Then
            ' 假设目标值在C列（第3列）
            Set targetCell = Sheets("Inventory").Cells(7 * k - 2 + i - 1, 3)
            found = True
            Exit For ' 找到后跳出内层循环
        End If
    Next j
    If found Then Exit For ' 找到后跳出外层循环
Next i

' 找到目标单元格再执行减法
If found Then
    targetCell.Value = targetCell.Value - cases
Else
    MsgBox "未找到匹配的库存单元格"
End If

关键注意事项 #

• 调试时可以用MsgBox targetCell.Address查看当前操作的单元格地址，确认是否指向预期的目标单元格。
• 给变量加上明确的类型声明（比如Dim targetCell As Range），便于排查错误。

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