Блог

Найдите дубликаты в одном столбце, а затем суммируйте количества в другом столбце

 DATA       RESULT   

A  1       A  11
A  1       B  7
A  9       C  5
B  2       D  4
B  2       E  8
B  3            
C  5            
D  4            
E  7            
E  1    
  

ОТКАЗ ОТ ОТВЕТСТВЕННОСТИ: речь идет о нашем инструменте esProc. Нам сказали, что это простой и очевидный способ группировать листы Excel.

 A1=file("D:/data.xlsx").xlsimport()
A2=A1.groups(_1;sum(_2))
A3=file("D:/result.xlsx").xlsexport(A2)
  

Более подробно смотрите Этот пост: Группируйте и суммируйте файл XLS без использования Excel

Для EXCEL 365 (или веб-приложения Excel):

В C1 введите:

 =UNIQUE(A1:A10)
  

в D1 введите:

 =SUMIF(A1:A10,C1#,B1:B10)
  

РЕДАКТИРОВАНИЕ # 1:

Если VBA для вас приемлем, попробуйте:

 Public Function unikue(rng As Range)
    Dim arr, c As Collection, r As Range
    Dim nCall As Long, nColl As Long
    Dim i As Long
    Set c = New Collection
    
    nCall = Application.Caller.Count
    
    On Error Resume Next
        For Each r In rng
            c.Add r.Text, CStr(r.Text)
        Next r
    On Error GoTo 0
    nColl = c.Count
    
    
    If nCall > nColl Then
        ReDim arr(1 To nCall, 1 To 1)
        For i = 1 To nCall
            arr(i, 1) = ""
        Next i
    Else
        ReDim arr(1 To nColl, 1 To 1)
    End If
    
    For i = 1 To nColl
        arr(i, 1) = c.Item(i)
    Next i
    
    unikue = arr
End Function