如何使用VBA对重复值进行计数

Question

我是VBA的新手，我试图找到在特定列中重复相同值的次数。

然后我需要将值和重复值的计数粘贴到另一个工作表的A列和B列中。

我需要计数的重复值次数：

PSV_Cust_1 
PSV_Cust_1 
PSV_Cust_1 
PSV_Cust_1 
PSV_Cust_1 
PSV_Cust_2 
PSV_Cust_2 
PSV_Cust_2 
PSV_Cust_2 
PSV_Cust_3 
PSV_Cust_3 
PSV_Cust_3 
PSV_Cust_3 
PSV_Cust_4 
PSV_Cust_4 
PSV_Cust_4 
PSV_Cust_5 
PSV_Cust_5 
PSV_Cust_5 
PSV_Cust_5 
PSV_Cust_5 
PSV_Cust_5 
PSV_Cust_5 
PSV_Cust_5 

的结果应该是：

Value  Count 
PSV_Cust_1 5 
PSV_Cust_2 4 
PSV_Cust_3 4 
PSV_Cust_4 3 
PSV_Cust_5 7 

请任意一个有利于使用VBA代码得到outpu。

Answer 1

这个宏会做你需要的东西：

Sub Summarize(rngSource As Range, rngTarget As Range) 
    Dim d As New Scripting.Dictionary 
    Dim rng As Range 
    Dim var As Variant 

    For Each rng In rngSource 
     If rng <> "" Then 
      If d.Exists(rng.Value) Then 
       d(rng.Value) = d(rng.Value) + 1 
      Else 
       d.Add rng.Value, 1 
      End If 
     End If 
    Next rng 

    rngTarget = "Value" 
    rngTarget.Offset(, 1) = "Count" 
    Set rng = rngTarget.Offset(1) 
    For Each var In d.Keys 
     rng = var 
     rng.Offset(, 1) = d(var) 
     Set rng = rng.Offset(1) 
    Next 
End Sub 

您需要参考在Visual Basic编辑器（工具 - >引用）添加到微软脚本库。你可以这样调用：

Summarize Sheet1.Range("A1:A24"), Sheet1.Range("C1") 

Answer 2

的COUNTIF（范围值）功能会做你想要的东西 - 它的优点是，可以更方便地限制你要搜索的值（相对于枢轴表）。假设您的数据处于您命名为“客户”的范围“Sheet1！A1：A25”中（您可以通过选择范围并在公式栏左侧的地址栏中输入customers来实现此目的），并且包含“客户1，顾客2 ...通过客户10" ，和你只想知道多少次的客户1和5的出现，您可以创建在Sheet2上以下

col A  col B 
Value  count 
customer 1 =COUNTIF(customers, A1) 
customer 5 =COUNTIF(customers, A2) 

当然你也可以从刚刚拖动单元格公式向下B1 - 你不需要再次输入。

这将计数客户，自动更新......我认为这比在这个例子中的数据透视表更容易。

Answer 3

正如其他人所建议的，Pivot Table将是最简单的方法来实现这一点。具体方法如下：

1）选择你要计算

2）从色带

3）在出现的窗口中选择Insert -> PivotTable 行，单击Ok到创建您的关键点 表格：

4）在下面的权利 “数据透视表字段列表：选择字段添加到报告：” 点击旁边的复选框：

5 ）现在将刚刚单击下来的复选框字段拖到“值”列表中，然后释放：

6）这就是它！现在，您将有你的要求为：