excel - VB Excel - 一致を検索するには

Question

次のことを行うマクロを作成したい: Excel テーブル内

A B C
------
a
b
c
d

Cたとえば、列にデータを貼り付けます

A B C
------
a   b
b   b
c   f
d

私が探している結果は、次のように列に要素を追加する一致がない場合はA、一致する数を見つけることです。BA

A B C
-----
a   b
b 2 b
c   f
d
f 1

Answer 1

このサブルーチンは、列 C の一致する項目の数をカウントし、結果を列 B に出力します。

Sub MatchColumnAtoColumnC()
Dim rngA as Range
Dim rngC as Range
Dim cl as Range

Set rngA = Range("A1",Range("A1").End(Xldown))
Set rngC = rngA.Offset(0,2)

For Each cl in rngA
    cl.Offset(0,1).Value = CountIf(cl,rngC)
Next

End Sub