[已解决]修改输出区域

张雄友 · 发表于 2013-11-6 07:48

帮修改输出区域，谢谢。

最佳答案

danio112

2013-11-6 21:34

张雄友发表于 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

跳转到最佳答案楼层

danio112 · 发表于 2013-11-6 08:06

本帖最后由 danio112 于 2013-11-6 08:29 编辑

需要用for 循环输出
If k < 65536 Then [d:d] = ""
r = k / 5
ReDim arr(1 To r, 1 To 5)
For j = 1 To 5
   For i = 1 To r
   arr(i, j) = jg((j - 1) * 5 + i, 1)
   Next i
   Next j
   ThisWorkbook.Sheets(1).[d1].Resize(r, 5) = arr

zjdh · 发表于 2013-11-6 08:41

看懂你的宏比自己写一个都困难！

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

danio112 · 发表于 2013-11-6 09:06

zjdh 发表于 2013-11-6 08:41
看懂你的宏比自己写一个都困难！

呵呵，不需要看懂，忽视前面的内容就行了

zjdh · 发表于 2013-11-6 09:17

danio112 发表于 2013-11-6 09:06
呵呵，不需要看懂，忽视前面的内容就行了

你是扫个尾，楼主要的是修改！

张雄友 · 发表于 2013-11-6 12:55

zjdh 发表于 2013-11-6 09:17
你是扫个尾，楼主要的是修改！

下标越界。

张雄友 · 发表于 2013-11-6 13:02

danio112 发表于 2013-11-6 09:06
呵呵，不需要看懂，忽视前面的内容就行了

少了一个数？？？

zjdh · 发表于 2013-11-6 15:03

张雄友发表于 2013-11-6 12:55
下标越界。

你有加了一个字母，但你没明确是增加行还是增加列！

张雄友 · 发表于 2013-11-6 19:00

zjdh 发表于 2013-11-6 15:03
你有加了一个字母，但你没明确是增加行还是增加列！

A列是源区域，是会随时增加或者减少的，但是就在5列生成。

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

张雄友发表于 2013-11-6 19:00
A列是源区域，是会随时增加或者减少的，但是就在5列生成。

这五列是一个怎么样的分配呢

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