在Excel图表中添加水平的平均线

本文被阅读次了

2019-04-29 星期一 / Excel,图表,平均线 /

第一种方法：使用助手列將平均水平線添加到圖表

如果要將水平平均線插入圖表，則可以先計算數據的平均值，然後創建圖表。請這樣做：

1、計算數據的平均值平均函數，例如，在平均列C2中，鍵入以下公式： =平均（$ B $ 2：$ B $ 8），然後將該單元格的自動填充句柄拖到需要的範圍。看截圖：

注意：點擊了解更多 將相同的formla應用於整個列，或者叫 將完全相同的公式/值應用於整個列而無需單元格編號遞增。

2、然後選擇這個範圍並選擇一個你想插入的圖表格式，比如2-D Column下的插入標籤。看截圖：

3、並且創建了圖表，請單擊圖表中的平均數據列（紅色條）之一，右鍵單擊並選擇 更改系列圖表類型 從上下文菜單。看截圖：

4、在彈出 更改圖表類型 對話框中，單擊以突出顯示組合在左側欄中，單擊後面的框平均，然後從下拉列表中選擇折線圖樣式。看截圖：

5、點擊 OK 按鈕。現在，您有一條水平線代表圖表中的平均值，請參閱截圖：

第二种方法：使用VBA代碼向圖表添加水平平均線

假設已經在工作表中創建了包含數據的柱形圖，並且以下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