批量删除多个相同格式内容的Excel表格的列

1、新建一个Excel表格，在底部的sheet当中鼠标右键单击，选择“查看代码”。

3、将VB代码复制到VB代码编辑器当中。Sub Del_Col()Applicat坡纠课柩ion.DisplayAlerts = FalseDim myFiles As StringDim myExcels As StringWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = False.Title = "请选择要删除列的文件所在文件夹"myFiles = .SelectedItems(1)End WithmyExcels = Dir(myFiles & "\" & "*.xls*")Do While Len(myExcels) <> 0Workbooks.Open (myFiles & "\" & myExcels)Worksheets(1).Columns("H:H").DeleteWorksheets(1).Columns("F:F").DeleteWorksheets(1).Columns("E:E").DeleteWorksheets(1).Columns("C:C").DeleteWorksheets(1).Columns("B:B").DeleteActiveWorkbook.SaveWorkbooks(2).ClosemyExcels = DirLoopApplication.DisplayAlerts = TrueMsgBox "删除完成"End Sub

5、在打开的对话框当中，选择批量删除列的文件夹。

6、此时VB代码会自动运行，等待运行完毕即可。