Добрый день. Нужно посчитать общую длину для каждого типа кабеля. В столбце G (тип кабеля) , в столбце M (длина) Нужно вывести данные на этот же лист (ниже исходной таблицы) . В файле есть пример как должно +- выглядеть в конце)
Sub mrshkei()
Dim col As New Collection, i As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
If Cells(i, 7) <> "" Then
On Error Resume Next
col.Add Cells(i, 7), CStr(Cells(i, 7))
End If
Next i
For i = 1 To col.Count
Cells(i + 39, 6) = col(i)
Cells(i + 39, 7) = Application.WorksheetFunction.SumIfs(Range("M2:M" & lr), Range("G2:G" & lr), col(i))
Next i
End Sub