【VBA字典数组201301班】C组-第一讲作业上交处

雪舞子

交作业

【VBA字典数组201301班】C06雪舞子.rar (67.23 KB, 下载次数: 11)

2013-11-6 16:37 上传

点击文件名下载附件

雪舞子

感谢疯子学委指出问题，最后两题代码改进如下，改进后避免了数组重复定义：

1. Sub 作业四()
   
2. Dim arr, brr(), ar, i%, n%
   
3. arr = Range("c13", Cells(Rows.Count, 7).End(xlUp))
   
4. ReDim brr(0)
   
5.     For Each ar In arr
   
6.         For i = 0 To n
   
7.             If UCase(brr(i)) = UCase(ar) Then GoTo 100
   
8.         Next
   
9.     brr(n) = ar
   
10.     n = n + 1
    
11.     ReDim Preserve brr(n)
    
12. 100:
    
13.     Next
    
14. [c43].Resize(n) = Application.Transpose(brr)
    
15. End Sub

复制代码

1. Sub 作业五()
   
2. Dim arr, brr(), ar, i%, n%
   
3. arr = [c9].CurrentRegion
   
4. ReDim brr(0)
   
5.     For Each ar In arr
   
6.             For i = 0 To n
   
7.             If brr(i) = ar Then GoTo 100
   
8.         Next
   
9.     brr(n) = ar
   
10.     n = n + 1
    
11.     ReDim Preserve brr(n)
    
12. 100:
    
13.     Next
    
14. [l8].Resize(n) = Application.Transpose(brr)
    
15. End Sub

复制代码