借助循环语句为数组赋值

借助循环语句为数组赋值

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参-

1、将1到100的自然数存入数组arr

Sub 将1到100的数存入数组()Dim Arr(1 To 100) As Integer, i As ByteFor i = 1 To 100Arr(i) = iNextEnd Sub

2、将活动工作表A1:A100中的数据存入数组brr

Sub 将区域中的数据存入数组()Dim Brr(1 To 100), i As ByteFor i = 1 To 100Brr(i) = Cells(i, "A").ValueNext iEnd Sub

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。