如何在Excel中向图表添加水平平均线？

如果想向图表插入一条水平平均线，可以先计算数据的平均值，然后创建图表。请按以下步骤操作：

1. 使用 平均值 函数计算数据的平均值，例如，在平均列C2中输入以下公式： =Average($B$2:$B$8)，然后将该单元格的自动填充句柄拖动到所需的范围。参见截图：

2. 然后选择此范围并选择要插入的图表格式，例如“插入”选项卡下的二维柱状图。参见截图： 插入 选项卡。参见截图：

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仅适用于插入的柱状图格式为二维柱状图的情况。