Excel删除指定文件夹下所有文件的指定行和列的VBA代码

Excel批量删除指定文件夹下所有文件的指定行和列的VBA代码

Excel批量删除指定文件夹下所有文件的指定行和列的VBA代码 假设要删除E盘下“西林”文件夹下“九”文件夹下所有文件的U列到AP列和第七行的VBA代码：

Sub test()

Application.DisplayAlerts = False

Application.ScreenUpdating = False

P = 'E:\西林\九\' '假设文件所在的文件夹

F = Dir(P & '*.xls') '是2003版的，2007的请改为''*.xlsx' Do

Workbooks.Open (P & F)

Workbooks(F).Worksheets(1).Columns('U:AP').Delete '这里假设每个工作簿里只处理一个工作表，且该表在最左边。删除U列到AP列。 Workbooks(F).Worksheets(1).Range('7：7').Delete '这里是删除第七至第七行

Workbooks(F).Close True

F = Dir

Loop Until F = ''

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

在宏安全性设为“中”，点“工具”——“宏”——“Visual Basic”在左连点鼠标右键—插入—模块：将以上代码复制到右连点保存，按F5就自动运行了。