订阅批量删除指定文件夹中excel指定的列
来源：网络收集 点击： 时间：2024-03-11首先需要任意新建一个excel，主要用于运行宏命令。
2/9打开新建的excel，点击【开发工具】-【VisualBasic】打开编辑器（看不到开发工具选项的在excel高级选项中设置一下即可）。
3/9双击编辑器左侧的【Sheet（sheet1）】
4/9将如下代码复制粘贴到编辑器中：
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(D:D).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
5/9根据实际需求修改代码中相应的值。本代码实现的是删除每个excel中第一个工作簿中的D列。如果需要删除其他列，或者删除其他某几列，则修改代码即可。
6/9将需要删除的excel放到一个统一的文件夹中（excel是xlsx、xls格式的都可以）。
7/9运行代码之前，请将电脑打开的除步骤一新建的excel全部关闭。点击代码编辑器的运行按钮，则开始执行代码。
8/9弹出窗口手动选择要删除的excel所在的文件夹。
9/9代码会自动执行删除操作，执行完成后会有如下的提示信息。
注意事项运行脚本前把其它无关的excel都关闭
版权声明：
1、本文系转载，版权归原作者所有，旨在传递信息，不代表看本站的观点和立场。
2、本站仅提供信息发布平台，不承担相关法律责任。
3、若侵犯您的版权或隐私，请联系本站管理员删除。
4、文章链接：http://www.1haoku.cn/art_316031.html
