在Excel中有重复值的总和行
我需要一个macros来查看下面的数据列表，提供它出现的实例数量的计数，并总结它们中的每一个的值。 我知道一个数据透视表或一系列的公式可以工作，但我为一个同事这样做，它必须是一个'点击这里'有点儿交易。 数据如下：
AB Smith 200.00 Dean 100.00 Smith 100.00 Smith 50.00 Wilson 25.00 Dean 25.00 Barry 100.00 最终结果将如下所示
Smith 3 350.00 Dean 2 125.00 Wilson 1 25.00 Barry 1 100.00
只需在引用该数据的新工作表中创build数据透视表。 要更新它，请告诉同事右键点击数据透视表并select刷新。 不需要为此的macros或代码。
loggingmacros创build一个数据透视表，做你想做的。
Sub Macro1() 'Who Cost 'Smith 200 'Dean 100 'Smith 100 'Smith 50 'Wilson 25 'Dean 25 'Barry 100 Range("A1:B8").Select ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "Sheet1!R1C1:R8C2").CreatePivotTable TableDestination:="[Book1]Sheet1!R1C4", _ TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10 With ActiveSheet.PivotTables("PivotTable1").PivotFields("Who") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _ "PivotTable1").PivotFields("Cost"), "Sum of Cost", xlSum ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _ "PivotTable1").PivotFields("Cost"), "Sum of Cost2", xlSum Range("E1").Select With ActiveSheet.PivotTables("PivotTable1").DataPivotField .Orientation = xlColumnField .Position = 1 End With Range("E2").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("Sum of Cost").Function = _ xlCount End Sub
Excel提供了这些东西
SUMIF（）
COUNTIF（）
数据，filter，高级filter，唯一logging
给你所有你需要的，你可以logging为一个macros。
你被允许弄乱数据吗？ 您可以按列A对其进行sorting，然后使用小计function，在列A和列B中进行更改，并在列B中显示总计（我认为这是默认设置）。
如果你不能sorting，那么我会认为只是把它复制到一个新的工作表，sorting副本将是最简单的方法。
[对不起，我忘记了“数”位。 您可以用同样的方法添加一个填充1的新列和小计。]