Определение строки ячейки по условию

@1Sol · Регистрация: 13.05.2018

Author24 — интернет-сервис помощи студентам

В столбце А несколько групп одинаковых значений. При переходе с одного значения на другой (с 310 на 342, 342 на 56 и т.д) в А нужно высчитывать avg столбца Е в диапазоне значений до этого перехода в А (с 310 на 342).

Visual Basic

Sub avg()
Dim i As Integer, k As Integer, m As Integer, lastRow As Long, Rw As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
 For i = 1 To lastRow
     If Cells(i, 1) <> Cells(i + 1, 1) Then
     Cells(i, 10).FormulaLocal = "=СРЗНАЧ(E" & i & ":E" & i & ")"
End If
Next i
End Sub

@1Sol · 30.11.2018, 18:46 **[ТС]**

Гуглил, но так и не смог найти, наверное слишком элементарный вопрос. Стыд мне и позор, но не знаю, как сделать

@1Sol · 30.11.2018, 19:48 **[ТС]**

Извините, что наплодил столько тем
Вот ответ

Visual Basic

Sub avg()
Dim i As Integer, k As Integer, m As Integer, lastRow As Long, Rw As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
 For i = 1 To lastRow
     If Cells(i, 1) <> Cells(i + 1, 1) Then
         For k = i + 1 To lastRow
             If Cells(k, 1) <> Cells(k + 1, 1) Then
                   Cells(k, 10).FormulaLocal = "=CРЗНАЧ(E" & i + 1 & ":E" & k & ")"
             End If
         Next k
     End If
 Next i
End Sub

	30.11.2018, 19:48