如何刪除范圍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  

Answer 2

您不必指定行引用...

ActiveSheet.Range(, MyColumn).EntireColumn.Delete

其中'myColumn'是對列號或任何您想要的任意引用。

Answer 3

    Dim xlsRange As Excel.Range

    xlsRange = xlsSheet.Range("i2", "i10")

    xlsRange.EntireColumn.Delete()