[已解决]用VBA改写字典代码 再加一个数组保存999个数字

laoau138

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

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

Sub aaa()
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To 999
If i Mod 5 = 1 Or i Mod 5 = 2 Then
d.Add i, ""
End If
Next
Range("a1:a" & d.Count) = Application.Transpose(d.Keys)
End Sub

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-19 11:29

你要数组保存999个数还是保存除以5余1或余2的数？
保存在数组中不需要输出？

1. Sub aaa()
   
2. Dim arr(1 To 999), i&, d As Object
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 1 To 999
   
5.   arr(i) = i
   
6.   If i Mod 5 = 1 Or i Mod 5 = 2 Then d.Add i, ""
   
7. Next
   
8. Range("a1:a" & d.Count) = Application.Transpose(d.Keys)
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

你要数组保存999个数还是保存除以5余1或余2的数？
保存在数组中不需要输出？

1. Sub aaa()
   
2. Dim arr(1 To 999), i&, d As Object
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 1 To 999
   
5.   arr(i) = i
   
6.   If i Mod 5 = 1 Or i Mod 5 = 2 Then d.Add i, ""
   
7. Next
   
8. Range("a1:a" & d.Count) = Application.Transpose(d.Keys)
   
9. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-19 11:29
你要数组保存999个数还是保存除以5余1或余2的数？
保存在数组中不需要输出？

一定要好好学习字典

大灰狼1976

字典实际上很简单的，从简单的示例开始理解最好，d.add完全可以用d()=""的方式。

laoau138

大灰狼1976 发表于 2017-6-19 11:29
你要数组保存999个数还是保存除以5余1或余2的数？
保存在数组中不需要输出？

用VBA字典数组多行多列汇总


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