Excel VBAで動的ピボットテーブルを反復処理する方法は？

Question

私が受け取る毎日の入力では、手動で一度作成したピボットテーブルを作成します。ピボットテーブルにはアクティブなフィルタがあります。新しい入力を取得したら、ピボットをリフレッシュします。単純化されたように、それは次のようになります。マクロ小さなVBAで

、私は人の名前と彼が訪れた国を取得し、その二つの値のチェックを行いたいと思います。名前と国（たとえば、名前= Amanda、国=スペイン）をすべての行に取得するために、この動的ピボットテーブルを繰り返し処理するにはどうすればよいですか。

Answer 1

このコードはA列をループし、2つの変数、国と名前を設定します。
デバッグの目的で、私は文字列を出力します。

Sub Travel() 

    Lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    For i = 4 To Lastrow ' Change i to first row with a name in pivot table 
     If Range("A" & i).IndentLevel = 0 Then ' New person 
      Name = Range("A" & i).Value 
      Country = "" 
     Else 
      Country = Range("A" & i).Value 
     End If 

     If Country <> "" Then 
      ' For debug purpose 
      Range("C" & i).Value = Name & " was in " & Country 
     Else 
      ' The code is "in between" two names 
     End If 
    Next i 


End Sub