【VBA】列要素のカウント

Question

前提

VBAマクロを作成しています。
初心者のためお力添えいただきたいです。

エクセルで下記のようなデータがあり、他のプログラムでダンプされたもので
行数はその都度変わりますが、列数は変わりません。
Name列はA列、Summary列はB列にあり、Summary列は空のデータを含みます。

テストデータ

Name	Summary
test1
test2	A
test2	A
test3
test4	B
test4	B
test5	C
test6	D
test7	E
test3
test5

実現したいこと

Summary列の要素の個数をカウントしたい
要素が空の場合、Name列の要素数でカウントする
(上記のtest5は別物としてカウントする)
各要素のカウント結果をC列にセットする

期待値

Result
1
2
2
2
1
1
1
1
### 該当のソースコード

sub Sample()
    Dim MyArray As Variant
    Dim maxRow As Long
    Const maxCol As Long = 2

    maxRow = Cells(Rows.Count, 1).End(xlUp).Row '最終行'    
    MyArray = Range(Cells(1, 1), Cells(maxRow, maxCol)) '配列に格納'

　　'処理'

End Sub

補足情報（FW/ツールのバージョンなど）

Windows10
Excel 2010

Comments

[Y.H.]

タグにExcelを追加したほうがいいよ。

[zeze]

追加致しました。

Answer 1

なんか「期待値」に書いてあるのが「実現したいこと」と異なるような気がする。
「実現したいこと」をそのまま解釈するとこう↓なると思う

Name	Summary	Result
test1	1
test2	A	2
test2	A	2
test3	2
test4	B	2
test4	B	2
test5	C	1
test6	D	1
test7	E	1
test3	2
test5	1

という前提で、手っ取り早い方法を考えてみた。
D列をワークに使用していいのであれば以下で可能

    With Sheets("Sheet1")
        maxRow = .Cells(.Rows.Count, 1).End(xlUp).Row '最終行'
        .Range("D2:D" & maxRow).Formula = "=$A2&CHAR(9)&$B2"
        .Range("C2:C" & maxRow).Formula = "=IF($B2="""",COUNTIF($D$2:$D$" & maxRow & ",$D2),COUNTIF($B$2:$B$" & maxRow & ",$B2))"

        ' C列を数式から値に変換
        .Range("C2:C" & maxRow).Value = .Range("C2:C" & maxRow).Value
        ' ワークにしたD列をクリア        
        .Range("D2:D" & maxRow).Clear
    End With

ちなみに、「実現したいこと」に記載されていることを忠実にコード書いたので
「test8 A」とかを追加した場合の結果は以下になります。

Name	Summary	Result
test1	1
test2	A	3
test2	A	3
test3	2
test4	B	2
test4	B	2
test5	C	1
test6	D	1
test7	E	1
test3	2
test5	1
test8	A	3

Comments

[zeze]

回答ありがとうございました!期待通りの結果が得られました!
分かりにくい文章で申し訳ございません。
参考にさせていただきます！

[Y.H.]

解決したのであれば解決済みにしていただければと思います。