<12-1 피벗 생성 기본>

<12-1 피벗 생성 기본> 
Dim pt As PivotTable 
Dim pc As PivotCache 
Dim sd As Worksheet, ss As Worksheet 
Dim rngS As Range, rngD As Range 

Application.ScreenUpdating = False 

Set ss = Sheets("raw")                       ‘raw data 시트 
Set sd = Sheets("피벗")                      ‘피벗 생성될 시트 

Set rngS = ss.Range("a1").CurrentRegion      ‘피벗의 원본 데이터 범위 
Set rngD = sd.Range("a1")                   ‘피벗 생성될 시작 셀 

sd.Cells.Clear 

Set pc = ThisWorkbook.PivotCaches.Create(xlDatabase, rngS)   ‘피벗 캐쉬 영역이 먼저 생성 
Set pt = pc.CreatePivotTable(rngD, "pv1")                     ‘캐쉬 영역을 기반으로 피벗 생성 

With pt 
   .AddFields "연령", "발신지_구"                            ‘연령별(행), 발신지구별(열) 
   .AddDataField .PivotFields("통화건수"), , xlSum             ‘통화건수(∑값)의 합계 
End With 

Application.ScreenUpdating = True 

Set sd = Nothing 
Set ss = Nothing 
Set rngS = Nothing 
Set rngD = Nothing

출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]