VBA Excel - 查找匹配项

Question

我想创建一个宏来执行以下操作： 在Excel表格中

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

我会将数据粘贴到C列中，例如

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

我要查找的结果是查找A和B中的匹配项数，如果不匹配则将元素添加到列A，如下所示：< / p>

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