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

Question

http://zhidao.baidu.com/question/1704851171483228140.html
我发帖子了 ，麻烦帮我看看，不胜感谢！

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