excel文件宏处理方法.docVIP

录制宏可以解决这个问题。 准备工作：确保这些要处理的excel文件的名称是有规律的，比如Book1.xls；Book2.xls;Book3.xls；Book4.xls；Book5.xls；... 新建一个excel文件Book0.xls 单击菜单“工具”－“宏”－“录制新宏” 单击“确定”按纽开始录制 单击“文件”－“打开”，打开一个excel文件Book1.xls，把“ABCDGH”选中，用右键删除整列。 关闭该文件，记得保存。 停止录制。 到这一步就录制好一个模版了，但这样没有批量处理功能，下面就来添加。 单击菜单“工具”－“宏”－“宏” 这时你刚才录制的宏应该在其中，选中它，单击编辑按纽，现在的代码如下： ---------------- Workbooks.Open Filename:=D:\excel\Book1.xls 作为示例的工作表的路径 Range(A:A,B:B,C:C,D:D,G:G,H:H).Select 选中要删除的列 Selection.Delete Shift:=xlToLeft 删除 ActiveWorkbook.Save 保存 ActiveWindow.Close 关闭 ---------------- 下面加个循环功能 ---------------- Dim iCol As Integer For iCol = 1 To 100 根据自己的实际情况修改，这里表示文件的名称是从Book1.xls到Book100.xls Workbooks.Open Filename:=D:\excel\Book CStr(iCol) .xls 关键，循环一次改变一次文件名 Range(A:A,B:B,C:C,D:D,G:G,H:H).Select Selection.Delete Shift:=xlToLeft ActiveWorkbook.Save ActiveWindow.Close Next iCol End Sub ---------------- 如果文件名规律不对，可以用ACDSee之类可以批量重命名的软件修改一下。 最后，保存修改好的宏，单击“运行子过程/用户窗体”按纽执行。 执行前记得把原excel文件做个备份。Sub Macro1() Macro1 Macro 宏由 雨林木风 录制，时间: 2010-9-3 Dim iCol As Integer For iCol = 40 To 170 循环条件 Workbooks.Open Filename:=D:\csv\ CStr(iCol) .csv 打开文件，icol代表文件中的数字 Columns(K:K).Select Selection.Cut Columns(A:A).Select ActiveSheet.Paste Columns(E:E).Select Selection.Cut Columns(B:B).Select ActiveSheet.Paste Columns(D:D).Select Selection.Cut Columns(C:C).Select ActiveSheet.Paste Columns(D:K).Select Selection.ClearContents ActiveWorkbook.Save ActiveWindow.Close Next iCol End Sub