数组应用问题（已解决）

好奇心

嘻哩嘛哈 发表于 2014-12-18 16:44
谢谢！
不是判断单元格是不是空，要判断指针单元格的值，数组中有没有，没有就追加

6楼的附件是否可以？

嘻哩嘛哈

好奇心 发表于 2014-12-18 19:20
6楼的附件是否可以？

和我的要求倒反了,附件是工作表的A列赋给数组,后对数组进行循环判断记数,最后得出数组中的不重复数的.

但我的例是配合说明问题而设的
实际上我求助的核心问题就是:1、给数组逐条追加的代码,2、最后取个总行数 的代码（UBound函数返回一下就行了）。

好奇心

嘻哩嘛哈 发表于 2014-12-18 20:55
和我的要求倒反了,附件是工作表的A列赋给数组,后对数组进行循环判断记数,最后得出数组中的不重复数的.

...

”1、给数组逐条追加“，给数组逐条追加什么？

chxw68

1. Sub test()
   
2.   Dim d As Object
   
3.   Set d = CreateObject("scripting.dictionary")
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     For i = 2 To r
   
7.       d(.Cells(i, 1).Value) = ""
   
8.     Next
   
9.     aaa = d.keys
   
10.   End With
    
11.   MsgBox "数组中共有" & UBound(aaa) + 1 & "个元素"
    
12. End Sub

复制代码

chxw68

按楼主要求修改了一下，看看是不是这样的。

嘻哩嘛哈

chxw68 发表于 2014-12-18 21:11
按楼主要求修改了一下，看看是不是这样的。

首先谢谢老师，还是不适用我的实际情况。
我的实际情况是
事先声明了一个只需1 列的数组 aaa()，相等于公共变量。在代码运行过中碰到一个符合条件的字符串，就先遍历数组，判断数组中有没有这个字符串，没有就追加到数组中，在代码运行到最后用UBound(aaa) + 1返回。也有可能在另外的过程需要提取其中的元素。
不是例中那样在一个工作表区域For 那么紧密的。
求助的核心代码就是：1、遍历aaa()，看有没有某个值；2、aaa()追加一行。

zongyj

1. Private Sub CommandButton1_Click()
   
2.    Dim d As New Dictionary, j
   
3.    For j = 2 To Range("A65536").End(xlUp).Row
   
4.    If Not d.Exists(Cells(j, 1).Value) Then d.Add Cells(j, 1).Value, ""
   
5.    Next
   
6.    arr = d.Keys
   
7.    
   
8.    MsgBox "数组共有" & UBound(arr) + 1 & "条"
   
9. End Sub
   

复制代码

嘻哩嘛哈

zongyj 发表于 2014-12-19 08:47

谢谢 zongyj   变量声明语句出错   Dim d As New Dictionary, j

Zamyi

处理不重复字典最好，需不是数组。

嘻哩嘛哈

Zamyi 发表于 2014-12-19 11:21
处理不重复字典最好，需不是数组。

谢谢老师W
“字典”怎么用呀  ，一点概念都没有，请老师 能结合我的求助 给出代码吗？