我需要以下帮助。除了这部分以外，一切都可以在代码中正常工作
对于j = i + 1到i + 4
Cells（j，9）= Cells（j，9）+ Abs（Cells（i + 1，13））/ 4
在工作簿中，数据看起来像这样
1 2 3 4 5
6 7 8
在循环中，j本质上需要是分离单元的计数。 现在我还不知道该怎么做，所以Abs（Cells（i + 1，13））仅被4除而不是j。 我需要j = 3表示6,7,8，然后j = 5表示1,2,3,4,5。
进一步解释一下，如果数据看起来像这样
13 2 5 6
5 4 54 4 3 6
则j = 6 5 4 54 4 3 6
且j = 4 13 2 5 6
代码如下所示。我只输入10000 = i，因为它是一个大数据集
Sub check1()
Dim i As Integer
Dim j As Integer
i = 10000
While i > 0
If Cells(i, 9) > 0 Then Cells(i, 12) = Cells(i + 1, 12) + Cells(i, 9)
If Cells(i, 12) = 0 Then Cells(i + 1, 13) = Cells(i + 1, 12) - Cells(i, 7) * Cells(i, 6)
If Cells(i + 1, 13) > 1 Or Cells(i + 1, 13) < -1 Then Cells(i + 1, 14) = "PLEASE CHECK VALUES"
If Cells(i + 1, 13) > 1 Or Cells(i + 1, 13) < -1 Then
For j = i + 1 To i + 4
Cells(j, 9) = Cells(j, 9) + Abs(Cells(i + 1, 13)) / 4
Next j
End If
i = i - 1
Wend
End Sub