原文地址:批量删除指定文件夹中excel指定的列-百度经验 (baidu.com)
VB代码如下:
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("F:G").Select 'Worksheets(1)中的1代表删除每个excel中最左侧的工作簿,Columns("D:D")中"D:D"代表删除D列,如果删除其他列或者连续的几列,修改该值。
Selection.Delete Shift:=xlToLeft
ActiveWorkbook.Save
Workbooks(2).Close
myExcels = Dir
Loop
Application.DisplayAlerts = True
MsgBox "删除完成"
End Sub
转载本文请联系原作者获取授权,同时请注明本文来自张乐乐科学网博客。
链接地址:https://wap.sciencenet.cn/blog-1103122-1331729.html?mobile=1
收藏