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

Question

我需要使用两个命名范围

删除一系列行

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

self.image = newValue

我想删除范围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