Excel 在数据之间插入一行之后，我必须在插入行的上方创建一个数据透视表。我如何做到这一点，因为它每周都在变化？

在我的代码中，我在数据点之间插入了一行，然后需要在插入行的上方创建数据透视表。由于数据将每周更改，我需要一个能够更改该数据集的代码。从这里开始，我需要在透视表中执行一个vlookup，将其转换到另一个工作簿。我该怎么做

Sub ptab 
    Range(“A4:F30”).Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDataBase, SourceData:=“GL ENTERED INV raw data! R3C1:R30C6”, Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:”Sheet1!R3C1”, TableName:=“PivotTable1”, defaultversion:=xlPivotTableVersion12
Sheets(“Sheet1”).Select
Cells(3,1).Select
ActiveSheet.PivotTables(“PivotTable1”).AddDataField ActiveSheet.PivotTables(“PivotTable1”).PivotFields(“Ledger acct”), “Sum of ledger acct”, xlSum
ActiveSheet.PivotTables(“PivotTable1”).AddDataField ActiveSheet.PivotTables(“PivotTable1”).PivotFields(“Amount”), “Sum of amount”, xlSum
With   ActiveSheet.PivotTables(“PivotTable1”).PivotFields(“Sum of ledger acct”)
    .Orientation = xlRowField
End with
    Windows(“cash.xlsx”).Activate
    Range(“E2”).Select
    ActiveCell.FormulaR1C1 =“ =vlookup(RC[-3]:R[57]C[-3],’[yGL dcs.xlsx]Sheet1’!R4C1;R13C2, 2, False)”
Selection.AutoFill Destination:=Range(“E2:E59)
End sub 

---

请原谅，我是在iPhone上写这篇文章的，由于某种原因，它会把所有内容都阻塞在一起。要获取指定列中的最后一行，可以使用

ActiveSheet.Cells（Rows.Count，ColumnNumber）。End（xlUp）.Row

我不认为这会有什么帮助，因为它会在数据末尾的列中找到我插入了一行的最后一行，我需要让它找到插入的行，并在上面做一个透视表。所以你可以做一些事情，比如把一个字符串放在一起“E2:E”&LastRow所以你插入数据，然后忽略新数据，只从上面的所有行创建一个透视表？请原谅，我在iPhone上写这篇文章，由于某种原因它会将所有内容都阻塞在一起。要获取指定列中的最后一行，可以使用

ActiveSheet.Cells（rows.Count，ColumnNumber）。End（xlUp）.Row

我不认为这会有什么帮助，因为它会在数据末尾的列中找到我插入了一行的最后一行，我需要让它找到插入的行，并在上面做一个透视表。所以你可以做一些事情，比如把一个字符串放在一起“E2:E”&LastRow那么您插入数据，然后忽略新数据，只从上面的所有行创建透视表？