VBA数组通俗教程（初稿）

wwgp · 发表于 2012-8-25 21:19

感谢楼主，这正是我所需要的，已收藏学习

引子玄 · 发表于 2012-8-25 22:32

好啊，数字组合很实用

mylongsea · 发表于 2012-9-20 15:01

楼主有新收获了吗，请将本教程再版吧

tjjk-523 · 发表于 2012-9-21 15:30

感谢楼主已收藏学习

引子玄 · 发表于 2012-9-23 11:54

数组好教材

TianYunY · 发表于 2012-9-23 12:10

学习了，谢谢！

引子玄 · 发表于 2012-9-23 12:31

本帖最后由引子玄于 2012-9-23 14:26 编辑

Sub 二维数组直接自定义区域然后跟括号其内先放行后放列的变量()

arr = Split("1,2;3,4;5,6", ";")
[A1:B1] = Split(arr(0), ",")
[A2:B2] = Split(arr(1), ",")
[A3:B3] = Split(arr(2), ",")

arr = Range("A1:C3") '直接用单元格区域创建了一个3行3列的数组arr
For x = 1 To 3
arr(x, 3) = arr(x, 1) * arr(x, 2) '把数组前两列相乘的结果赋值给第三列
Next x
Range("A1:C3") = arr '将新的数组结果赋值给原单元格区域

End Sub

引子玄 · 发表于 2012-9-23 13:28

本帖最后由引子玄于 2012-9-23 14:38 编辑

Sub 二维数组直接自定义界标区域然后跟括号其内先放行后放列的变量()

arr = "1,2" & vbCrLf & "3,4" & vbCrLf & "5,6"
arr = Split(arr, vbCrLf)    '一维文本数组
[A1:B1] = Split(arr(0), ",")
[A2:B2] = Split(arr(1), ",")
[A3:B3] = Split(arr(2), ",")

arr = Range("A1:j3")  '直接用单元格区域创建了一个3行10列的数组arr '区域二维数组
For x = 1 To 3
For y = 4 To 10
arr(x, y) = arr(x, 1) * arr(x, 2)  '把数组前两列相乘的结果赋值给第4-10列
Next y
Next x
Range("A1:j3") = arr '将新的数组结果赋值给原单元格区域

End Sub

引子玄 · 发表于 2012-9-23 15:33

本帖最后由引子玄于 2012-9-23 15:34 编辑

怀英慕者发表于 2011-10-3 18:07
VBA数组通俗教程（初稿）

怀英慕者编写

你举的例子是加数，能不能再举一个求平均数的2维数组的例子？

zhouxiao · 发表于 2012-10-8 09:12

学习了,感谢楼主

		自动登录	找回密码
密码			免费注册

[分享] VBA数组通俗教程（初稿）