我需要总结一系列字符串出现的次数

Question

所以我从多个数据库导入了一些数据。对于一列，导入一系列字符串，这些字符串确实会发生变化。在导入它们的电子表格的另一列中，我需要在导入列表中出现EACH字符串的次数。

我已经有一个宏生成一个唯一的字符串列，所以总和可以在那旁边。

我在考虑是否可以将导入的列表与唯一列表进行比较，并在每次出现每个唯一名称时将特定单元格中的+1进行比较并循环显示所有唯一列表名称？

EG：

Imported list                Unique List                        Sum
abc                          abc                                2 
cbc                          cbc                                1
aop                          aop                                1
aoz                          aoz                                1
abc                          xyz                                1
xyz

这是可能的，如果是这样的话？

Answer 1

对于 A 列中的数据，请考虑：

Sub demo()
    Dim A As Range, B As Range, C As Range
    Dim N As Long, i As Long
    Set A = Range("A:A")
    Set B = Range("B:B")

    A.Copy B
    B.RemoveDuplicates Columns:=1, Header:=xlNo
    N = Cells(Rows.Count, "B").End(xlUp).Row
    For i = 1 To N
        Cells(i, "C").Value = Application.WorksheetFunction.CountIf(A, Cells(i, "B").Value)
    Next i
End Sub