zhanglele10的个人博客分享 http://blog.sciencenet.cn/u/zhanglele10

博文

[转载]批量删除指定文件夹下所有excel的某一列

已有 988 次阅读 2022-3-30 17:07 |个人分类:excel|系统分类:科研笔记|文章来源:转载

原文地址:批量删除指定文件夹中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://blog.sciencenet.cn/blog-1103122-1331729.html

上一篇:数据下载
下一篇:一个查找SCI期刊缩写的网站
收藏 IP: 111.12.134.*| 热度|

0

该博文允许注册用户评论 请点击登录 评论 (0 个评论)

数据加载中...
扫一扫,分享此博文

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2022-8-13 08:51

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部