Excel 循环问题

Excel 循环问题,excel,vba,loops,Excel,Vba,Loops,我正在努力解决一个问题 在一列中,我有一些股票编号(activecell)。我有一个销售号码 我得把这个销售数字减去库存数字,直到它变成0。例如: Sales Number = 500 Result = 500 - StockNumber1 Result2 = Result - StockNumber2 Result3 = Result - StockNumber3 我正试图找到一种循环的方法 可能是这样的: i = 0 Do While SalesNumber > Activecel

我正在努力解决一个问题

在一列中,我有一些股票编号(activecell)。我有一个销售号码

我得把这个销售数字减去库存数字,直到它变成0。例如:

Sales Number = 500

Result = 500 - StockNumber1
Result2 = Result - StockNumber2
Result3 = Result - StockNumber3
我正试图找到一种循环的方法

可能是这样的:

i = 0
Do While SalesNumber > Activecell.Offset(i,0)
SalesNumber - ActiveCell(i,0)

i = i + 1

Loop
然而,我还没有找到解决办法。。通常有3个股票号码。 当股票数量结束时,我如何停止循环?有人有主意吗

我不知道我是否清楚。。有任何疑问,请询问

谢谢你的帮助

这个

Dim i, SalesNumber, nRowMax

nRowMax = Rows.Count
SalesNumber  = 500

' my stock number starts at the cell A1:

i = 1

Do While SalesNumber > 0
  ' use this to avoid infinite loop:
  If (i > nRowMax) Then
    Exit Do
  ElseIf (IsEmpty(Cells(i, 1))) Then
    Exit Do
  End If

  SalesNumber = SalesNumber - Cells(i, 1)
  i = i + 1
Loop