如果数据透视表中有空单元格，则添加msgbox

Sub CheckEmptyCells()
    Dim pt As PivotTable
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置数据透视表所在的工作表和范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:E10")
    
    ' 创建数据透视表
    Set pt = ws.PivotTableWizard(SourceType:=xlDatabase, SourceData:=rng, _
        TableDestination:=ws.Range("G1"))
    
    ' 检查数据透视表中的空单元格
    For Each cell In pt.TableRange1
        If cell.Value = "" Then
            ' 添加MsgBox函数来显示消息框
            MsgBox "数据透视表中存在空单元格！"
            Exit Sub
        End If
    Next cell
    
    ' 如果没有空单元格，则显示完成消息
    MsgBox "数据透视表中没有空单元格。"
End Sub