VBA提取A列姓名的唯一值

laoau138

VBA提取A列姓名的唯一值

望帝春心

1. Sub 数组()
   
2.     Dim arr(), i&, j&, k&, n&
   
3.     brr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
   
4.     For i = 1 To UBound(brr)
   
5.         For j = 1 To i - 1
   
6.             If brr(i, 1) = brr(j, 1) Then
   
7.                 n = n + 1
   
8.             End If
   
9.         Next
   
10.         If n = 0 Then
    
11.             k = k + 1
    
12.             ReDim Preserve arr(1 To k)
    
13.             arr(k) = brr(i, 1)
    
14.         End If
    
15.         n = 0
    
16.     Next
    
17.     Cells(1, "d").Resize(k, 1) = Application.Transpose(arr)
    
18. End Sub

复制代码

望帝春心

1. Sub 字典()
   
2.     Dim i&
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
   
5.     For i = 1 To UBound(arr)
   
6.         d(arr(i, 1)) = ""
   
7.     Next
   
8.     Cells(1, "e").Resize(d.Count, 1) = Application.Transpose(d.keys)
   
9. End Sub

复制代码

望帝春心

1. Sub 集合()
   
2.     Dim col As New Collection, arr, i&, brr()
   
3.     arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
   
4.     For i = 1 To UBound(arr)
   
5.         On Error Resume Next
   
6.         col.Add arr(i, 1), CStr(arr(i, 1))
   
7.     Next
   
8.     ReDim brr(1 To col.Count, 1 To 1)
   
9.     For i = 1 To col.Count
   
10.         brr(i, 1) = col(i)
    
11.     Next
    
12.     Cells(1, "f").Resize(col.Count, 1) = brr
    
13. End Sub

复制代码

一沫昔阳虹w

望帝春心 发表于 2016-12-13 13:17

集合有什么优点呢?还没接触过

望帝春心

一沫昔阳虹w 发表于 2016-12-13 13:57
集合有什么优点呢?还没接触过

我也没研究过，就是知道有这样一个东西，可以这样用

laoau138

一沫昔阳虹w 发表于 2016-12-13 13:57
集合有什么优点呢?还没接触过

集合已经过时了

laoau138

一沫昔阳虹w 发表于 2016-12-13 13:57
集合有什么优点呢?还没接触过

VBA对多列数据相同用红色单元格背景色


http://www.excelpx.com/thread-426363-1-1.html