D. 파일 내의 모든 피벗테이블 삭제

D. 파일 내의 모든 피벗테이블 삭제

직접 하셔도 됩니다만, VBA를 사용하실 때 피벗테이블 삭제가 어려우실 수 있습니다. 이 Sub를 사용하세요.

​

Sub DeleteAllPivotTablesInWorkbook()

Dim WB As Workbook, WS As Worksheet, PT As PivotTable

If ActiveWorkbook Is Nothing Then

MsgBox "활성화된 시트가 없습니다!", vbExclamation, "에러가 났습니다!"

Exit Sub

End If

If MsgBox("모든 피벗테이블을 삭제할까요?", _ vbYesNo + vbDefaultButton2, "전부 삭제할까요?") = vbNo Then Exit Sub

On Error Resume Next

For Each WS In ActiveWorkbook.Worksheets

For Each PT In WS.PivotTables

WS.Range(PT.TableRange2.Address).Delete Shift:=xlUp

Next PT

Next WS

End Sub