求助代码,取不重复值,但每个值要2个

hhjjpp

数据量不是特大，可以考虑简单的split：

1. Sub 去重()
   
2. Dim i&, j%, arr
   
3. Application.ScreenUpdating = False
   
4. Set d = CreateObject("scripting.dictionary")
   
5. arr = Sheet1.Range("A2:A" & Sheet1.[A65536].End(3).Row)
   
6. j = 1
   
7. For i = 1 To UBound(arr)
   
8.     If Not d.exists(arr(i, 1)) Then
   
9.        d(arr(i, 1)) = d(arr(j, 1)) & "," & arr(i, 1) & "," & arr(i, 1)
   
10.        j = i
    
11.     End If
    
12. Next i
    
13. Sheet1.Range("E2:E250").ClearContents
    
14. [e2].Resize(d.Count * 2, 1) = Application.Transpose(Split(Mid(d(arr(j, 1)), 2, 999999), ",")) '注意split结果与字典keys方法一样得到的是行向分布的一维数组
    
15. Application.ScreenUpdating = True
    
16. End Sub
    

复制代码

lzqmsy

hhjjpp 发表于 2016-7-14 09:47
数据量不是特大，可以考虑简单的split：

好的,再次谢谢!!!

hhjjpp

其实vba里，一维数组都是延行向延展的。
如果将一列单元格赋值给维数未声明的数组，该数组必为二维，因为一维数组是不会呈竖向分布；一维数组要赋值给一列是就要用到transpose，否则那一列得到都是数组首元素！
所以split和d.keys要与一列对应时就需转置！

lzqmsy

hhjjpp 发表于 2016-7-15 08:43
其实vba里，一维数组都是延行向延展的。
如果将一列单元格赋值给维数未声明的数组，该数组必为二维，因为 ...

谢谢,学到很多知识

lzqmsy

hhjjpp 发表于 2016-7-15 08:43
其实vba里，一维数组都是延行向延展的。
如果将一列单元格赋值给维数未声明的数组，该数组必为二维，因为 ...

谢谢,学到很多知识