我有一个名为“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...时,它给我一个错误,因为未定义的应用程序。 请帮忙,
最佳答案
Range(Range("start").Offset(,1), Range("end").Offset(,-1)).EntireColumn.Delete
关于excel - 如何删除Excel VBA范围内的列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3592273/