ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】Frequency、Modeの使用例。データの分布と最頻値を求める。




どうも、ゴリラストロングです。

 

今回はVBAで、Frequency、Modeの使用例として、データの分布と最頻値を求めてみました。

 

<元データ>

f:id:gorilla-strong:20200323161552p:plain

<マクロ実行後>

f:id:gorilla-strong:20200323161659p:plain

 

 

 スポンサーリンク

 

 

ソースコード

Sub 関数()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

Dim lastrow2 As Long
lastrow2 = ws.Cells(Rows.Count, 6).End(xlUp).Row

Dim rng1, rng2, rng3 As Range
Set rng1 = ws.Range("B3:B" & lastrow)
Set rng2 = ws.Range("F3:F" & lastrow2)
Set rng3 = ws.Range("G3:G" & lastrow2)

rng3 = WorksheetFunction.Frequency(rng1, rng2)

ws.Range("I3") = WorksheetFunction.Mode(rng1)


End Sub

 

 

以上、ゴリラストロングでした。

 

 スポンサーリンク