суммировать одинаковые имена

[stbo]

всем привет. огромное спасибо, за макросы которые написал EducatedFool. Экономит столько времени ...
Сейчас задача следующая: после сортирования по именам артиклей, в соседней колонке необходимо сложить общее кол-во деталей, при этом сократить повторяющие артикли.

[SAS888]

Посмотрите один из возможных вариантов во вложении. Запустите макрос "Main".

[stbo]

спасибо огромное. Если возможно вывести запуск этого макроса из подменю(выделение+ правый клик + суммировать)? Но в любом случае это классно, и здорово экономит время на операции.

[EducatedFool]

В контекстное меню добавить пункт несложно:

Private Sub Workbook_Open()
    Application.CommandBars("cell").Reset
    With Application.CommandBars("cell").Controls.Add(, , , 1)
        .Caption = "Суммировать одинаковые"
        .FaceId = 226
        .OnAction = "Main"
    End With
End Sub

К тому же, удалось упростить макрос за счёт использования этой функции: http://excelvba.ru/code/JoinedArray

Sub main()
    On Error Resume Next
    If Selection.Rows.Count < 2 Or Selection.Columns.Count < 2 Then Exit Sub
    Selection.Value = JoinedArray(Selection.Value, 1, 2)
    Selection.SpecialCells(xlCellTypeConstants, xlErrors).ClearContents
End Sub

Проверяйте: http://excelvba.ru/XL_Files/Sample__...__14-27-17.zip

[stbo]

спасибо. все просто супер!!!!!!!