[已解决]提取每个宏

xdwy81129 · 发表于 2010-12-31 11:56

成功了，感谢我的讲师了

xdwy81129 · 发表于 2011-1-1 14:47

Dj_soo 发表于 2010-12-31 11:53
另外我代码的缺陷你可以自己尝试修改一下,看看如果过程之间不带空行应该怎么改.
我就不改了,给你自己练习吧 ...

发现一个较大的缺陷，请帮忙指正下：

在如果有一行的语句字符超过255个，则宏会提示错误：

提示的黄色语句在： Cells(1, Col).Resize(Line) = Application.Transpose(arr)

图为未命名.JPG

xdwy81129 · 发表于 2011-1-1 18:52

啊，还可以有其他的办法没有呢？就让代码一行超过265个字符

xdwy81129 · 发表于 2011-1-2 19:48

回复 Dj_soo 的帖子

Dj_soo 那就循环不用数组

啊，那怎么写的，你写的这个代码没有看懂，所以不会改了，还是请讲师大人帮忙帮忙。先感谢了

xdwy81129 · 发表于 2011-1-3 22:20

Dj_soo 单步执行,多猜猜就看懂了. 发表于昨天 20:09

哈哈哈，那我就自己试验了，不太认为可以自己整好。

w327555162 · 发表于 2011-1-9 22:17

高手啊,我啥时候能写出这样的

BAIXINGR · 发表于 2011-9-16 08:00

我只是来留个记号

hhzjxss · 发表于 2011-10-19 15:04

测试了一下，发现第一个模块的第一行不为空时，就被覆盖了！

老糊涂 · 发表于 2011-10-31 19:11

学习一下

zscty · 发表于 2012-1-6 11:21

好好学习，天天充电。

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