Question

我手头上有一堆EXCEL的表格需要处理，我想问一下怎么样批量删除A列B列F列G列单元格呢？有公式吗？

我想过用按键精灵，但是不知道怎么用快捷键选择特定的列

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

追问

因为财务软件导出的缘故，我需要一个个的打开处理
麻烦你告诉我 删除 A B F G 列的的代码就好了 谢谢你 大好人

追答

这不就是代码么。 。。。

都写给你了 。 你还要什么

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 '删除A列
Columns(2).Delete '删除B列
Columns(6).Delete '删除F列
Columns(7).Delete '删除G列

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

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

End Sub

Answer 2

是同一个文件里不同的Sheet表格吗？如果是，则选定第一个Sheet表格，按住SHIFT键，再选最后一个Sheet表格（也就是选定全部Sheet表格）。然后直接删除你想删除的列。

追问

是不一样的SHEET 有没有选中特定列的快捷键呢？

追答

如果是不同的文件的话，就不知道了，应该没有吧？

Answer 3

同一工作表内的，使用工作组可进行操作。单击第一个表格标签名称，按住Shift键，单击最后一个标签名称（不连续的话，按住院Ctrl键，分别单击标签）可选中工作表，此时自动形成工作组，对其中任何一个工作组操作，其他所有工作表自动进行相同的操作。