VBAデータの特定のポイントに行を挿入します

Question

私はこのピボットテーブルを持っています私は自分のデータの上に挿入しています。データは長さが異なるので、ピボットテーブルと異なる長さにすることができます。だから、私がやっていることは、おそらく行30で始まるシート上にデータを少し下に置くことです。次にピボットテーブルを上に挿入します。次に、データとピボット・テーブルの間の空白の行をすべて削除するコードを作成します。

sub foo() 
    dim r As Range, rows As Long, i As Long 
    Set r = ActiveSheet.Range("A1:Z50") 
    rows = r.rows.Count 
    For i = rows To 1 Step (-1) 
     If WorksheetFunction.CountA(r.rows(i)) = 0 Then r.rows(i).Delete 
    Next 
End Sub 

このコードはすべての空白行を削除し、正常に動作しているようです。それはすべてをまとめているので、ピボットテーブルとデータの間に2行の空白行を入れていますが、ピボットテーブルの終了位置やデータの開始位置を特定する方法はわかりません。

だから私はそれが^^^^見えるようにしたいが、今は行7と8が存在しないと、私のデータは私のピボットテーブル上に押し上げています。どんな助けもよろしくお願いします！

Rows.Count + 1などを使用している人がピボットテーブルの終了位置を見つけると思っていました。しかし、私はそれがすぐ後の行にデータがあるので、それがどのように決定するのか分かりません。だから、私は、データが列Aで始まり、その直前に行を挿入するときに見つける必要があるかもしれません。ヘルプのために事前にありがとう！

Answer 1

は、これらの線に沿って何かを試してみてください：

Public Sub Answer() 
    Dim dataTopRowIndex As Integer 
    Dim ptBottomRowIndex As Integer 

    With ActiveSheet 'Note: use your worksheet's CodeName here instead, e.g. With Sheet1 (Active[anything], Activate, Select, Selection: evil). 
     dataTopRowIndex = .Cells(1, 1).End(xlDown).Row 

     With .PivotTables("PivotTable1").TableRange1 'Replace PivotTable1 by your PT's name. 
      ptBottomRowIndex = .Row + .Rows.Count - 1 
     End With 

     If (dataTopRowIndex - ptBottomRowIndex - 1) > 2 Then 
      .Range(.Rows(ptBottomRowIndex + 1), .Rows(dataTopRowIndex - 3)).EntireRow.Delete 
     End If 
    End With 
End Sub