EXCEL表格中，怎样可以隔列删除？ 即A、C、E、F列一次过就可以删除！

Question

前提是不需要按往CTRL然后一列列的选！

Answer 1

如果你一定要解决
Hi 我
给你写个宏， 5秒钟 摆平

把所有文件放到一个文件夹里
新建一个工作表
打开
按alt+F11
视图---代码窗口---复制以下代码 进去
按F5就好了

Sub 按钮1_单击()

Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
Application.ScreenUpdating = False '冻结屏幕，以防屏幕抖动
myPath = ThisWorkbook.Path & "\" '把文件路径定义给变量

myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件
Do While myFile <> "" '当指定路径中有文件时进行循环
If myFile <> ThisWorkbook.Name Then
Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
For i = 1 To AK.Sheets.Count
Columns(1).Delete
Columns(2).Delete
Columns(6).Delete
Columns(7).Delete

Next
Workbooks(myFile).Close False '关闭源工作簿,并不作修改
End If
myFile = Dir '找寻下一个*.xls文件
Loop

Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
MsgBox "删除完成，请查看！", 64, "提示"

End Sub
本回答被提问者采纳

Answer 2

利用辅助行，然后对辅助行排序后删除就可。
比如插入一行；输入：
=IF(MOD(COLUMN(),2)=1,1,"")

Answer 3

按住Ctrl+Shift键选中您要删除的列，然后，右击鼠标，选中“删除列”即可。
朋友试试吧，祝您成功！

Answer 4

估计楼主是要删除的列比较多且不相连，一楼思路正确，不过没必要用到公式吧，
在最前或最后增加一行，在要删除的列写1，不删除的列写2，排序，删除不就行了
PS：如果不想改变保留列的顺序，可以直接在A列写1，B列写2，向右拉伸自动填充，然后再把要删除的列改成0，排序，删除。ok

Answer 5

我也想知道