Excel VBA库存更新异常：Sheet1的A17对应Sheet2库存未更新求助

咱们先拆解你代码里导致A17对应库存无法更新的几个核心问题：

1. 错误的单元格范围定义 #

你这里的rng1定义存在语法错误：

Set rng1 = Worksheets("Sheet1").Range("A16:A17" & lastRow1)

A16:A17" & lastRow1会生成类似A16:A1720（假设lastRow1是20）的错误范围，完全偏离了你要处理A16、A17的需求。当前需求下直接指定固定范围即可：

Set rng1 = Worksheets("Sheet1").Range("A16:A17")

2. 过早清空输入内容导致循环中断 #

在找到第一个匹配的商品（A16）后，你立刻执行了清空操作：

Set rConstants = Sheet1.Range("A16:C" & "C17").SpecialCells(xlCellTypeConstants)
rConstants.ClearContents

这会直接清空A16到C17的所有内容，当循环到A17时，cell1.Value已经是空值，触发If IsEmpty(cell1.Value) Then Exit For直接退出循环，自然不会处理A17的库存更新。

正确逻辑是：等所有商品的库存都更新完成后，再清空输入内容、打印收据和写入销售记录。

3. 销售记录与打印逻辑位置错误 #

你把Sheet1.PrintOut和销售记录写入的代码放在了内层循环（遍历Sheet2的cell2）里，这会导致每匹配到一个商品就打印一次、写入一次记录，逻辑完全混乱。应该把这些操作移到外层循环结束后，确保所有库存更新完成再执行。

修复后的完整代码 #

Sub printInvoice()
    Dim rng1, rng2, cell1, cell2 As Range
    Dim lastRow2 As Long
    Dim lr4 As Long
    Dim invoiceNumber As String
    Dim saleDate As String
    Dim totalAmount As Double
    Dim paymentAmount As Double
    
    ' 提前保存收据固定信息，避免清空后取不到值
    invoiceNumber = Sheet1.Range("B10").Value
    saleDate = Sheet1.Range("B11").Value
    totalAmount = Sheet1.Range("D19").Value
    paymentAmount = Sheet1.Range("D18").Value
    
    ' 定义Sheet1要处理的商品范围：A16-A17
    Set rng1 = Worksheets("Sheet1").Range("A16:A17")
    
    ' 定义Sheet2的库存商品范围
    lastRow2 = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
    Set rng2 = Worksheets("Sheet2").Range("B2:B" & lastRow2)
    
    ' 获取销售记录表的下一行
    lr4 = Sheets("DaftarPenjualan").Range("A" & Rows.Count).End(xlUp).Row + 1
    
    ' 遍历Sheet1的两个商品单元格
    For Each cell1 In rng1
        ' 空单元格跳过，而非直接退出循环（兼容A16空但A17有值的情况）
        If IsEmpty(cell1.Value) Then Continue For
        
        ' 遍历Sheet2找匹配库存
        For Each cell2 In rng2
            If IsEmpty(cell2.Value) Then Exit For
            If cell1.Value = cell2.Value Then
                ' 减少对应库存（假设D列是库存数量）
                cell2.Offset(0, 2).Value = cell2.Offset(0, 2).Value - cell1.Offset(0, 1).Value
                
                ' 写入当前商品的销售记录
                Sheets("DaftarPenjualan").Range("A" & lr4).Value = saleDate
                Sheets("DaftarPenjualan").Range("B" & lr4).Value = invoiceNumber
                Sheets("DaftarPenjualan").Range("C" & lr4).Value = cell1.Value
                Sheets("DaftarPenjualan").Range("D" & lr4).Value = cell1.Offset(0, 1).Value
                Sheets("DaftarPenjualan").Range("F" & lr4).Value = totalAmount
                Sheets("DaftarPenjualan").Range("G" & lr4).Value = paymentAmount
                Sheets("DaftarPenjualan").Range("H" & lr4).Value = cell2.Offset(0, 5).Value
                
                lr4 = lr4 + 1 ' 记录行号递增，下一个商品写新行
                Exit For ' 找到匹配后退出内层循环，提升效率
            End If
        Next cell2
    Next cell1
    
    ' 所有库存更新完成后，执行后续操作
    Sheet1.PrintOut
    Sheet1.Range("A16:C17").ClearContents ' 直接清空指定范围，避免SpecialCells报错
    Sheet1.Range("B10").Value = Sheet1.Range("B10").Value + 1
    
    Sheets("Sheet1").Activate
End Sub

额外优化说明 #

• 提前保存收据固定信息，避免清空输入后丢失数据
• 用Continue For替代Exit For处理空单元格，兼容部分商品为空的场景
• 找到匹配库存后立刻退出内层循环，减少不必要的遍历
• 直接清空指定范围，比SpecialCells更稳定，不会因找不到常量单元格报错

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