Как удалить столбцы диапазона Excel VBA

Question

У меня есть диапазон с именем «Старт», расположенный в ячейке «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 

, когда дело доходит до первой строки. Столбцы ... выдает ошибку как неопределенное приложение.пожалуйста помогите,

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()