如何批量删除多个表格中的指定列

Question

不好意思我又来提问了。这次我有400个电子表格，这400个表格指的是独立的表格，不是一个工作薄中的多个Sheet，每个表格的格式都是一样的，现在想统一删除每一个表格的A列，有快捷点的方法么？

Answer 1

可以使用VBA操作。
关闭其他所有excel，打开一个excel；
复制如下代码到模块中；
运行，选择文件夹。
该代码删除的是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追问

没有成功。然后我发现每个表格的Sheet1表名坑爹的都不是“Sheet1”，而是不同的名称。我....我....我....还是老老实实一个一个删算了。泪目.jpg