[已解决]大神指教如何减去库存表库存

hasyh2008

Sub 计算库存()
  Dim Arr, Brr
  Dim Arc%, Brc%, K%
  Arr = Sheets("处理页").Range("A1").CurrentRegion
  Brr = Sheets("工厂库存表").Range("A1").CurrentRegion
  For Arc = 2 To UBound(Arr)
    For Brc = 2 To UBound(Brr)
      If Arr(Arc, 19) = "库存" And Arr(Arc, 3) = Brr(Brc, 2) Then
        If Brr(Brc, 11) < 2 Then MsgBox Brr(Brc, 2) & "的库存数为" & Brr(Brc, 11) & "，已小于2！"
        If Brr(Brc, 11) = "" Then
            Brr(Brc, 11) = Brr(Brc, 10) - Arr(Arc, 8)
        Else
            Brr(Brc, 11) = Brr(Brc, 11) - Arr(Arc, 8)
        End If
      End If
    Next Brc
  Next Arc
  Sheets("工厂库存表").Range("A1").Resize(UBound(Brr), UBound(Brr, 2)) = Brr
End Sub