如何使用VBA计算重复值

0 excel vba excel-vba

我是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
Run Code Online (Sandbox Code Playgroud)

结果应该是:

Value        Count
PSV_Cust_1   5
PSV_Cust_2   4
PSV_Cust_3   4
PSV_Cust_4   3
PSV_Cust_5   7
Run Code Online (Sandbox Code Playgroud)

请任何一个帮助使用VBA代码获取outpu.

Sto*_*now 11

正如其他人所建议的那样,这Pivot Table将是实现这一目标的最简单方法.这是如何做:

1)选择要计数的行

2)Insert -> PivotTable 从功能区中选择

3)将出现一个窗口,单击Ok以创建数据透视表:

在此输入图像描述

4)在"数据透视表字段列表:选择要添加到报表的字段:"下的右侧,单击下一个复选框:

在此输入图像描述

5)现在将您刚刚单击的复选框字段拖到"值"列表中然后放开:

在此输入图像描述

6)就是这样!您现在将拥有您要求的内容:

在此输入图像描述