VBA WorksheetFunctionでデータ集計

連想配列　 WorksheetFunctionでデータ集計

Sub test2()

' 連想配列　WorksheetFunctionでデータ集計


    Dim R As Range
    
    Set R = Sheets(1).Range("C2:C21")
    
    Debug.Print "最大値は：" & Application.WorksheetFunction.Max(R)
    Debug.Print "最小値は：" & Application.WorksheetFunction.Min(R)
    Debug.Print "平均値は：" & Application.WorksheetFunction.Average(R)
    Debug.Print "中央値は：" & Application.WorksheetFunction.Median(R)
    Debug.Print "合計値は：" & Application.WorksheetFunction.Sum(R)
    Debug.Print "個   数は：" & Application.WorksheetFunction.Count(R)

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA Function(カスタマイズ関数)』

『VBA　WorksheetFunctionでVlookup関数を利用』

『VBA　COUTBLANK関数で空白セル個数を取得』