Classe PivotItemList (Excel VBA)
Uma coleção de todos os objetos PivotItem na tabela dinâmica especificada. Para usar uma variável de classe PivotItemList, ela primeiro precisa ser instanciada por exemplo
Dim pil as PivotItemList
Set pil = ActiveCell.PivotCell.RowItems
Count
Retorna um valor Long que representa o número de objetos na coleção.
Dim lngCount As Long
lngCount = ActiveCell.PivotCell.RowItems.Count
Item
Retorna um único objeto de uma coleção.
O nome de texto do objeto é o valor das propriedades Name e Value .
Item (Index)
Index: O nome ou número de índice do objeto.
Dim pvtiPivotItemList As PivotItem
Set pvtiPivotItemList = ActiveCell.PivotCell.RowItems(Index:=1)