[已解决]VBA实现提取某列最后6个不重复的数字

mooming

A\B\C三列分别有110个数，想用VBA实现提取没列中最后6个不重复的数字分别放在E110\F110\G110中（A列中最后六个不重复的数字为085139放在E110，同理F110\G110）

提取列最后六个不重复的数字.rar (5.57 KB, 下载次数: 15)

2014-2-12 20:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-2-12 20:58

1. Sub t()
   
2.   Dim arr(), i&, j%, str$
   
3.   arr = Range("A1").CurrentRegion.Value
   
4.   For j = 1 To UBound(arr, 2)
   
5.     str = "'"
   
6.     For i = UBound(arr) To 1 Step -1
   
7.       If InStr(1, str, arr(i, j)) = 0 Then str = str & arr(i, j)
   
8.       If Len(str) = 7 Then Range("E110").Offset(0, j - 1) = str: Exit For
   
9.     Next
   
10.   Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

tgydslr

数据不是很多，函数也可以办到的

mooming

tgydslr 发表于 2014-2-12 20:38
数据不是很多，函数也可以办到的

能帮用函数给举个例子么？谢谢！

xdragon

1. Sub t()
   
2.   Dim arr(), i&, j%, str$
   
3.   arr = Range("A1").CurrentRegion.Value
   
4.   For j = 1 To UBound(arr, 2)
   
5.     str = "'"
   
6.     For i = UBound(arr) To 1 Step -1
   
7.       If InStr(1, str, arr(i, j)) = 0 Then str = str & arr(i, j)
   
8.       If Len(str) = 7 Then Range("E110").Offset(0, j - 1) = str: Exit For
   
9.     Next
   
10.   Next
    
11. End Sub

复制代码

冠军欧洲2010

1. Sub A()
   
2.     Dim X
   
3.     Dim SR, SR1, SR2
   
4.     Dim D As New Dictionary
   
5.     Dim D1 As New Dictionary
   
6.     Dim D2 As New Dictionary
   
7.     For X = 110 To 1 Step -1
   
8.         D(Cells(X, 1).Value) = ""
   
9.         D1(Cells(X, 2).Value) = ""
   
10.         D2(Cells(X, 3).Value) = ""
    
11.     Next
    
12.     For X = 0 To 5
    
13.         SR = SR & D.Keys(X)
    
14.         SR1 = SR1 & D1.Keys(X)
    
15.         SR2 = SR2 & D2.Keys(X)
    
16.     Next
    
17.     [E110] = "'" & SR
    
18.     [F110] = "'" & SR1
    
19.     [G110] = "'" & SR2
    
20. End Sub

复制代码

mooming

冠军欧洲2010 发表于 2014-2-12 21:03

你的也很棒