软件: EXCEL 2007
我想要删除表格物件中，位在最下方空白没有用到的列
我写了以下Loop:
cod=表格总列数
sheet1N=资料总笔数
k = 1
Do
k = k + 1
Selection.ListObject.ListRows(sheet1N + 1).Delete
Loop Until k = cod - sheet1N + 1
这个程序可以完成任务
但是速度超慢，慢到我都怀疑人生了!!
不知道有没有什么更快速的方法呢?
还有这代表loop循环的运算是很慢的吗?
感谢各位!!

那不要用循环，复制要的资料到新工作表，删除原工作表新工作表更名同原工作表名称有资料总笔数(sheet1N)和表格总列数(cod)应也可以rowssheet1N+1 & ":" & cod 的方式delete

Listrows() 好像不支援 1:20 这种用法我自答 我找到答案了Selection.ListObject.Range.Rows("15:20").Delete谢谢S大