有木有什么方法？可以批量修改所有的Excel文件呢？
答：遇到的需要批量處理Excel的情況時，最簡單的的方法就是宏，用VBA來解決。
1.【Alt】 【F11】
新建Excel文件，按【Alt】 【F11】，找到工作表后黏貼代碼，點(diǎn)擊三角形，運(yùn)行代碼
2. 創(chuàng)建宏按鈕
宏程序設(shè)置好后，運(yùn)行很不方便。如何才可以方便運(yùn)行？——按鈕
提示：首先檢查下，【開發(fā)工具】是否已經(jīng)掉出？
方法：【文件】——【選項(xiàng)】——【自定義功能區(qū)】——【開發(fā)工具】
創(chuàng)建按鈕：【開發(fā)工具】——【設(shè)計(jì)模式】——【按鈕】
美化界面
3. 運(yùn)行后的效果
把做好的宏文件和需要處理的文件放到同一個文件夾中。
點(diǎn)擊按鈕前，效果如下
點(diǎn)擊按鈕后，效果如下
幾百個文件幾秒鐘就搞定啦。年終獎不發(fā)愁啦。祝大家元旦快樂哈！2017年，祝各位事業(yè)有成！
4. VBA代碼
附錄：腳本如下（感謝朋友VBA大神wuliu56 （Excelhome論壇ID）的幫助。代碼為wuliu56 大神原創(chuàng)
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
粉絲福利：回復(fù)【自動換行】或【ZDHH】即可下載源文件
你可能還喜歡看這些文章
▼
《Excel數(shù)據(jù)閱讀標(biāo)尺 | Excel條件格式高級玩法》
