如何在 Excel 中為長條圖新增垂直線或平均線？

當您在 Excel 中使用條形圖視覺化資料時，可能會需要凸顯平均值，以幫助觀眾更清楚掌握各資料點與整體平均值的差異。如以下螢幕截圖所示，在條形圖上直接加入一條代表平均值的垂直線，能有效提升圖表在簡報、報告及決策過程中的清晰度與可讀性。本教學將詳細說明多種在 Excel 條形圖中新增平均線的方法，涵蓋從內建圖表技巧到自動化 VBA 巨集的完整做法。

為條形圖新增竪線

VBA 程式碼解決方案：以程式方式新增垂直線／平均線

為條形圖新增竪線

首先，請確保您的資料已準備妥當，並以條形圖格式進行視覺化。

1. 選取您的數據區域，然後前往插入> 長條圖> 長條圖，即可根據您的資料集建立基礎長條圖！

2. 移至工作表中未使用的區域（例如儲存格 A10），在該儲存格輸入 Y，並在其相鄰儲存格（B10）輸入 X，以此建立繪製平均線的基礎。

3. 在 Y 儲存格正下方的兩個儲存格（A11 和 A12）中分別輸入 0 與 1，建立用於支援平均線的垂直資料數列。此步驟至關重要，可確保繪製時線條呈現垂直方向。

4. 在 X 下方的儲存格（B11）中輸入公式 =AVERAGE($B$2:$B$9)，其中 $B$2:$B$9 代表您實際的數據區域。按下 Enter 後，向下拖曳填滿控點至下方儲存格（B12）以複製公式，即可為平均線錨定的兩個點套用相同的平均值。
提示：若您的資料不在 B 欄或起始列不同，請務必仔細檢查公式中的儲存格參照！

5. 在條形圖上任意位置按一下滑鼠右鍵，然後從內容功能表中選取選擇數據，即可將平均線資料加入圖表中。

6. 在選擇數據資料來源對話方塊中，點擊位於系列名稱區域區段下方的新增按鈕，即可專門為平均線插入一個新數列。

7. 在隨即開啟的編輯數列對話方塊中，指定適當的系列名稱，並將系列值設為 B11:B12（若您的平均值計算位置不同，請依實際情況調整）。

8. 按兩下確定，關閉對話方塊並返回工作表。接著點選圖表中新加入的數列，按一下滑鼠右鍵，再選擇變更數列儀表類型，即可更新其顯示格式。

9. 在變更儀表類型視窗中，選取 X Y（散布圖） > 帶有水平的散布圖，然後按一下確定以套用設定並關閉對話方塊。
注意：在 Excel 2013 及更新版本中，請於所有圖表區段下選取組合圖，再對平均數列套用帶有水平的散布圖。

10. 返回圖表，再次按一下滑鼠右鍵，並從內容功能表中選取選擇數據。

11. 在選擇數據視窗中，選取 Average 數列，然後點擊編輯，即可更精確地定義 X 與 Y 值。

12. 在編輯數列對話方塊中，輸入 X 與 Y 值的範圍（通常為 X 與 Y 標籤下方的兩個儲存格）。若您曾變更任何位置，請務必確認參照範圍符合您工作表的實際設定。

13. 在對話方塊中按一下確定後，先按一下次要（右側）Y 軸，再選取座標軸格式。

14. 在座標軸格式對話方塊中，勾選位於最大值旁的固定選項，並將數值設為 1. 此設定可強制平均線貫穿圖表的完整垂直高度。
提示：務必將座標軸最大值設為 1，才能呈現「完整」的竪線效果；若省略此步驟，可能導致線條過短或位置錯誤。

在 Excel 2013 及更新版本中，您可直接於座標軸格式窗格的 1 欄位中輸入最大值。

15. 關閉對話方塊後，您將看到平均線已新增至條形圖中，以視覺方式標示資料的平均值，方便快速比較。

若需進一步美化視覺效果，請按一下該線條並選取資料數列格式，即可開啟色彩、樣式與粗細等格式設定選項。自訂這些元素不僅能提升簡報清晰度，更能完美契合組織品牌規範！

常見的疑難排解提示包括：確認您的 X 與 Y 值範圍不含空白儲存格，並確保在選擇數據對話方塊中一律選取正確的儲存格範圍。若竪線未如預期顯示，請重新檢查儀表類型的指派或座標軸最大值設定——這些項目一旦設定不當，經常會導致視覺偏差。若您已修改源數據，請返回公式儲存格，確認參照範圍仍符合預期的數據區域。

VBA 程式碼解決方案：以程式方式新增垂直線／平均線

對於經常更新圖表或製作定期報告的使用者來說，透過 VBA 自動化新增垂直線或平均線，能大幅節省寶貴時間。當您同時管理多個類似圖表，或需要在資料變動時同步更新這些線條，此方法尤其實用——完全免去重複的手動操作。雖然使用 VBA 需搭配啟用巨集的工作簿，並需熟悉 Visual Basic 編輯器，卻能帶來更高的彈性與效率。

1. 前往開發人員索引標籤，點選 Visual Basic，即可開啟 Microsoft Visual Basic for Applications 編輯器。若未顯示「開發人員」索引標籤，請參閱指南：在 Excel 中顯示開發人員索引標籤。

2. 在 VBA 編輯器中，點選插入> 模組，即可建立新模組。接著，將下列程式碼貼上至編輯器視窗中：

Sub AddAverageLineToBarChart()
    Dim cht As ChartObject
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim avgValue As Double
    Dim i As Integer
    Dim nameSeries As String
    Dim xValues(1 To 2) As Double
    Dim yValues(1 To 2) As Double
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set ws = ActiveSheet
    Set cht = ws.ChartObjects(1) ' Use the first chart on the active sheet
    
    Set dataRange = Application.InputBox("Select the data range for average calculation", xTitleId, Type:=8)
    nameSeries = Application.InputBox("Name for the average series", xTitleId, "Average")
    
    avgValue = Application.WorksheetFunction.Average(dataRange)
    
    xValues(1) = avgValue
    xValues(2) = avgValue
    yValues(1) = 0
    yValues(2) = 1
    
    With cht.Chart
        .SeriesCollection.NewSeries
        With .SeriesCollection(.SeriesCollection.Count)
            .Name = nameSeries
            .XValues = xValues
            .Values = yValues
            .ChartType = xlXYScatterLines
            .AxisGroup = 1
        End With
    End With
End Sub

3 輸入程式碼後，點擊按鈕執行巨集。系統將彈出對話方塊，提示您選取用於計算平均值的數據區域，並指定平均數列的名稱。巨集會自動為您目前工作表中的第一個圖表物件新增一條垂直平均線。

提示：若您有多張圖表，請調整 ws.ChartObjects(1) 以指定正確的圖表索引。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……