Ja drugi pomysł Dave'a. Nie zawsze lubię tabele przestawne, ale w tym przypadku są one dość proste w użyciu.
Oto moje wyniki:
było tak proste, aby go utworzyć, że mam nawet nagrane makra w przypadku trzeba to zrobić z VBA:
Sub Macro2()
'
' Macro2 Macro
'
'
Range("Table1[[#All],[DATA]]").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Table1", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
:="Sheet3!R3C7", TableName:="PivotTable4", DefaultVersion:= _
xlPivotTableVersion14
Sheets("Sheet3").Select
Cells(3, 7).Select
With ActiveSheet.PivotTables("PivotTable4").PivotFields("DATA")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables(_
"PivotTable4").PivotFields("DATA"), "Count of DATA", xlCount
End Sub
użyć ' countif() 'function – vikiiii
Podobny do tego [post] (http://stackoverflow.com/questions/15414739/excel-vba-code-to-find-duplicates-in-a-column-and-add-their-corresponding -wartości) –
Korzystanie Subtotal to kolejna opcja. – pnuts