テーブルの列を削除し、残りの部分をExcelに以前のテーブルに影響を与えずに左にシフトする方法

Question

固定列EからSまでのデータテーブルと固定されていない行を含むブックがあります。毎週この表を「要約」という別のワークブックにコピーします。私はテーブルのいくつかの計算を行う必要がありますが、私は最初に列Pのデータを削除し、残りの部分を左にシフトする必要があります。しかし、私は現在の週の列Pを削除して前の週を無視したいだけです。これは私がすでに前の週の列Pを削除したためです。私は現在、手動で行っています。私は週当たり20のデータテーブルを持っているので、私はプロセスの大部分を自動化する必要があるので、時間がかかります。 。列Pを削除した後に必要な計算プロセスのコードを作成しました。ワークシートに貼り付けられたデータの最後のテーブルを見つけて、前のデータに影響を与えずに列Pを削除するにはどうすればよいですか？

これは私が使用した計算コードです。おそらく、私は列Pを削除するコードを作成し、この計算コードを実行する前に他のものを左にシフトする必要があります。

Dim ws As WorksheetDim y As Workbook 
Dim rng As Range 
Dim i As Integer, r As Long, j As Long 


Set y = ThisWorkbook 


For Each ws In y.Worksheets 
    For Each rng In ws.UsedRange.SpecialCells(xlCellTypeConstants, 3).Areas 
     If rng.Rows.Count > 1 And rng.Columns.Count = 14 Then 
      j = 2 
      r = rng.Cells(rng.Rows.Count, 1).Row + 1 
      ws.Cells(r, rng.Columns(1).Column).Value = "total expenses" 
      For i = rng.Columns(2).Column To rng.Columns(2).Column + 12 
        ws.Cells(r, i).Formula = "=SUM(" & rng.Columns(j).Address & ")" 
        j = j + 1 
      Next i 
     End If 
    Next rng 
Next 

これは、現在の週テーブルの列P（99-0）を削除する必要があるワークシートに貼り付けた後の表の例です。 Example of the table

Answer 1

は、あなたのデータレイアウトによると、あなたは列Sをキャプチャし、それに応じて、列Pに移動する最初の必要があります。これを行う必要があります：

With ws 
    .Range(.Range("S1").End(xlDown), .Range("S999999").End(xlUp)).Offset(,-3).Delete Shift:=xlToLeft 
End With 

Answer 2

貼り付ける前に列Pを削除するだけですか？サンプルデータがなければ、あなたの求めるものを伝えるのは難しいです。

Columns("P:P").Select 
Selection.Delete Shift:=xlToLeft 

Answer 3

範囲内のインデックスで列を削除できます。

Range.CurrentRegion.Columns(12).Delete Shift:=xlToLeft 

上記の範囲は、テーブルを貼り付けた場所です。 12は列インデックスです。範囲E：S列Pは12です。