用VBA删除工作表中不需要的列不需要的列

305889546

学习笔记 请教各位大神一个问题  我有一个工作表 每次从金蝶里面导出来，都要删掉一些不要的列 ，比如我先在要删掉 A：A，B：B，O：O，R：R，P：P这些列，能不能有个代码，一次就删除 并且我把代码保存下次用【萌主】圆舟(356417) 08:58:25

Public Sub t()
    arr = Array(10, 7, 5, 3, 1)
    For i = UBound(arr) To 0 step -1
    Columns(arr(i)).Delete
     NEXT
End Sub

记得把file:///C:\Users\admin\AppData\Roaming\Tencent\QQ\Temp\A67147022C3F49898EF86320A772138D.png这里 Array(10, 7, 5, 3, 1)换成你要删除的列

你可以正序删除一下试试.

【萌主】圆舟(356417) 09:00:53 正序你删除完1,那3就变成2了.后面不是全乱

05050818

呵呵，我刚开始就是正向删的，结果…就没有结果了