请教：For i = 1 To UBound(Arr) 当arr一条记录时为什么出错？谢谢！！！

qdzbk

请教：For i = 1 To UBound(Arr)  当arr一条记录时为什么出错？怎么将一条记录也筛选出来啊？谢谢！！！
11.rar (7.44 KB, 下载次数: 197)

2014-1-2 22:19 上传

点击文件名下载附件

zhaogang1960

如果只有一个单元格则不是数组，用IsArray函数判断一下，分别处理：

1. Sub Test()
   
2.     Dim Dic, Arr, i&
   
3.     Set Dic = CreateObject("scripting.dictionary")  '创建字典对象
   
4.     'Set Arr = CreateObject("scripting.dictionary")  '创建字典对象——这一句是多余的
   
5.     Range("B3:B65536").ClearContents
   
6.     If Range("A65536").End(xlUp).Row < 3 Then Exit Sub
   
7.     Arr = Range("A3:A" & Range("A65536").End(xlUp).Row)
   
8.     If IsArray(Arr) Then
   
9.         For i = 1 To UBound(Arr)
   
10.             Dic(Arr(i, 1)) = ""
    
11.         Next
    
12.     Else
    
13.         Dic(Arr) = ""
    
14.     End If
    
15.     Range("b3").Resize(UBound(Dic.keys) + 1, 1) = WorksheetFunction.Transpose(Dic.keys)
    
16. End Sub
    

复制代码

qdzbk

zhaogang1960 发表于 2014-1-2 22:38
如果只有一个单元格则不是数组，用IsArray函数判断一下，分别处理：

成了，谢谢指教！！！

2821121973

请问：Dic(Arr(i, 1)) = "" 和 Dic(Arr) = ""各是什么意思，谢谢。