列AからAIのデータをピボットテーブルの最後の行までコピーして貼り付けます

Question

列AとAIのデータをコピーして、列AOにあるピボットテーブルの最後の列にコピーしようとしていますAPへ

私はこのコードを試しましたが、ピボットテーブルの最後の行を超えて貼り付けを続けます。

Sub Test1() 

    Dim LastRow As Long 

    Set blah = Range("A2:AI2") 

    Sheets("FI").Activate 

    LastRow = Cells(Cells.Rows.Count, "AO").End(xlUp).Row 
    Range("A2:AI2" & LastRow).FillDown 

End Sub 

Answer 1

VBAでピボットテーブルからフィールドを選択するには、このようなものを使用することができます。ピボットテーブルから選択することができるものの

Dim Wks as Worksheet, oPvt as PivotTable 
Set Wks = ActiveWorksheet 
Set oPvt = Wks.PivotTables([PivotTableName]) 

oPvt.PivotSelect Name:="[Field]", _ 
        Mode:=xlDataAndLabel, _ 
        UseStandardName:=True 
Selection.Copy 

もっとオプションがthisでhereとPivotTable.PivotSelect方法で、フィールドからいくつかの特定のデータを選択する方法を示しています。