动态数组中Preserve用法

oonly

autumnalRain 发表于 2016-1-14 10:22
VBA数组学习笔记
http://club.excelhome.net/thread-380135-1-1.html

这个很不错

vsnic

autumnalRain 发表于 2016-1-14 10:22
VBA数组学习笔记
http://club.excelhome.net/thread-380135-1-1.html

感谢分享！

autumnalRain

autumnalRain 发表于 2015-9-2 13:22
有点儿明白最后输入到单元格的数字为什么是一样的了

补充内容 (2016-1-15 12:15):

1. Sub 数组方法求不重复值()
   
2.     Dim arr1
   
3.     Dim bln As Boolean
   
4.     arr = Range([a1], [a1048576].End(xlUp))
   
5.     ReDim arr1(1 To 1)
   
6.     For i = 1 To UBound(arr)
   
7.         bln = True
   
8.         For j = 1 To UBound(arr1, 1)
   
9.             If arr(i, 1) = arr1(j) Then
   
10.                 bln = False
    
11.                 Exit For
    
12.             End If
    
13.          Next j
    
14.             If bln Then
    
15.                 k = k + 1
    
16.                 ReDim Preserve arr1(1 To k)
    
17.                 arr1(k) = arr(i, 1)
    
18.              End If
    
19.     Next i
    
20.     [c1].Resize(k) = Application.Transpose(arr1)
    
21. End Sub
    

复制代码

freeslogan

一直都是用字典去重的，今天算是新加了一个数组的知识，但是还是觉得字典相对简单，也容易一些