将数据从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

您可以从数据透视表中选择的更多选项是here中的this和PivotTable.PivotSelect方法，并向您展示如何从字段中选择某些特定数据。