数组应用问题（已解决）

嘻哩嘛哈

事先声明了一个只需1 列的数组 aaa()，相等于公共变量。在代码运行过中碰到一个符合条件的字符串，就先遍历数组，判断数组中有没有这个字符串，没有就追加到数组中，在代码运行到最后用UBound(aaa) + 1返回。也有可能在另外的过程需要提取其中的元素。
不是例中那样在一个工作表区域For 那么紧密的。
求助的核心代码就是：1、遍历aaa()，看有没有某个值；2、aaa()追加一行。
码件：
数组的应用问题.rar (6.77 KB, 下载次数: 16)

2014-12-18 16:10 上传

点击文件名下载附件

zongyj

看不懂你说的是什么!!

zongyj

是不是这个意思

1. Private Sub CommandButton1_Click()
   
2.    
   
3.    For j = 2 To Range("A65536").End(xlUp).Row                                           '当前行的上一行至顶循环
   
4.        If Cells(j, 1) <> "" Then '数组中还没有 then
   
5.            a = a + 1
   
6.        End If
   
7.    Next
   
8.    MsgBox "数组共有" & a & "条"
   
9. End Sub
   

复制代码

chxw68

1. Private Sub CommandButton1_Click()
   
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.     arr = .Range("a2:a" & r)
   
7.     For i = 1 To UBound(arr)
   
8.       d(arr(i, 1)) = ""
   
9.     Next
   
10.     aaa = d.keys
    
11.   End With
    
12.   MsgBox "数组中共有" & UBound(aaa) + 1 & "个元素"
    
13. End Sub
    

复制代码

嘻哩嘛哈

zongyj 发表于 2014-12-18 16:21
看不懂你说的是什么!!

就是对A列进行循环先把不重复的存到数组中，循环结果后显示数组有几行，就说明有几个不重复的内容。就是循环到一个单元格值，判断一下数组中有没有存过，没就存上。比如例运行后数组中应是
AAA
BBB
CCC
MsgBox   是 3

chxw68

参见附件。

好奇心

Private Sub CommandButton1_Click()
   Dim aaa() As String
   For i = 2 To Range("A65536").End(xlUp).Row                                           '当前行的上一行至顶循环
       If  Range("A"& i) <>""  then
                j=j+1
              redim preserve aaa(1 to j)
                  aaa(j)=j
                 End If
   Next
   MsgBox "数组共有" & j & "条"
End Sub

嘻哩嘛哈

chxw68 发表于 2014-12-18 16:26
参见附件。

谢谢老师，需要倒过来，不要先把区域赋给数值，因为实际应用中不是来自一个区域。
要求判断某个值数组中没有，就追加在数组最后。动态数组问题。

嘻哩嘛哈

好奇心 发表于 2014-12-18 16:28
Private Sub CommandButton1_Click()
   Dim aaa() As String
   For i = 2 To Range("A65536").End(xlUp ...

谢谢！
不是判断单元格是不是空，要判断指针单元格的值，数组中有没有，没有就追加

嘻哩嘛哈

zongyj 发表于 2014-12-18 16:24
是不是这个意思

If Cells(j, 1) <> "" Then  这判断的是单元 格是不是空，不是数组中有没有过