Sub GetToolTip()
Dim pvTable As PivotTable
Dim pvRFld As PivotField
Dim iCl As Range
Dim iTxt$
Set pvTable = Worksheets("Лист1").PivotTables(1)
For Each pvRFld In pvTable.RowFields
  With pvRFld.DataRange
    For Each iCl In .Cells
      iTxt = IIf(iTxt = "", iCl.Value, iTxt & vbCrLf & iCl.Value)
    Next
    MsgBox pvRFld.Caption & vbCrLf & iTxt
    iTxt = Empty
  End With
Next
End Sub

=СУММ(ФИЛЬТР.XML("<l><i>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("/";1;ФИЛЬТР($A4:$Y4;$A$3:$Y$3=Z$3;0));"/";"</i><i>")&"</i></l>";"//i[position() mod 2 = 1]"))&"/"&СУММ(ФИЛЬТР.XML("<l><i>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("/";1;ФИЛЬТР($A4:$Y4;$A$3:$Y$3=Z$3;0));"/";"</i><i>")&"</i></l>";"//i[position() mod 2 = 0]"))

J = J - 1

=СУММ(ФИЛЬТР(ФИЛЬТР($B$2:$AM$9;$A$2:$A$9=$A18;0);МЕСЯЦ($B$1:$AM$1)=МЕСЯЦ(B$17);0))

=ФИЛЬТР(ФИЛЬТР(C2:F7;B2:B7=M2);C1:F1=M3)

=СЧЁТЗ(ФИЛЬТР($B$2:$B$84;(ТЕКСТ($A$2:$A$84;"ММММ")=G$2)*(ПРОПИСН($B$2:$B$84)=$F3)))