[求助]字典方法多列不重复值剔除[已解决]

花季少女

请问如何能根据三列数的重复值剔除，放到另外三列呢？SQL是可以做到但是内存会增加，而且I/O出错，不建议使用。

以前狼版用字典法去重，但只是针对单列，不能针对多列，请问如何可以做到呢？详见附件实例

2RiRjfg2.rar (1.58 KB, 下载次数: 181)

2008-1-21 22:44 上传

点击文件名下载附件
[求助]字典方法多列不重复值剔除

[此贴子已经被作者于2008-1-21 23:07:08编辑过]

花季少女

http://club.excelhome.net/viewthread.php?tid=280569&replyID=&skin=0

这个问题有答案了，谢谢

ldy888

Sub hhh()
    Dim d As New Dictionary
    For i = 1 To 18
        d(Cells(i, 1) & Cells(i, 2) & Cells(i, 3)) = Range(Cells(i, 1), Cells(i, 3))
    Next
    arr = WorksheetFunction.Transpose(d.Items)
    arr = WorksheetFunction.Transpose(arr)
    Range("e1").Resize(UBound(arr), 3) = arr
End Sub

花季少女

Dim d As New Dictionary

提示“用户类型未定义”哦

oobird

Sub yy()
  Dim rng, d As Object, i%, j%, s$, arr, k
  Set d = CreateObject("Scripting.Dictionary")
  rng = Range([a1], [c1].End(xlDown))
  For i = 1 To UBound(rng)
    s = rng(i, 1) & "," & rng(i, 2) & "," & rng(i, 3)
    d(s) = ""
  Next
  k = d.keys
  ReDim arr(1 To d.Count, 1 To 3)
  For i = 1 To d.Count
    For j = 1 To 3
      arr(i, j) = Split(k(i - 1), ",")(j - 1)
    Next j
  Next i
  [e1].Resize(d.Count, 3) = arr
  Set d = Nothing
End Sub

ldy888

QUOTE:

以下是引用花季少女在2008-1-21 23:08:41的发言：

Dim d As New Dictionary

提示“用户类型未定义”哦

仔细看狼版的贴，有说明。

或者把 Dim d As New Dictionary 改为

Set d = CreateObject("Scripting.Dictionary")

[此贴子已经被作者于2008-1-21 23:13:15编辑过]

彭希仁

向高人们学习