批量删除同一个文件夹里面所有excel的某一列

可以使用VBA操作。

1. 关闭其他所有excel，打开一个excel；

2. 复制如下代码到模块中；

3. 运行，选择文件夹。

• 该代码删除的是A列，可选择其他列。更该代码即可。
  

Sub Del_Col()
Application.DisplayAlerts = False
Dim myFile As String
Dim myDoc As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
.AllowMultiSelect = False
.Title = "选择文件夹"
myFile = .SelectedItems(1)
End With
myDoc = Dir(myFile & "\" & "*.xls*")
Do While Len(myDoc) <> 0
Workbooks.Open (myFile & "\" & myDoc)
Worksheets(1).Columns("A:A").Select '删除A列
Selection.Delete Shift:=xlToLeft
Workbooks(2).Close
Save = True
myDoc = Dir
Loop
Application.DisplayAlerts = True
End Sub