Sub 삭제된항목제거1()
    
    Dim 피벗 As PivotTable
    Dim 필드 As PivotField
    Dim 항목 As PivotItem
    Dim 메시지 As String
    Dim i As Integer
    
    Set 피벗 = ActiveSheet.PivotTables(1)
    
    On Error Resume Next
    
    For Each 필드 In 피벗.PivotFields
    
        For Each 항목 In 필드.PivotItems
    
            If 항목.DataRange Is Nothing Then
                항목.Delete
                i = i + 1
            End If
                    
        Next
        
    Next

    피벗.RefreshTable
    
    메시지 = "존재하지 않는 항목을 " & i & " 개 찾아 삭제했습니다."
    
    MsgBox 메시지, vbInformation, "유령 항목 삭제"
    
End Sub