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

若要在图表中通过水平线直观呈现数据的平均值，您可先利用 Excel 内置函数计算出平均值，再将结果添加至现有图表中。该方法适用于柱形图、条形图或折线图，让平均值以叠加层的形式清晰展现。

1. 首先计算数据集的平均值。在辅助列（例如 C 列）的 C2 单元格中输入以下公式：=AVERAGE($B$2:$B$8)，该公式将计算 B2 至 B8 范围内所有数值的平均值。接着，使用自动填充柄将此公式向下拖动，覆盖整个数据范围，使每行都显示相同的恒定平均值，从而在图表中形成一条水平线。

提示：请仔细检查公式中的数据范围，确保涵盖所有相关数据。若您的数据集更大或位于其他列，请相应调整单元格引用，以免得出错误的平均值。

2. 选中原始数据和辅助列后，转到插入选项卡，选择最适合您分析的图表类型，例如二维柱状图。同时绘制数据系列与平均值系列，为自定义图表奠定坚实基础。

3. 插入图表后，在原始数据旁找到新绘制的平均值系列（通常以单独的一组柱形显示，常为红色）。单击其中一根柱形即可选中整个平均值系列，然后右键单击，从上下文菜单中选择更改系列图表类型。

4. 此时会弹出更改仪表类型对话框。在左侧面板中选择组合图仪表类型，然后针对平均值系列，从下拉菜单中选择折线图样式，即可将平均值系列从柱形转换为一条醒目的水平直线，让平均值在图表中一目了然。

提示：请勿意外将数据系列的仪表图类型更改为折线图，否则会改变图表的显示效果——除非您有意为之。

5. 单击确定。您的图表现在将在数据柱形上方显示一条水平平均线，作为快速比较的参考点。

适用场景：此方法适用于需要完全动态解决方案的场景——当您更新数据集时，平均值和图表将自动更新。虽然需手动设置，但无需任何加载项或代码。

优势：使用 Excel 内置工具，数据变动时自动更新，且高度可自定义。

局限性：处理超大数据集或多数据系列时，操作可能稍显耗时；面对更复杂的数据结构，您需相应调整公式与图表类型。

故障排除：如果平均线未按预期显示，请检查公式范围，确保在插入图表前已同时选中数据列和平均值列，并确认更改仪表类型时处于组合图对话框中。

另一种方法（尤其适用于需要频繁添加平均线或其他参考标记的用户）是使用 Kutools for Excel中的在图表中插入直线功能。该工具简化了操作流程，减少步骤，无需手动设置公式。如果您已创建图表，只需几次点击和少量配置，即可快速添加平均线。

假设您已创建了如下图所示的标准柱状图，并希望快速呈现各数据点的平均值。

1. 单击选中柱状图，然后导航至 Kutools> 图表> 在图表中插入直线，即可启动该功能的对话框。

2. 在对话框中勾选平均值选项，然后单击确定。

您的柱状图将立即显示一条水平平均线，助您更轻松地呈现分析结果或进行可视化对比。

适用场景：此解决方案非常适合需要处理大量图表，或希望节省时间、简化操作的用户；在演示文稿或仪表板中，当快速可视化至关重要时，尤为实用。

优势：操作快速简便，无需公式或手动系列操作，轻松应对日常重复任务，还提供多种实用图表功能。

对于偏好自动化或可编程解决方案的用户，以及需要在多个图表和工作表中重复执行此操作的用户，可通过简单的 VBA 宏直接在柱状图上插入平均线。该方法灵活且高度可定制，但需涉及基础编码与宏运行。

1. 单击图表中的任意数据柱形，即可选中该数据系列中的所有柱形，如选择控点所示。

2. 按住 ALT + F11 键，即可打开 Excel中的 Microsoft Visual Basic for Applications 窗口。

3. 在 VBA 编辑器中，单击插入> 模块，即可打开一个新模块窗口。将以下 VBA 代码复制并粘贴到该窗口中：

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 宏仅适用于二维柱状图。若使用其他图表类型，您可能需要调整代码或切换为支持的图表类型。

适用场景：最适合需要自动化修改图表的高级用户，或需在多个图表中批量处理、无需手动干预的场景。

优势：支持自定义设置、批量处理，且保存的时间适用于重复任务。

局限性：需启用宏并熟悉 VBA，不如内置图表工具或加载项那样即开即用；若图表结构复杂，还可能遇到问题。

故障排除：如果宏无法运行或报错，请确保您的图表为二维柱状图，仔细检查 VBA 代码是否存在缺失或错误的引用，并确认已在 Excel 信任中心设置中启用宏。

实用提示：运行不熟悉的宏前，请先保存工作簿，以防意外更改。为确保安全，建议在数据副本上先行测试！