（VBA）我希望在激活宏以将计数从一张纸添加到另一张纸时自动更新我的库存表格

Question

我正在处理一个库存工作簿，该工作簿在一张表和另一张表中有库存，我可以在其中扫描条形码并激活宏以更新库存表。

目标是读取列中具有值的每个单元格，然后在另一张表中找到匹配值，并使用相应计数值的总和来更新计数。

到目前为止，我的 VBA 代码更新了列表中的第一项，但只是继续无休止地更新它。 我不确定最好的方法是什么，并且正在寻找一种更好的方法来有效地更新它。

这是我到目前为止所拥有的

`子库存更新（）

Dim i As Integer
Dim b As Integer

i = 2
Do While Cells(i, "D").Value <> ""
 If Cells(i, "D").Value <> "" Then
  b = 1
  Do While b < 346
  If Sheet1.Cells(b, "B").Value = Cells(i, "D").Value Then
  Sheet1.Cells(b, "C").Value = Sheet1.Cells(b, "C").Value + Cells(i, "F").Value
  Else
  b = b + 1
  Loop
  i = i + 1
  End If
  Loop
  
  
  

结束子

`

Answer 1

像这样 - For Next 循环更适合b

Sub Inventory_Update()
    Dim i As Long, b As Long, wsInv As Worksheet, wsEntry As Worksheet
    
    Set wsEntry = ThisWorkbook.Worksheets("Entry") 'for example
    Set wsInv = ThisWorkbook.Worksheets("Inventory") 'or Sheet1
    
    i = 2
    'use a worksheet reference whenver you reference a range
    Do While Len(wsEntry.Cells(i, "D").Value) > 0
        For b = 1 To 346
            If wsInv.Cells(b, "B") = wsEntry.Cells(i, "D").Value Then
                With wsInv.Cells(b, "C")
                    .Value = .Value + wsEntry.Cells(i, "F").Value
                End With
            End If
        Next b
        i = i + 1
    Loop
End Sub