Excel VBA。求和重复

【问题标题】：Excel VBA. Sum duplicatesExcel VBA。求和重复
【发布时间】：2015-06-04 08:34:55
【问题描述】：

我有这张桌子：

Column1 | Column2 
-----------------
Name1   |  3,0 
Name1   |  2,0 
Name2   |  5,0 
Name2   |  6,0 
etc...

我需要 VBA 宏，这将导致：

Column1 | Column2 
-----------------
Name1   |  5,0 
Name2   |  11,0

步骤：
1. 对 column2 求和
2. 删除重复项

【问题讨论】：

标签： excel vba

【解决方案1】：

下面试试

将新列表放在 D 和 E 中，假设列表在当前工作表和 A:B 中

Sub te()

Range("D1:" & Range("E1").End(xlDown).Address).ClearContents
Range("A1:" & Range("A1").End(xlDown).Address).Copy Destination:=Range("D1")
Range("D1:" & Range("D1").End(xlDown).Address).RemoveDuplicates Columns:=1, Header:=xlNo

For Each cell In Range("D1:" & Range("D1").End(xlDown).Address)
    temp = 0
    For Each c In Range("A1:" & Range("A1").End(xlDown).Address)
        If cell.Value = c.Value Then
            temp = temp + c.Offset(0, 1).Value
        End If
    Next

    For Each c In Range("D1:" & Range("D1").End(xlDown).Address)
        If cell.Value = c.Value Then
             c.Offset(0, 1).Value = temp
        End If
    Next
Next

End Sub

【讨论】：