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

Excel批量删除指定文件夹下所有文件的指定行和列的VBA代码假设要删除E盘下“西林”文件夹下“九”文件夹下所有文件的U列到AP列和第七行的VBA代码：Subtest()Application.DisplayAlerts=FalseApplication.ScreenUpdating=FalseP=E:\西林\九\'假设文件所在的文件夹F=Dir(P&*.xls)'是2003版的，2007的请改为*.xlsxDoWorkbooks.Open(P&F)Workbooks(F).Worksheets(1).Columns(U:AP).Delete'这里假设每个工作簿里只处理一个工作表，且该表在最左边。删除U列到AP列。Workbooks(F).Worksheets(1).Range(7：7).Delete'这里是删除第七至第七行Workbooks(F).CloseTrueF=DirLoopUntilF=Application.ScreenUpdating=TrueApplication.DisplayAlerts=TrueEndSub在宏安全性设为“中”，点“工具”——“宏”——“VisualBasic”在左连点鼠标右键—插入—模块：将以上代码复制到右连点保存，按F5就自动运行了。