每到週五下午，辦公室裡的氣氛總是變得緊張起來。小琳坐在電腦前，眉頭緊皺，眼睛盯著滿屏的 Excel 表格。她的手指快速地滑動滑鼠，忙著整理銷售數據並生成每個月的計算報表。
「怎麼樣？」鄰座的 Eric隨口問道。
「不怎麼樣啊，每週五下午都像打仗一樣。」小琳頭也不抬，繼續忙著手上的工作。她頓了頓，抱怨道：「這些數據得一筆筆加總，格式還要調整得一模一樣，光做完這些就得花掉一整個下午的時間。」
Eric聽了笑了笑，靠過來低聲說：「其實這些事情可以用自動化工具來做，你不用每週都這麼累。」
「自動化？」小琳疑惑地看著他，「是要寫程式那種嗎？我可不懂那些東西。」
Eric拍了拍她的肩膀說：「不用擔心，今天我就教你一個簡單的方法，讓你的報表在幾分鐘內搞定，保證不用加班！」

步驟一：錄製巨集，記錄重複操作
Eric坐到小琳的座位旁，開始一步步指導她。「首先，我們來錄製一個巨集，把你平時的操作步驟記錄下來。」
他點擊 Excel 的功能列：「檢視 → 巨集 → 錄製巨集」，並輸入一個名稱「自動月報表」，按下確定。
接下來，Eric示範如何完成小琳平時的操作步驟：

1. 格式/格式化為表格。
2. 選擇任一表格格式。
3. 表格設計/勾選合計列。
4. 銷售量欄位，按合計列的下拉式選單，選擇加總。
5. 金額欄位，按合計列的下拉式選單，選擇加總。
6. 銷售員欄位，按合計列的下拉式選單，選擇計數(資料筆數)。
最後，Eric停下來點擊「檢視 → 巨集 → 停止錄製」，他微笑著說：「好了，現在你的操作已經被記錄成巨集了。」

步驟二：檢查並修改巨集程式碼
「但巨集有時候不夠靈活，我們需要檢查一下程式碼。」Eric點擊「檢視 → 巨集 → 檢視巨集」，選擇剛剛錄製的「自動月報表」，並按下編輯，打開 VBA 編輯器。
小琳看到了一串程式碼：

Sub 自動月報表()
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$101"), , xlYes).Name = "表格1"
    Range("表格1[#All]").Select
    ActiveSheet.ListObjects("表格1").TableStyle = "TableStyleMedium9"
    ActiveSheet.ListObjects("表格1").ShowTotals = True
    Range("表格1[[#Totals],[銷售量]]").Select
    ActiveSheet.ListObjects("表格1").ListColumns("銷售量").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("表格1[[#Totals],[金額]]").Select
    ActiveSheet.ListObjects("表格1").ListColumns("金額").TotalsCalculation = _
        xlTotalsCalculationSum
    Range("表格1[[#Totals],[銷售員]]").Select
    ActiveSheet.ListObjects("表格1").ListColumns("銷售員").TotalsCalculation = _
        xlTotalsCalculationCount
    ActiveWindow.ScrollColumn = 2
End Sub

Eric解釋道：「這段程式碼是自動生成的，像 Range("$A$1:$G$101") 是固定範圍，但如果你的數據筆數每個月都不同，就需要做些修改，讓範圍可以動態變化。」
接著，他在程式碼的開頭新增下列Excel VBA 語法：

lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

這是用來偵測 A 欄位最後一列的列號。

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$101"), , xlYes).Name = "表格1"

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$" & lastRow), , xlYes).Name = "表格1"