使用VBA归纳某列相同的数据

#1、创作背景

如下图所示，需要很快找出A列中相同的数据，如果用筛选功能，数据量多了就会很麻烦，于是写了如下脚本（3）解决此问题。

#2、核心思想

使用VBA代码筛选出该列重复的值，与之对应的在相邻列用相同的数值进行标记。如下图所示，A2用数字0标记，由于A4单元格的值和A2一样，所以也用0标记。

此时直接对B列进行排序，就可以清楚的看到A列哪些数据是有重复的

#3、代码如下

#主函数：

Sub test()

Dim columnName_0 As String
Dim columnName_1 As String
Dim sheetName As String
sheetName = "Sheet1"
columnName_0 = "数据"
columnName_1 = "Seq"
p = 0

a = ActiveSheet.[A65536].En