VB的Excel - 要找到匹配

Question

我想創建一個宏來完成後續： 在Excel表格中

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

我將粘貼數據C列例如

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

的我要找的結果是找到A和B中匹配的數量，如果不匹配將列元素添加到列A，如下所示：

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