Excel删除指定列（VB）

大量excel删除指定列

第一步：将需要删除指定列的excel放到同一文件夹（需要删除的表格）下。

第二步：需要删除的表格同一级目录下新建Excel并打开，右键sheet1查看代码打开编辑器，输入以下代码：

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("A:A").Select '删除excel中的A列'
Worksheets(1).Columns("B:B").Select '删除excel中的B列'
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.Save
Workbooks(2).Close
myExcels = Dir
Loop
Application.DisplayAlerts = True
MsgBox "删除完成"
End Sub

点击运行按钮根据提示选择需要删除的文件夹即可。（.xls和.xlsx均可运行）