グラフに水平平均線を挿入する場合は、最初にデータの平均を計算してから、グラフを作成できます。 このようにしてください：

1。 でデータの平均を計算します 平均 関数、たとえば、平均列C2に、次の数式を入力します。 =平均（$ B $ 2：$ B $ 8）、次に、このセルのオートフィルハンドルを必要に応じて範囲にドラッグします。 スクリーンショットを参照してください：

2。 次に、この範囲を選択し、挿入するグラフ形式を2つ選択します。たとえば、[ インセット タブ。 スクリーンショットを参照してください：

3。 グラフが作成されました。グラフの平均データ列（赤いバー）のXNUMXつをクリックし、右クリックして、 シリーズチャートタイプの変更 コンテキストメニューから。 スクリーンショットを参照してください：

4。 飛び出した チャートタイプの変更 ダイアログで、クリックしてハイライトします コンボ 左側のバーで、後ろのボックスをクリックします 平均、ドロップダウンリストから折れ線グラフのスタイルを選択します。 スクリーンショットを参照してください：

5。 クリック OK ボタン。 これで、グラフの平均を表す水平線ができました。スクリーンショットを参照してください。

この方法は素晴らしいツールをお勧めします、 チャートに線を追加 の特徴 Kutools for Excel、2回のクリックだけで、選択した縦棒グラフに水平方向の平均線をすばやく追加できます。

以下のスクリーンショットに示すような縦棒グラフを作成し、次のように水平平均線を追加できるとします。

1。 縦棒グラフを選択し、をクリックします クツール > チャート > チャートに線を追加 この機能を有効にします。

2。 [グラフに線を追加]ダイアログで、 平均 オプションをクリックし、 Ok

これで、水平平均線が選択した縦棒グラフに一度に追加されます。

ワークシートのデータを使用して縦棒グラフを作成し、次のVBAコードも、グラフ全体に平均線を挿入するのに役立ちます。

1。グラフのデータ列のXNUMXつをクリックすると、すべてのデータ列が選択されます。スクリーンショットを参照してください。

2。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

3に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

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 このコードを実行するにはキーを押します。縦棒グラフに水平方向の平均線が挿入されています。 スクリーンショットを参照してください：

Note：このVBAは、挿入する列形式が2次元列の場合にのみ実行できます。