 有木有什么方法？可以批量修改所有的Excel文件呢？ 答：遇到的需要批量處理Excel的情況時(shí)，最簡單的的方法就是宏，用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)行后的效果 把做好的宏文件和需要處理的文件放到同一個(gè)文件夾中。 點(diǎn)擊按鈕前，效果如下 點(diǎn)擊按鈕后，效果如下 幾百個(gè)文件幾秒鐘就搞定啦。年終獎(jiǎng)不發(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ù)【自動(dòng)換行】或【ZDHH】即可下載源文件 你可能還喜歡看這些文章 ▼ 《Excel數(shù)據(jù)閱讀標(biāo)尺 | Excel條件格式高級玩法》
|
|
|
