如何使用Excel VBA迭代動態數據透視表？

Question

在我收到的每日輸入中，我做了一個數據透視表，我手動創建了一次。數據透視表具有有效的過濾器。一旦我得到新的輸入，我刷新主鍵。在簡化的方式，它看起來像這樣：

用小VBA宏，我想找回人的名字，他訪問過的國家，然後做兩個值的檢查。我如何迭代這個動態數據透視表來獲取每一行的名稱和國家（例如Name = Amanda，Country = Spain）？

Answer 1

此代碼將遍歷A列並填充兩個變量Country和Name。
爲了調試目的，我輸出一個字符串。

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