在前两个屏幕截图中设置数据和透视后,您可以在数据透视表中选择一个单元格并尝试运行此代码以获取最后一个屏幕截图:
Sub UpdatePivot()
With ActiveCell.PivotTable
AddPivotLabels .PivotFields("l1"), .PivotFields("l1c")
AddPivotLabels .PivotFields("l2"), .PivotFields("l2c")
AddPivotLabels .PivotFields("l3"), .PivotFields("l3c")
End With
End Sub
Sub AddPivotLabels(pName1 As PivotField, pName2 As PivotField)
Dim i As Long
For i = 1 To pName1.PivotItems.Count
pName1.PivotItems(i).Value = pName1.PivotItems(i).SourceName & _
" (" & pName2.PivotItems(i).SourceName & ")"
Next i
End Sub
注意:这假设关系是 1-1,您可能希望在运行更大的数据集之前检查这一点。