关于剔除重复

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]

洋五月

呵呵，妖都才明白，我更看不懂了[:33]

wait→alone

数据量大的话用sql吧
Sub cx()
    Dim cnn As New ADODB.Connection
    Dim rds As New ADODB.Recordset
    Dim i As Integer
    Dim sql As String, sfilename As String, cnnstr As String
    sfilename = ThisWorkbook.FullName
    cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & sfilename
    sql = "select distinct * from [sheet1$]  ;"
    cnn.Open cnnstr
    rds.Open sql, cnn, adOpenKeyset, adLockOptimistic
    Sheets("sheet1").Range("b2").CopyFromRecordset rds
    rds.Close: cnn.Close
    Set rds = Nothing: Set cnn = Nothing
End Sub

pureshadow

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

wait→alone

学习了
找时间测试下

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))

wyingnan4587

还是数据透视最快了

szhtct

老黄历~~~

douhao

支持，用数据透视表操作快捷

sl261011

SEE