我需要总结一系列string出现的次数
所以我有一些从多个数据库导入的数据。 对于一列,将导入一系列string,并且这些string确实会改变。 在电子表格的另一列中,它们被导入到,我需要在导入列表中出现多less次每个string的总和。
我已经有macros产生一个唯一的string列,所以总和可以在旁边。
我正在考虑是否可以在每次出现每个唯一名称时将导入列表与唯一列表和特定单元格中的+1进行比较,并循环访问所有唯一列表名称?
例如:
Imported list Unique List Sum abc abc 2 cbc cbc 1 aop aop 1 aoz aoz 1 abc xyz 1 xyz
这是可能的,如果是这样的话?
利用列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