Sub 개수를합계로()

    Dim 시트 As Worksheet
    Dim 피벗 As PivotTable
    Dim 필드 As PivotField

    For Each 시트 In ActiveWorkbook.Worksheets
    
        For Each 피벗 In 시트.PivotTables
        
            피벗.ManualUpdate = True
    
            For Each 필드 In 피벗.DataFields
            
                If 필드.Function = xlCount Then
            
                    필드.Function = xlSum
                    
                End If
            
            Next
            
            피벗.ManualUpdate = False
    
        Next
    
    Next

End Sub
