提示下标越界，麻烦各位老师帮看看问题怎么改

boluoyou · 发表于 2018-3-22 09:29

Sub 组合4in6()

a = Array(1, 2, 3, 4, 5, 6)

Dim I1, I2, I3, I4, M

M= 0

For I1 = 1 To 3

For I2 = I1 + 1 To 4

For I3 = I2 + 1 To 5

For I4 = I3 + 1 To 6

M = M + 1

Cells(M, 1) =a( I1) &a(I2) &a( I3) &a( I4)

End Sub

谢谢。

象山海鲜 · 发表于 2018-3-22 09:31

数组 a 的下标是 0 开始的
所以最大位置只能是 a（5）

boluoyou · 发表于 2018-3-22 10:01

哦，明白了，谢谢老师。如果我想把a改成读取a1单元格中的数据怎么改，谢谢老师。

象山海鲜 · 发表于 2018-3-22 11:31

本帖最后由象山海鲜于 2018-3-22 11:32 编辑

boluoyou 发表于 2018-3-22 10:01
哦，明白了，谢谢老师。如果我想把a改成读取a1单元格中的数据怎么改，谢谢老师。

a=[a1].VALUE
可以的话，你到vba板块询问更好

boluoyou · 发表于 2018-3-22 14:21

好的，谢谢老师指点

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

[求助] 提示下标越界，麻烦各位老师帮看看问题怎么改