批量删除同一个文件夹里面所有excel的某一列
上图是我要删除excel的三列。上图为我要统一处理的文件，求教。我没有积分了，/(ㄒoㄒ)/~~！！！...
上图是我要删除excel的三列。
上图为我要统一处理的文件，求教。我没有积分了，/(ㄒoㄒ)/~~！！！ 展开
上图为我要统一处理的文件，求教。我没有积分了，/(ㄒoㄒ)/~~！！！ 展开
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
