删除某个范围内使用两个命名范围

Question

列，我需要用两个命名范围

删除行的范围

目前发现的最后一列的列数（lastColumn），然后它后面的列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