删除工作表中第一个和最后四个之间的所有列

我在这里有一个工作表，有多列数据，从AA到CT。 第一列包含标题行，并被冻结。 数据每周添加到此范围的最后一列。 ＆然后删除第一个和最后四个之间的所有列（以显示一个月的数据，但保持标题完整）。

我对VBA很陌生，我一直在试图编写一些代码来实现这一点，到目前为止，我已经设法从最后select第五列。 但我不能得到它select从结束第四列和单元格AA之间的列：

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 可以是一个数字以及一个文本标识符。