Question

求助VBA删除相同项

我的数据超级多，用的EXCEL2010版本。在网上找到几个公式，速度太慢；几个代码，提示下界越标。我的数据范围在A3：H1000000，要求删除B、D、F、H这4列相同项及相同项对应的前一列单元格，空值单元格全部删除，其余相同项保留1个。A、C、E、G列数据示例：1,2,3,4,5,6,7,8,9,10,11 B、D、F、H列数据示例：_1_29_793_1028_1266

Answer 1

数据量太大，vba还不如内置的函数计算的快，下标越界估计是因为使用的整形数据类型不正确。
你可以这样试试：
1.
将需要比较的几列字符串连接起来，形成一个新的列，权且记为W列。
2.
将W列公式粘贴为数值(很关键，排序的时候带着公式会非常慢)
3.
将W列排序。
4.
在新一列(假设X列)

X1=1，然后X2写公式为(=if(w1=w2,x1+1,1)。目的是将W列相同的记录在X列编一个从1开始的流水号。
5.
将X列排序，那么X列为1的记录靠在一块，筛选X列为1的记录，那么这些数据就是从原来重复的数据里面每个挑一个出来组成的集合。