[michaell]

Может есть среди нас мастера экселя или те, кто смогут найти в инете ответ. Мне не удалось.
Упрощенное описание.

В колонке A имена людей, иногда одинаковые.
В колонке B их скорость в км/ч (числа).
В колонке C надо вывести сумму скоростей для всех людей с одинаковыми именами.

Пример: у каждого ведь разная скорость, она не зависит от имени. Система пробежит по А, находит, к примеру, троих Андреев, суммирует их скорости из колонки B, выводит результат в колонке C возле первого (каждого / последнего - неважно) же случая нахождения того конкретного имени.

Из всего списка найден Андрей в A5, A9, A40. У них скорость 4, 9 и 5 км/ч соответственно.
В колонке C5 выводится сумма скоростей = 18.

Я потом могу удалить все строки где сумма скоростей не указана (где C пустые), так что неважно где выводиться сумма скоростей будет, главное, чтобы возле соответствующего имени.
Либо можно каждый раз указывать сумму скоростей у всех соответствующих имен - опять же неважно.

Запаристо это. Но очень надеюсь.

[Трактор]

У меня нет экселя под рукой. Советую посмотреть в сторону сводных таблиц.
В [Информация только для зарегистрированных пользователей. ] пример. Делал в Либре офисе, поэтому не ручаюсь что заработает в эксэле.

[Трактор]

Есть ещё чУдная функция ВПР. Она к теме не относится, но чудова функция [Информация только для зарегистрированных пользователей. ]

[mbliev]

michaell, это несложно сделать - скинь мне плз файл мне на мыло - я формулу нарисую и отправлю обратно - [Информация только для зарегистрированных пользователей. ]

Только сейчас уже в кровати - потерпит до завтрашнего утра?

[CosmicMidget]

Sub Ìàêðîñ4()

    
    
 Dim Criteria_range
 Dim Criteria
 Dim Sum_range
 
 
  
 
Criteria_range = InputBox("Tut diapazon dlya kriteriev(imena)", , "Naprimer A:A")

Criteria = InputBox("Pervaya yacheyka s criteriem v diapazone vishe", , "Naprimer A1")


Sum_range = InputBox("Diapazon dlya summirovanya", , "Naprimer B:B")
    
    
ActiveCell.Formula = "=sumif(" & Criteria_range & "," & Criteria & "," & Sum_range & ")"

    


End Sub

Выделяешь клетку в столбце, где должна получиться первая сумма, запускаешь макрос.

Дальше формулу, думаю, сам растянешь.

А вообще это простая формула sumif\суммесли, или сводная таблица на худой конец.

[michaell]

Ребята, спасибо всем за помощь. Я под конец 5 часов поиска вдруг наткнулся на чудную формулу, которая все легко разрешила. Гениальная все же программа Excel, на любой вопрос есть ответ, надо лишь знать как искать и правильно спрашивать
SUMPRODUCT + знаки $
Multiplies corresponding components in the given arrays, and returns the sum of those products.

Если кого сильно заинтересовало как конкретно решено было, дайте знать, отпишу здесь завтра.