원하는 작업을 수행하는 피벗 테이블을 만들기위한 기록 된 매크로.
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 사용 방법을 배우게하십시오. – AMissico
나는 그것을 데이터베이스로 옮기고 '쿼리 이름, 개수 (*), 합계 가격 (가격), 이름으로 그룹 선택' –