如何用vba给数据透视表添加计算字段？

要用vba给数据透视表添加计算字段，可以使用PivotTable对象的CalculatedFields方法返回CalculatedFields集合对象。然后用CalculatedFields集合对象的Add方法添加计算字段。

以下vba代码举例演示了如何用vba给数据透视表添加计算字段：

Sub QQ1722187970()
    Dim oPC As PivotCache
    Dim oPT As PivotTable
    Dim oPF As PivotField
    Dim oPI As PivotItem
    Dim oWK As Worksheet
    Set oWK = Sheet8
    Set oPT = oWK.PivotTables(1)
    With oPT
        Set oPF = .CalculatedFields.Add(Name:="这是一个计算字段", Formula:="=2*到期本金", UseStandardFormula:=True)
    End With
End Sub

这里要特别注意的是CalculatedFields.Add的Formula参数的值的书写方式。