[已解决]修改输出区域

张雄友 · 发表于 2013-11-6 21:20

danio112 发表于 2013-11-6 21:11
这五列是一个怎么样的分配呢

从左到右，从左到右，一直到完为止。

danio112 · 发表于 2013-11-6 21:34

这个最佳答案由 danio112 给出，感谢 danio112 的回答。

单击隐藏图章

张雄友发表于 2013-11-6 21:20
从左到右，从左到右，一直到完为止。

试试这样：

On Error Resume Next
If k < 65536 Then
   r = Int(k / 5) + 1
ReDim arr(1 To r, 1 To 5)
For i = 1 To r
For j = 1 To 5
   arr(i, j) = jg((i - 1) * 5 + j, 1)
   Next j
   Next i
   [d1].Resize(r, 5) = arr

zjdh · 发表于 2013-11-7 10:32

修改输出区域.rar (17.64 KB, 下载次数: 3)

张雄友 · 发表于 2013-11-7 20:15

zjdh 发表于 2013-11-7 10:32

B3 单元的组合个数，怎么不对了？=1？

zjdh · 发表于 2013-11-7 21:08

噢

修改输出区域.rar (18.47 KB, 下载次数: 4)

张雄友 · 发表于 2013-11-7 21:34

zjdh 发表于 2013-11-7 21:08
噢

执行代码，当输入列数=1时，会下标越界。

zjdh · 发表于 2013-11-8 07:56

张雄友发表于 2013-11-7 21:34
执行代码，当输入列数=1时，会下标越界。

你这是新要求啦，应该开新贴求助啦！

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

[已解决]修改输出区域

评分