VBAでデータのカウントを行う

VBAでシート上の項目のカウントを行いときは
Dictionaryオブジェクトを使用すると
簡単に項目のカウントを行うことができます。

Dictionaryオブジェクトを使用するために
Microsoft Scripting Runtimeに事前に参照設定を行う必要があります。

VBAに標準で含まれていない機能があるときは外部のライブラリを参照して、外部ライブラリ内の機能を利用します。この外部ライブラリの機能を利用する設定を、参照設定と言います。

シートのA列に4種類の食べ物が入力されています。
・りんご
・レタス
・牛肉
・水
こちらのデータのカウントを行ってみます。

シート上の項目のカウントを行うコードは以下になります。

Option Explicit
Sub countItems(sht As Worksheet, col As Long)
'###################################################################################
'シート上の項目のカウントを行い、表示する
'Dictionaryを使用するので、Microsoft Scripting Runtimeの参照設定が必要
'-----------------------------------------------------------------------------------
'引数  :sht データのカウントを行いたいシート
'      :col データのカウントを行いたい列番号
'###################################################################################
  
  Dim lastRow As Long
  lastRow = getMaxRow(sht, col)
  
  Dim dic As Dictionary
  Set dic = New Dictionary
  Dim i As Long
  Dim v As String
  For i = 1 To lastRow
    v = sht.Cells(i, 1).Value  '必ずCells.Valueを指定する
    If dic.Exists(v) Then
      dic(v) = dic(v) + 1
    Else
      dic.Add v, 1
    End If
  Next i
  
  For i = 0 To dic.Count - 1
    MsgBox dic.Keys(i) & "は" & dic.Items(i) & "個"
  Next i
  
  Set dic = Nothing

End Sub

Function getMaxRow(sht As Worksheet, targetCol As Long) As Long
  
  getMaxRow = sht.Cells(sht.Rows.Count, targetCol).End(xlUp).Row

End Function

Sub test_countItems()
  
  Dim sht As Worksheet
  Set sht = ThisWorkbook.Worksheets("Sheet1")
  
  Call countItems(sht, 1)
  
  Set sht = Nothing
  
End Sub