VBA 平均値算出

Sub CalculateAverage()
    ' データの範囲を指定
    Dim dataRange As Range
    Set dataRange = Range("A1:A10") ' データ範囲を適宜変更してください

    ' 平均値を計算
    Dim average As Double
    average = WorksheetFunction.Average(dataRange)

    ' 結果を表示
    MsgBox "平均値: " & average
End Sub