从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

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