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

Question

我这里有一个工作表，里面有多列充满了数据，目前范围从单元格 AA 到 CT。第一列包含带标题的行，并被冻结。数据每周添加到此范围的末尾列。然后删除第一个和后四个列之间的所有列(以显示一个月的数据，但保持标题不变(。

我对 VBA 很陌生，我一直在尝试编写一些代码来自动化此操作，到目前为止，我已经设法从末尾选择了第 5 列。但是我无法让它选择末尾第 4 列和单元格 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可以是数字，也可以是文本标识符。