使用两个命名范围删除一系列的列

我需要使用两个命名区域来删除一系列的行

当前查找最后一列（lastColumn）的列号，然后find它后面的列6（colrange）

Dim lastColumn As Integer With ActiveSheet lastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column End With colrange = lastColumn - 6 

我想删除范围colrange：lastColumn中的列，但不知道如何做到这一点？

Answer 1

Range(Cells(1,colRange),Cells(1,lastColumn)).EntireColumn.Delete

Answer 2

你可以简单地使用：

 Range(Columns(colRange),Columns(lastColumn)).Delete 

或直接：

 With ActiveSheet .Range(.Columns(.Cells(1, .Columns.Count).End(xlToLeft).Column - 6), .Columns(.Cells(1, .Columns.Count).End(xlToLeft).Column)).Delete End With