在进行数据处理时，有时需要对多个excel进行同样的处理，这些excel有相同的格式，数据排列方式一致，只是数据不同，如果操作简单，需处理的excel数量不多，可以依次处理；如果excel的数量过多，多于100个，甚至更多，或者处理过程十分复杂，但是处理过程一致，那么使用“宏”批量对excel文件进行是相对来说较为有效的方法，大大节省时间。
基本原理和实例如下：（使用WPS的宏来示例）
1.工作需求：
（1）大量excel文件需要处理；
（2）对这些excel的处理过程一致，只是重复操作。
2.基本原理：
（1）使用“宏录制”录制操作，得到代码；
（2）将代码填写至构建好的批处理框架中；
（3）运行。
3.实例
工作需求：在1000个空白excel的sheet1中A1单元格都生成[0,1]的随机数，B1得到A1的10倍。
操作过程：
（1）打开一个空白excel，找到宏，点击“宏录制”，命名为 chuli；
【此时excel将记住你的操作并生成相对应的代码chuli】
（2）在A1输入"=rand()"，B1输入"=A1*10"；
【此时excel已经将你的操作生成相对应的代码chuli】
（3）打开宏，点击“停止录制”，再点击“查看宏”，点击“chuli”，再点击“编辑”；
【红色框中的代码即为我们在（2）中操作所对应的代码】
（4）为宏代码附上批处理代码，将下图右边红色框的代码替换掉左边红框的代码；【使“chuli”这个宏，可以对多个选中的excel进行红色框中的处理，即（2）的处理】
代码如下
[上半部分]：
Sub chuli()
Dim f, l&, s As Integer
f = Application.GetOpenFilename(fileFilter:="xlsx文件(*.xlsx),*.xlsx", Title:="选择Excel文件", MultiSelect:=True)
If TypeName(f) = "Boolean" Then Exit Sub
For s = 1 To UBound(f)
Workbooks.Open f(s)
Set xlsxBook = GetObject(f(s))
Set Mywantgetsheet = xlsxBook.Worksheets(1)
Mywantgetsheet.Activate
[下半部分]：
xlsxBook.Save
xlsxBook.Close
Next
MsgBox "finsh"
End Sub
（5）得到结果如下，点击“运行”，选择需要进行处理的excel即可。
【注意 不可选本excel，会出现问题，必须选择其他需要处理的文件，可以多选】
（6）处理会自动进行，并保存；如果处理的文件是xls或者csv，则需要在开头和结尾代码处，将“xlsx”改为“xls”或者“csv”即可，注意要改全了。
同样的宏的批处理也可以批量将excel进行格式转化，例如将1000个xlsx转化为csv或者反过来，都很方便。
网友评论