Sub 将1到100的数存入数组()
Dim Arr(1 To 100) As Integer, i As Byte
For i = 1 To 100
Arr(i) = i
Next
End Sub

Sub 将区域中的数据存入数组()
Dim Brr(1 To 100), i As Byte
For i = 1 To 100
Brr(i) = Cells(i, "A").Value
Next i
End Sub

上一篇：excel数据分析：替自定义函数设置参数 下一篇：表格制作excel教程：Excel高阶图表，牛到不行了

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。