суммировать значения повторяющихся ячеек в excel

[DV68]

Это видимо только макросом.
Если без макроса, то так(для Excel 2007):
Данные-дополнительно-Исходный диапазон: $A:$A - скопировать результат в другое место(поставить галочку) - поместить результат в диапазон: $C:$C - только уникальные записи(поставить галочку) -Ок.
После этого в В1 пишем: =СУММЕСЛИ(A:A;C1;B:B) и растягиваем формулу.
Можно потом выделить столбцы С:D -копировать - встаем в С1 - правая кнопка мыши - специальная вставка - значения. Всё. После этого столбцы А:В можно удалить.

[Smiling Tiger]

Огромнейшее спасибо! Будем пробовать

[Sulemana]

Помогите отфильтровать повторяющиеся позиции, уже как только ни делала, не хочет фильтровать, хоть убей!!! суммировать получилось, но что толку, все равно вручную фильтровать приходиться

[Hugo121]

http://www.planetaexcel.ru/forum.php?thread_id=26105

Option Explicit

Sub UniqSummUniversal() 'вариант без Transpose - для больших объёмов
'Выделить диапазон, где в первом столбце - неуникальные, в последнем - суммы
Dim a(), b(), oDict As Object, i&, ii&, temp$, x&
Dim ind&
'Dim tm: tm = Timer
a = Selection.Value
ReDim b(1 To UBound(a, 1), 1 To 2)
ind = UBound(a, 2)
Set oDict = CreateObject("Scripting.Dictionary")
oDict.CompareMode = 1
For i = 1 To UBound(a)
    If Not IsEmpty(a(i, ind)) Then
        If IsNumeric(a(i, ind)) Then
        temp = Trim(a(i, 1))
            If Not oDict.Exists(temp) Then
            ii = ii + 1
            b(ii, 1) = temp: b(ii, 2) = a(i, ind)
            oDict.Add temp, CStr(ii)
            Else
            x = oDict.Item(temp)
            b(x, 2) = b(x, 2) + a(i, ind)
            End If
        End If
    End If
Next

On Error Resume Next 'если вдруг ii=0
With Workbooks.Add.Worksheets(1)
.Range("A1:B1").Resize(ii) = b
End With
On Error GoTo 0
'Debug.Print Timer - tm
End Sub

Результат на примере #8 - 28609 отобранных строк, за 1.375 сек.

[Curry]

что это за код? Объясните плз

[Hugo121]

Это для тех, кто с сводными не дружит... вроде меня
По ссылке выше ( http://www.planetaexcel.ru/forum.php?thread_id=26105 ) есть файл поновее с чуть изменённым кодом. В файле описано, как использовать.

[Омар34]

У меня случай похожий. Те ормулы которые данны не работают. Нужна помощь.

[Palantirus]

Сообщение от SAS888

В ячейку "D2" помещаем формулу

=СУММЕСЛИ(B:B;B2;C:C)

затем "растягиваем" ее до конца таблицы.

Большое спасибо.

Ссылка на статью вышла одной из первых по запросу
"Excle как суммировать ячейки по артикулу"