Страницы: 1
RSS
Макрос. Суммирование уникальных (одинаковых) ячеек.
 
Добрый день.
Нужно посчитать общую длину для каждого типа кабеля. В столбце G (тип кабеля) , в столбце M (длина)
Нужно вывести данные на этот же лист (ниже исходной таблицы) .
В файле есть пример как должно +- выглядеть в конце)  
Изменено: Дмитрий - 25.01.2021 16:18:16
 
Доброе время суток
Цитата
Дмитрий написал:
В файле есть пример как должно
А почему в примере результата дано
ВВГнг-LS 5х4 = 600,
а по исходным данным получается только? В каких единицах считаете?
ВВГнг-LS 5х4 = 205
 
Андрей VG, просто пример, как должна выглядеть структура  
Изменено: Дмитрий - 25.01.2021 16:29:42
 
А макрос принципиально? Все остальное формулами считали.
 
bigorq,принципиально  
 
Дмитрий,
Код
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
Не бойтесь совершенства. Вам его не достичь.
 
Mershik, Благодарю  
 
Mershik, Подскажите, можно сделать код так, что б при повторном его использовании, прошлые записи стирались
в этих ячейках
Код
Cells(i + 39, 6) = col(i)
Cells(i + 39, 7) = Application.WorksheetFunction.SumIfs(Range("M2:M" & lr), Range("G2:G" & lr), col(i))
Страницы: 1
Наверх