无语小松鼠

文章
7
资源
0
加入时间
3年1月23天

vba给数组赋值

'向VBA数组中写入数据     '1、按编号(标)写入和读取      Sub t1() '写入一维数组    Dim x As Integer    Dim arr(1 To 10)   arr(2) = 190   arr(10) = 5    End Sub     Sub t2()'向二维数组写入数据和读取    Dim x As Integer, y