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

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




【VBA】世代別にデータを集計するマクロを作成してみました。




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

 

今回はVBAで、世代別にデータを集計するマクロを作成してみました。

 

<元データ>

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

 

D列にROUNDDOWN関数で年代を求め、その値をもとにG列にSUMIF関数で人数を計算します。

 

<マクロ実行後>

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

 

人数の計算が完了しています。

動作としては以上です。

 

ソースコード

Sub main()

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


For i = 3 To lastrow

ws.Range("D" & i) = WorksheetFunction.RoundDown(ws.Range("C" & i), -1)

Next

For j = 3 To lastrow2

ws.Range("G" & j) = WorksheetFunction.CountIf(ws.Range("D3:D" & lastrow), ws.Range("F" & j))

Next

End Sub

 

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