피벗 테이블에 여러 필드를 추가하는 방법은 무엇입니까?

피벗 테이블을 생성할 때, 우리는 각 필드를 하나씩 수동으로 행 레이블이나 값 영역으로 드래그해야 합니다. 만약 많은 필드 목록이 있다면 몇 개의 행 레이블을 빠르게 추가할 수 있지만, 나머지 필드는 값 영역에 추가되어야 합니다. 피벗 테이블에서 한 번의 클릭으로 모든 다른 필드를 값 영역에 추가할 수 있는 빠른 방법이 있을까요?

VBA 코드를 사용하여 피벗 테이블의 값 영역에 여러 필드 추가하기

VBA 코드를 사용하여 피벗 테이블의 값 영역에 여러 필드 추가하기

안타깝게도 피벗 테이블 필드 목록에서 모든 필드를 한 번에 선택할 수 있는 체크박스는 없지만, 다음 VBA 코드를 사용하면 남은 필드들을 한 번에 값 영역에 추가할 수 있습니다. 아래 단계를 따르세요:

1. 피벗 테이블을 생성한 후, 먼저 필요에 따라 행 레이블 필드를 추가하고, ' 보고서에 추가할 필드 선택' 목록에 값 필드를 남겨둡니다. 스크린샷 참고:

2. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

3. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 코드를 붙여넣습니다.

VBA 코드: 활성 워크시트의 피벗 테이블 값 영역에 여러 필드 추가하기

Sub AddAllFieldsValues()
'Update 20141112
    Dim pt As PivotTable
    Dim I As Long
    For Each pt In ActiveSheet.PivotTables
        For I = 1 To pt.PivotFields.Count
            With pt.PivotFields(I)
              If .Orientation = 0 Then .Orientation = xlDataField
            End With
        Next
    Next
End Sub

4. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 모든 남은 필드가 동시에 값 영역에 추가됩니다. 스크린샷 참고:

참고: 이 VBA 코드는 활성 워크시트의 모든 피벗 테이블에 적용됩니다.

관련 문서:

워크북에서 모든 피벗 테이블을 나열하는 방법은 무엇입니까?

워크북에 피벗 테이블이 있는지 확인하는 방법은 무엇입니까?