执行出现错误，求老师指点！

zainan0810 · 发表于 2019-11-9 09:27

本帖最后由 zainan0810 于 2019-11-9 10:45 编辑

程序目的是从第二行起，将所有列并成一列。执行结果正确，但程序提示出错。求教各位老师！

多列并一列（有标题行）.rar (14.1 KB, 下载次数: 5)

月关 · 发表于 2019-11-9 09:46

61列开始往后，只有第1行有数据。相当于执行 cells(2,61).resize(0,1) ，resize (0行,x列) 肯定会报错的。要加个判断

月关 · 发表于 2019-11-9 09:47

也就是，resize最小的尺寸都是 (1,1) , 可以省略某个参数，默认为原尺寸大小，但是不能为0或负数

zainan0810 · 发表于 2019-11-9 09:53

月关发表于 2019-11-9 09:47
也就是，resize最小的尺寸都是 (1,1) , 可以省略某个参数，默认为原尺寸大小，但是不能为0或负数

能请老师帮写下吗？

月关 · 发表于 2019-11-9 10:10

zainan0810 发表于 2019-11-9 09:53
能请老师帮写下吗？

模块1中的代码：
r = .Cells(.Rows.Count, j).End(xlUp).Row
下面插一句
If r = 1 Then Exit Sub

zainan0810 · 发表于 2019-11-9 10:44

月关发表于 2019-11-9 10:10
模块1中的代码：
r = .Cells(.Rows.Count, j).End(xlUp).Row
下面插一句

再次谢谢月关老师的指点！不对，应该是朕老师，哈哈

月关 · 发表于 2019-11-9 10:58

zainan0810 发表于 2019-11-9 10:44
再次谢谢月关老师的指点！不对，应该是朕老师，哈哈

一直都是朕。
上网要克制啊，眼睛再散光林蛋大就不是笑话了

zainan0810 · 发表于 2019-11-9 12:19

月关发表于 2019-11-9 10:58
一直都是朕。
上网要克制啊，眼睛再散光林蛋大就不是笑话了

谨遵朕老师的教诲！

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

[已解决] 执行出现错误，求老师指点！