联想台式机
Windows10
officeoffice2010
新建一个Excel表格，在底部的sheet当中鼠标右键单击，选择“查看代码”。
打开VB代码编辑器。
将VB代码复制到VB代码编辑器当中。Sub Del_Col()Application.DisplayAlerts = False Dim myFiles As String Dim myExcels As String With Application.FileDialog(msoFileDialogFolderPicker) .Show .AllowMultiSelect = False .Title = '请选择要删除列的文件所在文件夹' myFiles = .SelectedItems(1) End With myExcels = Dir(myFiles & '\' & '*.xls*') Do While Len(myExcels) <> 0 Workbooks.Open (myFiles & '\' & myExcels)Worksheets(1).Columns('H:H').DeleteWorksheets(1).Columns('F:F').Delete Worksheets(1).Columns('E:E').Delete Worksheets(1).Columns('C:C').Delete Worksheets(1).Columns('B:B').DeleteActiveWorkbook.SaveWorkbooks(2).Close myExcels = Dir Loop Application.DisplayAlerts = True MsgBox '删除完成' End Sub
点击上方的运行按钮。
在打开的对话框当中，选择批量删除列的文件夹。
此时VB代码会自动运行，等待运行完毕即可。
注意：Worksheets(1).Columns('H:H').Delete语句只能删除一行，不是同时删除。例如我们要删除CDEF四行，那我们就需要将该代码复制四次，然后将Columns('H:H')全部改为Columns('C:C')就可以了。