如何在 Excel 中的圖表添加水平平均線？

如果您想在圖表中插入水平平均線，可以先計算數據的平均值，然後再創建圖表。請按照以下步驟操作：

1. 使用 Average 函數計算數據的平均值，例如，在平均值欄 C2 中輸入這個公式：=Average($B$2:$B$8)，然後將此單元格的自動填充手柄拖動到所需的範圍。參見截圖：

2. 接著選擇該範圍並選擇您要插入的一種圖表格式，例如「插入」標籤下的 2-D 柱狀圖。參見截圖：

3. 圖表已創建完成，請點擊圖表中的某個平均數據列（紅色條形），右鍵單擊並從上下文菜單中選擇「更改系列圖表類型 」。參見截圖：

4. 在彈出的「更改圖表類型」對話框中，點擊左側欄中的「 組合 」，點擊「平均值」後面的方框，然後從下拉列表中選擇一種折線圖樣式。參見截圖：

5. 點擊「確定」按鈕。現在，您的圖表中有一條表示平均值的水平線，參見截圖：

此方法將推薦一款驚人的工具——Kutools for Excel 的「插入直線到圖表」功能，只需兩次點擊即可快速向所選柱狀圖添加水平平均線！

假設您已經創建了如下截圖所示的柱狀圖，您可以按照以下步驟為其添加水平平均線：

1. 選擇柱狀圖，然後點擊 Kutools > 圖表 > 插入直線到圖表 以啟用此功能。

2. 在「插入直線到圖表」對話框中，請勾選「平均值 」選項，然後點擊「確定 」按鈕。

現在，水平平均線立即被添加到所選柱狀圖中。

假設您已經在工作表中使用數據創建了一個柱狀圖，以下 VBA 程式碼也可以幫助您在圖表中插入一條平均線。

1. 點擊圖表中的某個數據列，然後所有數據列都會被選中，參見截圖：

2. 按住 ALT + F11 鍵，打開 Microsoft Visual Basic for Applications 視窗。

3. 點擊 插入 > 模組，並將以下程式碼粘貼到模組視窗中。

VBA：向圖表添加平均線

Sub AverageLine()
'Update 20130907
Dim ser As Series
Dim arr As Variant
Dim total As Double
Dim outArr As Variant
If VBA.TypeName(Application.Selection) <> "Series" Then Exit Sub
Set ser = Application.Selection
arr = ser.Values
total = Application.WorksheetFunction.Average(arr)
ReDim outArr(LBound(arr) To UBound(arr))
For i = LBound(outArr) To UBound(outArr)
    outArr(i) = total
Next
With ActiveChart.SeriesCollection.NewSeries
    .XValues = ser.XValues
    .Values = outArr
    .Name = "Average " & ser.Name
    .AxisGroup = ser.AxisGroup
    .MarkerStyle = xlNone
    .Border.Color = ser.Border.Color
    .ChartType = xlLine
    .Format.Line.ForeColor.ObjectThemeColor = msoThemeColorAccent6
End With
End Sub

4. 然後按 F5 鍵運行程式碼，一條水平平均線就被插入到柱狀圖中了。參見截圖：

注意：此 VBA 僅適用於插入的柱狀圖格式為 2-D 柱狀圖的情況。