 有木有什么方法？可以批量修改所有的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】即可下载源文件 你可能还喜欢看这些文章 ▼
|
|
|
