一起来认识数组公式(最基础)

ning84 · 发表于 2023-3-8 18:35

数组全部轮换一遍。

Sub M()
Dim Arr
Arr = rArr(Array("兰州", "珠海", "武汉", "北京", "抚远", "漠河", "三沙", "喀什"))
End Sub
Function rArr(Arr)
Dim xArr
Dim jj, Rr, Cc, Ccc
Rr = UBound(Arr)
Cc = Rr
ReDim xArr(Rr, Cc)
For jj = 0 To UBound(Arr)
Cc = 0
For jj1 = jj To UBound(Arr)
xArr(jj, Cc) = Arr(jj1)
Cc = Cc + 1
Next jj1
''
For jj1 = 0 To jj - 1
xArr(jj, Cc) = Arr(jj1)
Cc = Cc + 1
Next jj1
Next jj
End Function

复制代码

Daisy.G · 发表于 2023-3-22 13:45

谢谢，我这菜鸟正好需要。

夜晚→→ · 发表于 2023-4-7 14:26

本帖最后由夜晚→→ 于 2023-4-7 14:48 编辑

谢谢！作为一个初学者，对我帮助很大，从头看到尾。
两个二维数组的运算可以想象成两张纸，前后重叠，对位运算。行数组只能列扩充（行扩充会按照前面的规则增加不同的数字，所以不能行扩充），列数组只能行扩充（同理），单格即可以行扩充，也可以列扩充，扩充只是把小的数组复制填充到和大的数组面积一般大，形成两张一样大的纸，好运算

橒♂蝣 · 发表于 2023-4-11 17:29

楼主厉害，好好学习

白胖二 · 发表于 2023-5-19 09:39

嗯，好帖，叶枫辛苦。我想很适合初学的人。

56292923 · 发表于 2023-6-3 15:20

数组公式运用起来很容易弹出提示框感觉不方便

索命梵音 · 发表于 2023-9-24 23:42

通过此贴对数组有了认知

moke413 · 发表于 2023-11-27 20:00

太棒了，简单明了

wss879619 · 发表于 2024-2-4 23:50

学习学习！！！！

tobydog · 发表于 2024-3-22 13:20

感谢分享。收藏了！！！！！！！！！！！！！1

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

[原创] 一起来认识数组公式(最基础)