Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Суммирование через интервал
 
#1
17.07.2021 12:25:18
Есть строительная смета. Нужно просуммировать каждую определенную выполняемую работу. Работы разделены по пунктам

Например пункт       16               здесь нужна сумма
                                 16,1            2560
                                 16,2            6545
                                 16,3            6499
                                 16,4            356
                                 16,5            987
То есть нужна сумма от 16,1 до 16,5 в строке где находится 16
остальные 13   14  15  17 такие же Как можно решить это фото и файл прикрепил  
Изменено: rustam khamzin - 17.07.2021 12:26:03
 
 
 
#2
17.07.2021 12:32:07
=СУММЕСЛИ(B:B;B78&" .*";I:I)
 
 
 
#3
17.07.2021 13:09:33
Не могли вы сделать это в файле и загрузить в сайт
в какой ячейке нужно написать это формулу и с работает ли формула если протенуть до конца списка  
Изменено: vikttur - 17.07.2021 13:30:35
 
 
 
#4
17.07.2021 13:29:12
Нет. Это вариант для каждого раздела (нужно вписывать формулу в каждую отдельную ячейку).

С доп. столбцом см. в файле
=ЕСЛИ(ЕЧИСЛО(ПОИСК(".";B11));I11;СУММЕСЛИ(B:B;B11&" .*";I:I))
Изменен формат ячеек столбца В и данные в столбце приведены к одинаковому виду (удалены лишние пробелы).
 
 
 
#5
17.07.2021 19:50:48
в этом файле сработало
Изменено: vikttur - 22.07.2021 09:36:09
 
 
 
#6
17.07.2021 22:08:44
Цитата
Нужно просуммировать каждую определенную выполняемую работу
Сумма в столбце J
Код
Sub iSumma()
Dim i As Long
Dim n As Long
Dim iLastRow As Long
  iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
   Range("J10:J" & iLastRow).ClearContents
  For i = 11 To iLastRow
        n = i
      Do While Cells(i + 1, "B").Font.Bold <> True
          If i = iLastRow + 1 Then Exit Sub
          Cells(n, "J") = Cells(n, "J") + Cells(i + 1, "I")
          i = i + 1
      Loop
  Next
End Sub
 
 
 
#7
17.07.2021 22:09:29
в j11
Код
=ЕСЛИ(ЦЕЛОЕ(B11)=B11;
СУММ(
ИНДЕКС(I:I;СТРОКА(B12))
:
ИНДЕКС(I:I;АГРЕГАТ(15;6;СТРОКА(B12:B$111)/(--СЖПРОБЕЛЫ(ПСТР(B12:B$111;1;ПОИСК(".";B12:B$111&".")-1))<>B11);1)-1));"")
НА МЯСО В ПРОФИЛЕ
 
 
 
#8
18.07.2021 12:30:54
Спасибо
 
 
 
Страницы: 1
Наверх