VBA

Question

我在循环中使用平均函数，它计算每个月同一客户的金额平均值（不是月平均值，只考虑开放天数），它在5000线表上完美运行，但我在56703线条表中使用它，它没有那么好用，并且错过了一些客户。为什么这样做？我该怎么办？

    Sub calcav()
    Dim i As Long
    Dim j As Long
    Dim a As Integer

   Sheets("Source").Activate
   a = 2
   i = 2
   While Cells(i, 6) <> ""
   j = i
      While Cells(i, 6) = Cells(i + 1, 6) And Month(Cells(i, 18)) =Month(Cells(i + 1, 18))
   i = i + 1
      Wend
    Sheets("Average").Cells(a, 1) = Cells(i, 6).Value
    Sheets("Average").Cells(a, 2) = Month(Cells(i, 18))
    Sheets("Average").Cells(a, 3) = Year(Cells(i, 18))
    Sheets("Average").Cells(a, 4)   =Application.WorksheetFunction.Average(Range("V" & j & ":V" & i))
    Sheets("Average").Cells(a, 5) = Left(Cells(i, 20).Value, 3)
    a = a + 1

   i = i + 1
   Wend

   End Sub