excel - 如何删除Excel VBA范围内的列

Question

我有一个名为“Start”的范围，位于单元格“I21”处。我有另一个名为“End”的范围，位于单元格“Q21”。我想编写一段代码来删除它们之间的所有列。换句话说，我想完全删除J、K、L、M、N、O、P列。这是我的代码:

with ThisWorkbook.sheets("Sheet1")
    'unprotect sheet
    .Columns(.Range("Start").Column+1 & ":" & .Range("End").Column-1).Select
     Selection.Delete Shift:xlLeft
End with 

当涉及到第一行.Columns...时，它给我一个错误，因为未定义的应用程序。请帮忙，

Answer 1

Range(Range("start").Offset(,1), Range("end").Offset(,-1)).EntireColumn.Delete