删除工作表

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