[原创视频课程]ExcelVBA14节 数组入门基础2

hysys32

上一节为大家讲解了有关VBA中数组的基础让大家认识了有关数组的一些基本信息，本节将继续带领大家了解VBA中数组的应用。主要讲解了如下知识点：
1、Join函数
2、Split函数
3、单元格转换为数组的注意事项
4、断点调试的使用
5、本地窗口的使用

1. Sub ArrayTest()
   
2.     Dim Arr(1 To 10)
   
3.     Dim i As Integer
   
4.     Dim i1 As Integer
   
5.     For i = 1 To 10
   
6.         Arr(i) = i
   
7.     Next
   
8.     MsgBox Join(Arr, "-")
   
9. '    For i1 = 1 To 10
   
10. '        Debug.Print Arr(i1)
    
11. '    Next
    
12. End Sub
    
13. 
    
14. Sub test()
    
15.     Arr = Range("a1:h1")
    
16.     Dim brr(1 To 8)
    
17.     For i = 1 To UBound(Arr, 2)
    
18.         brr(i) = Arr(1, i)
    
19.     Next
    
20.     [i2] = Join(brr, "-")
    
21.     crr = Split([i2].Value, "-")
    
22.     For i1 = 1 To UBound(crr)
    
23.         Debug.Print (crr(i1))
    
24.     Next
    
25. End Sub
    

复制代码

课程下载地址：
http://pan.baidu.com/s/1qXiRDLi
教程全集索引：
http://www.excelpx.com/thread-371964-1-1.html

小驴拉磨

谢谢老师