如何循环一维数组里的列号？

hcy1185

arr = Array(6, 7, 8, 9, 11, 12, 13, 14, 15) '列变量数组引用方式
For j = 1 To arr()
如何循环一维数组里的列号？谢谢！
未上附件请见谅！

Chip_Kenny

1. Sub zz()
   
2. For Each i In Array(6, 7, 8, 9, 11, 12, 13, 14, 15)
   
3.     Debug.Print i   '單循環
   
4. Next
   
5. For Each i In Array(6, 7, 8, 9, 11, 12, 13, 14, 15)
   
6.     For j = 1 To 2
   
7.         Debug.Print i   '雙循環
   
8.     Next
   
9. Next
   
10. arr = Array(6, 7, 8, 9, 11, 12, 13, 14, 15)
    
11. For i = LBound(arr) To UBound(arr)
    
12.     Debug.Print arr(i)   '單循環
    
13. Next
    
14. End Sub

复制代码

hcy1185

Chip_Kenny 发表于 2018-9-21 23:22

首先表示感谢！

hcy1185

Book1.rar (191.9 KB, 下载次数: 8)

2018-9-22 09:44 上传

点击文件名下载附件

请老师指点！最后的系统计算数错误，代码运行错误