Страницы: 1
RSS
Суммирование разного количества соседних ячеек ограниченных пустыми ячейками
 
Добрый день! Я работаю в строительстве, и от застройщиков всегда поступают таблицы просто ужасного качества, с которыми приходится в дальнейшем помучаться. В данный момент вопрос следующий: есть построчно расписанные виды работ и под ними типы материалов, относящиеся только к этой работе. Материалов всегда разное количество в разном объеме под каждой работой и чтобы вычислить сумму за единицу приходится постоянно их вручную складывать. При этом соответственно каждый раз суммировать разное количество ячеек. Это очень трудоемко при огромных таблицах и я постоянно с этим сталкиваюсь при обработке данных. Очень долго мучался с функциями "если", "епусто", "сумм+смещ+1строка", но так и не смог придумать что-то адекватное. Буду благодарен за любую помощь!  
 
Код
Sub iSumma()
Dim Rng As Range
    Range("G3:G" & Cells(Rows.Count, "D").End(xlUp).Row).Copy
    Range("G3").PasteSpecial xlPasteValues
  For Each Rng In Range("G3:G" & Cells(Rows.Count, "D").End(xlUp).Row).SpecialCells(2, 1).Areas
    Rng.Cells(0, 2) = WorksheetFunction.Sum(Rng) / Rng(0, -2)
    Rng.Cells(0, 2).NumberFormat = "#,##0.00"
  Next
End Sub
 
Kuzmich, это просто супер крутой высший пилотаж! огромное спасибо! Надеюсь я когда-нибудь сам также научусь :D  
Изменено: sasha676 - 08.01.2022 13:41:01
 
=IF(A3="раб";SUM(G4:INDEX(G4:G1000;IFERROR(MATCH(A3;A4:A1000;);)))/D3;"")
Изменено: БМВ - 08.01.2022 13:53:55
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх