excel宏批量處理表格技巧

《excel宏批量處理表格技巧》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫(kù)。

1、這幾天整理示范校資料，老師從學(xué)校的系統(tǒng)內(nèi)導(dǎo)出兩個(gè)EXCEL文件，每個(gè)文件有14張學(xué)生數(shù)據(jù)表,總共28張表格，每張表的表格寬度不一，格式不同，如果需要整理成統(tǒng)一格式，需要花費(fèi)大量時(shí)間。為了快速解決這個(gè)問(wèn)題，我編寫(xiě)了一個(gè)表格批量處理的宏，在表格內(nèi)執(zhí)行宏，可以自動(dòng)對(duì)數(shù)據(jù)表進(jìn)行格式調(diào)整，快速解決問(wèn)題。如果有特殊的功能需求，編程難度比較大，大家也可以通過(guò)宏錄制的方式去實(shí)現(xiàn)。批處理前的數(shù)據(jù)表：圖1每張表格的格式都不一致，部分?jǐn)?shù)據(jù)也因?yàn)楦袷絾?wèn)題無(wú)法正常顯示圖2每個(gè)EXCEL文件內(nèi)至少有14張學(xué)生數(shù)據(jù)表，數(shù)據(jù)內(nèi)容格式不一圖3數(shù)據(jù)很雜亂，“出生年月”欄數(shù)據(jù)格式不統(tǒng)一，且因?yàn)榱袑拞?wèn)題導(dǎo)致部分?jǐn)?shù)據(jù)無(wú)法正常顯示批量

2、處理后效果：圖4批量處理后，批量調(diào)整每個(gè)表格的列寬，表格每一項(xiàng)標(biāo)題居中，出生日期統(tǒng)一格式，達(dá)到美觀大方的效果，并且表格寬度調(diào)整到一張紙內(nèi)可以全部打印，在打印的時(shí)候節(jié)約紙張。一、EXCEL宏代碼說(shuō)明這個(gè)宏是在office2007版本下使用VBA編程語(yǔ)言編寫(xiě)的，可以自動(dòng)尋找EXCEL文檔中指定的單元格并自動(dòng)對(duì)單元格以及單元格內(nèi)數(shù)據(jù)的大小、字體格式、對(duì)齊方式等屬性進(jìn)行調(diào)整。這個(gè)宏處理實(shí)現(xiàn)以下功能：1、批量調(diào)整表格列寬；2、可以自動(dòng)設(shè)置某一列數(shù)據(jù)的格式，通過(guò)進(jìn)一步編程也可以實(shí)現(xiàn)批量設(shè)置多個(gè)數(shù)據(jù)列格式；3、批量設(shè)置某一行的單元格格式，如全部居中；4、自動(dòng)設(shè)置某一個(gè)單元格的格式，如單元格高度等；5、在宏

3、程序代碼中符號(hào)“'”表示注釋，在“'”后面的命令不會(huì)執(zhí)行，可以對(duì)程序的命令進(jìn)行解釋和對(duì)不需要的命令進(jìn)行屏蔽。如果需要詳細(xì)了解可以到微軟的網(wǎng)站上查看EXCEL編程相關(guān)的技術(shù)文檔，網(wǎng)址為：http://msdn.microsoft.com/en-us/library/bb979621(v=office.12).aspx以下是EXCEL批量處理表格宏程序代碼：SubEXCEL格式批量調(diào)整()''EXCEL格式批量調(diào)整V1.0'author：項(xiàng)目管理部楊暉'功能描述：批量處理表格格式'DimxAsInteger'定義整數(shù)變量，用于選定表格'從第一格到第12格，每個(gè)數(shù)字對(duì)應(yīng)表格的字母橫向字母，如“1”

4、對(duì)應(yīng)表格中“A”，“2”對(duì)應(yīng)表格中“B”，依次類推，根據(jù)需要設(shè)置Forx=1To12'設(shè)置每個(gè)表格的列寬，在數(shù)組Array里面設(shè)置每個(gè)表格的寬度，比如第一個(gè)數(shù)字4.38對(duì)應(yīng)表格“A”列的列寬，第二個(gè)數(shù)字13.5對(duì)應(yīng)表格“B”列寬，依次類推。Columns(x).ColumnWidth=Array(4.38,13.5,6.88,5.25,6.25,10.25,8.38,8.38,8.38,15.5,13,15.25)(x-1)Next'設(shè)置表格F列時(shí)間格式為yyyy-mm-ddWithRange("F:F").NumberFormatLocal="[$-F800]dddd,mmmmdd,yyy

5、y"EndWith'設(shè)置表格A列格式居中對(duì)齊可以調(diào)整參數(shù)("A:A")去選定表格某一列，如果需要調(diào)整多個(gè)列表，復(fù)制下面的代碼粘貼在后面，然后修改參數(shù)即可WithRange("A:A").HorizontalAlignment=xlCenter'設(shè)置水平對(duì)齊方式為居中.VerticalAlignment=xlCenter'設(shè)置垂直對(duì)齊方式為居中.WrapText=False.Orientation=0.AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContextEndWith'設(shè)置表格設(shè)置表格第2行格式居中對(duì)齊可以

6、調(diào)整參數(shù)("2:2")去選定表格某一列Rows("2:2").SelectWithSelection.HorizontalAlignment=xlCenter.VerticalAlignment=xlCenter.WrapText=False.Orientation=0.AddIndent=False.IndentLevel=0.ShrinkToFit=False.ReadingOrder=xlContext.MergeCells=FalseEndWith'以下程序代碼為定義具體某一個(gè)表格高度可以調(diào)整參數(shù)("1:42")去選定表格某一列'Rows("1:42").RowHeight=14.2

7、5'ActiveWindow.SmallScrollDown:=9'Rows("43:43").RowHeight=12EndSub二、創(chuàng)建宏創(chuàng)建宏1：在EXCEL中選擇“視圖”(步驟1)->“宏”（步驟2）->“查看宏”（步驟3）創(chuàng)建宏2：在彈出的小窗口中輸入宏的名稱（步驟1）->點(diǎn)擊“創(chuàng)建”(步驟2)創(chuàng)建宏3：在彈出的宏編輯窗口中將代碼復(fù)制進(jìn)去（步驟1）->然后點(diǎn)擊“編譯”（步驟2），這時(shí)宏自動(dòng)執(zhí)行程序，