シート上の最初と最後の4つの間のすべての列を削除する

Question

現在、セルAAからCTまでの範囲のデータでいっぱいの複数の列を持つワークシートがあります。最初の列には見出しのある行が含まれ、固定されます。この範囲の週末にデータが追加されます。 &最初と最後の4つの間のすべての列が削除されます（1ヶ月分のデータが表示されますが、見出しはそのままです）。

私はVBAの新機能で、これを自動化するためのコードを書こうとしていましたが、これまでは5番目の列を最後から選択していました。しかし、私はそれが最後とCell AAから4列目の間の列を選択するために取得することはできません。

Sub DeleteColumns() 
    Dim i 
    i = Range("KFIData").End(xlToRight).Offset(0,-4).EntireColumn.Select 
    Columns("AA:ColumnFive").Delete 
End Sub 

私は完全にこのことについて間違った道を進んでいますか？

感謝

Answer 1

さてあなたは、この文を使用し、端から5列目をキャッチするために管理している場合：

Range(Columns("AA"), Columns(ColumnFiveFromEnd)).Delete 

ColumnFiveFromEndは数だけでなく、テキスト識別子することができます。