Если вы хотите вставить горизонтальную среднюю линию на диаграмму, вы можете сначала вычислить среднее значение данных, а затем создать диаграмму. Пожалуйста, сделайте так:

1. Вычислить среднее значение данных с помощью Средняя функции, например, в столбце средних значений C2 введите следующую формулу: = Среднее (2 млрд долларов США: 8 млрд долларов США), а затем перетащите маркер автозаполнения этой ячейки в нужный диапазон. Смотрите скриншот:

2. Затем выберите этот диапазон и выберите один формат диаграммы, который вы хотите вставить, например столбец 2-D под Вставить таб. Смотрите скриншот:

3. И диаграмма создана, щелкните один из столбцов средних данных (красная полоса) на диаграмме, щелкните правой кнопкой мыши и выберите Изменить тип диаграммы серии из контекстного меню. Смотрите скриншот:

4. В выскочившем Изменить тип диаграммы диалоговом окне щелкните, чтобы выделить Комбо на левой панели щелкните поле за Средняя, а затем выберите стиль линейной диаграммы из раскрывающегося списка. Смотрите скриншот:

5, Нажмите OK кнопка. Теперь у вас есть горизонтальная линия, представляющая среднее значение на вашем графике, см. Снимок экрана:

Этот метод порекомендует потрясающий инструмент, Добавить линию в диаграмму особенность Kutools for Excel, чтобы быстро добавить горизонтальную среднюю линию к выбранной гистограмме всего за 2 клика!

Предположим, вы создали столбчатую диаграмму, как показано на скриншоте ниже, и вы можете добавить для нее горизонтальную среднюю линию следующим образом:

1. Выберите столбчатую диаграмму и щелкните Кутулс > Графики > Добавить линию в диаграмму для включения этой функции.

2. В диалоговом окне "Добавить строку в диаграмму" установите флажок Средняя и нажмите Ok .

Теперь горизонтальная средняя линия сразу добавляется к выбранной гистограмме.

Предположим, вы создали столбчатую диаграмму со своими данными на листе, и следующий код VBA также может помочь вам вставить среднюю линию на диаграмму.

1．Щелкните один из столбцов данных на диаграмме, после чего будут выбраны все столбцы данных, см. Снимок экрана:

2. Удерживайте ALT + F11 ключи, и он открывает Microsoft Visual Basic для приложений окно.

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.