|||
原文地址:批量删除指定文件夹中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
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-9-24 07:36
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社