Мне нужна помощь с ниже. Все работает в коде просто отлично, кроме этой части
для j = i + 1 до i + 4
Клетки (j, 9) = Клетки (j, 9) + Abs (Клетки (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 = я, потому что это большой набор данных
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