值得收藏 | 事半功倍VBA，批量处理Excel多个文件

有木有什么方法？可以批量修改所有的Excel文件呢？

答：遇到的需要批量处理Excel的情况时，最简单的的方法就是宏，用VBA来解决。

1.【Alt】 【F11】

新建Excel文件，按【Alt】 【F11】，找到工作表后黏贴代码，点击三角形，运行代码

2. 创建宏按钮

宏程序设置好后，运行很不方便。如何才可以方便运行？——按钮

提示：首先检查下，【开发工具】是否已经掉出？

方法：【文件】——【选项】——【自定义功能区】——【开发工具】

创建按钮：【开发工具】——【设计模式】——【按钮】

美化界面

3. 运行后的效果

把做好的宏文件和需要处理的文件放到同一个文件夹中。

点击按钮前，效果如下

点击按钮后，效果如下

几百个文件几秒钟就搞定啦。年终奖不发愁啦。祝大家元旦快乐哈！2017年，祝各位事业有成！

4. VBA代码

附录：脚本如下（感谢朋友VBA大神wuliu56 （Excelhome论坛ID）的帮助。代码为wuliu56 大神原创

Sub test()

Dim myPath$, myFile$, am As Workbook

Application.DisplayAlerts = False

Application.ScreenUpdating = False

myPath = ThisWorkbook.Path & '\'

myFile = Dir(myPath & '*.xls')

Do While myFile <> ''

If myFile <> ThisWorkbook.Name Then

Set am = Workbooks.Open(myPath & myFile)

For Each shtt In am.Sheets

shtt.UsedRange.WrapText = True

Next

Workbooks(myFile).Close True

End If

myFile = Dir

Loop

Application.DisplayAlerts = ture

Application.DisplayAlerts = True

End Sub

粉丝福利：回复【自动换行】或【ZDHH】即可下载源文件

你可能还喜欢看这些文章

▼

《Excel数据阅读标尺 | Excel条件格式高级玩法》

《排序中的痛点， 你是否遇到过?》

《Excel最炫玩法 | 手绘板》