[已解决]用VBA两种方法 第一种数组 第二种字典

laoau138

用VBA两种方法   第一种数组    第二种字典


有1、2、3…999这999个数字中，用VBA数组和字典编写一段代码，在工作表的A列显示这些数被5除余1和余2的数字。

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-17 09:27

1. Sub bbb()
   
2. Dim i&, arr(1 To 999, 1 To 1), r&, d As Object, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. d(1) = "": d(2) = ""
   
5. For i = 1 To 999
   
6.   If d.exists(i Mod 5) Then
   
7.     r = r + 1
   
8.     arr(r, 1) = i
   
9.   End If
   
10. Next i
    
11. [a1].Resize(r) = arr
    
12. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, j&, arr(1 To 999, 1 To 1), r&
   
3. For i = 1 To 999 Step 5
   
4.   For j = i To i + 1
   
5.     r = r + 1
   
6.     arr(r, 1) = j
   
7.   Next j
   
8. Next i
   
9. [a1].Resize(r) = arr
   
10. End Sub

复制代码

大灰狼1976

1. Sub bbb()
   
2. Dim i&, arr(1 To 999, 1 To 1), r&, d As Object, n&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. d(1) = "": d(2) = ""
   
5. For i = 1 To 999
   
6.   If d.exists(i Mod 5) Then
   
7.     r = r + 1
   
8.     arr(r, 1) = i
   
9.   End If
   
10. Next i
    
11. [a1].Resize(r) = arr
    
12. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-17 09:27

果然高手了，我只会这个

Sub s2()
    Dim arr(1 To 999, 1 To 1)
    For i = 1 To 999
        If i Mod 5 = 1 Or i Mod 5 = 2 Then
            k = k + 1
            arr(k, 1) = i
        End If
    Next
    [d1].Resize(k, 1) = (arr)
End Sub

laoau138

大灰狼1976 发表于 2017-6-17 09:27

用VBA改写字典代码   再加一个数组保存999个数字


http://www.excelpx.com/thread-431260-1-1.html