关于剔除重复

pureshadow

原帖由 Jonathan.K 于 2008-3-27 10:03 发表
Sub test()
    Dim rngData As Variant
    Dim i As Long
    Dim oDic As Object
   
    Application.ScreenUpdating = False
    Set oDic = CreateObject("Scripting.Dictionary")
    With Sheet1
  ...

现在才看明白里面的意思
这恐怕是运行速度最快的一种了[:31]

pureshadow

SQ的速度也比不上字典，字典是VBA里比数组更快上十倍的

pureshadow

函数是有无数种解决方法的，先来一种较易理解的：

例如原数据在A2：A11，要剔除重复。

核心在于把不重复的按序排好，重复的T到一边去：
SMALL(IF(MATCH($A$2: $A$11,$A$2: $A$11,)=ROW($A$1: $A$10),ROW($A$1 ...
pureshadow 发表于 2008-3-26 16:17

回头看看以前自己写的函数，真不是一般的烂
简化一下中间部分：
small(if(match($a$2: $a$11,$a$2: $a$11,)=row($1: $10),row($1: $10),11),row(a1))