如何用vba设置数据透视表中的错误值和空单元格的显示值？

在vba中可以使用PivotTable对象的DisplayNullString 、DisplayErrorString 两个属性分别设置是否对于数据透视表中的空单元格和错误值进行的特殊的显示，然后通过ErrorString、NullString设置要替换显示的字符。

代码如下：

Sub QQ1722187970()
    Dim oPC As PivotCache
    Dim oPT As PivotTable
    Dim oPF As PivotField
    Dim oPI As PivotItem
    Dim oWK As Worksheet
    Set oWK = Sheet2
    Set oPT = oWK.PivotTables(1)
    With oPT
        .DisplayErrorString = True
        .DisplayNullString = True
        .NullString = "空白单元格"
        .ErrorString = "错误值"
    End With
End Sub