對于大型的數(shù)據(jù)表要進行分類匯總，以前我采用“自動篩選”的辦法來實現(xiàn)的，但這樣既麻煩，又容易出現(xiàn)錯誤。經(jīng)過摸索，發(fā)現(xiàn)用“宏”可以實現(xiàn)批量篩選和打印，一鍵搞定了分類匯總和打印!
    一、數(shù)據(jù)匯總
    選中F1002單元格(此處假定有1000條數(shù)據(jù))，輸入公式：=SUBTOTAL(9,F3:F1002)，確認一下，統(tǒng)計出“面積”總和。然后再次選中F1002單元格，將鼠標移至該單元格右下角，成細十字線狀時，按住左鍵向右拖拉至H1002單元格，將上述公式復制到H1002單元格中，統(tǒng)計出“造價”總和。
    小提示：修改函數(shù)“SUBTOTAL”中的第一個參數(shù)(“9”)，可以實現(xiàn)求平均(AVERAGE—1)、計數(shù)(COUNT—2)等統(tǒng)計目的(具體請看該函數(shù)的幫助)。
    二、編輯宏
    切換到Sheet2工作表中，在A1至A10單元格中輸入工程“類型”名稱(此處的“1”和“10”與下述代碼中的循環(huán)起、止數(shù)值相同)。按下“Alt+F11”組合鍵，進入“Visual Basic編輯”狀態(tài)，執(zhí)行“插入模塊”命令，插入一個新模塊(“模塊1”)。將下述代碼輸入到“模塊1”右側的編輯區(qū)域中：
    小提示：在上述代碼中，每一行英文單引號“'”及其后面的字符，是對代碼的解釋，在實際輸入時可不輸入。
    輸入完成后，關閉“Visual Basic編輯”窗口，返回工作表中。
    三、制作按鈕
    執(zhí)行“視圖工具欄控件工具箱”命令，展開“控件工具箱”，單擊“工具箱”中的“命令按鈕”按鈕，然后在表格中拖拉出一個按鈕來。右擊剛才添加的按鈕，在隨后彈出的快捷菜單中，選擇“屬性”選項，展開“屬性”對話框。切換到“按分類序”標簽下，展開“外觀”選項，將“Caption”選項后面的字符修改為“分類打印”。再展開“雜項”選項，將“PrintObject”選項設置為“False”，設置完成后，關閉“屬性”對話框。
    小提示：將“PrintObject”選項設置為“False”的目的是：在打印時，該按鈕不被打印出來;否則(設置成True)按鈕會打印到紙張上，影響表格效果。
    雙擊剛才添加的命令按鈕，再次進入“Visual Basic編輯”狀態(tài)，將下述代碼輸入右側的區(qū)域中：
    Private Sub CommandButton1_Click()
    分類匯總打印 '此處字符必須與上述宏名稱一致
    End Sub
    輸入完成后，關閉“Visual Basic編輯”窗口，返回工作表中。像調整圖形大小一樣，調整好命令按鈕的大小，然后將其定位在表格的合適位置上，再按下“工具箱”上的“退出設計模式”按鈕。
    當需要分類打印時，只要單擊表格中的“分類打印”按鈕即可快速獲得。