求助万能的部落，Excel达人进

zhangzj · 发表于 2012-4-22 11:37

Dim k As Long
For k = 1 To 52
Cells.Select
Range("B1").Activate
Selection.Copy
Sheets.Add
Cells.Select
ActiveSheet.Paste
Next

在excel里的vb编辑器里运行这段提示
编译错误
无效外部过程

FX王者风范 · 发表于 2012-4-22 14:09

不懂啊

Fiona · 发表于 2012-4-22 14:12

代码编辑错误

飞仔客博客 · 发表于 2012-4-22 14:14

其实部落不是万能的。。

论坛游侠 · 发表于 2012-4-22 19:06

其实度娘会帮你的你问她吧

囧囧有神 · 发表于 2012-4-22 19:17

只会vlookup

zhangzj · 发表于 2012-4-23 07:47

论坛游侠发表于 2012-4-22 19:06
其实度娘会帮你的你问她吧

度娘不给力就会卖假药

hanlanyan · 发表于 2012-4-23 09:03

我测试了你的代码

没有问题啊

插入了52个SHEET

hanlanyan · 发表于 2012-4-23 09:11

你是写在模块里的还是写在哪里的?

我测试了好多次,都没问题啊

你不就是想复制到52SHEET里面吗?

zhangzj · 发表于 2012-4-23 10:56

hanlanyan 发表于 2012-4-23 09:11
你是写在模块里的还是写在哪里的?

我测试了好多次,都没问题啊

这个我搞懂了，帮我看看
Dim i As Long
For i = 1 To 53
Sheets(“sheet”&i + 1).[I4:I22] =“=sheet”&i&“!rc[3]”
错哪儿了

hanlanyan · 发表于 2012-4-23 12:09

Sheets(“sheet”&i + 1).[I4:I22],这个明显不对啊
应该要加个RANGE的吧

hanlanyan · 发表于 2012-4-23 12:13

你可以先记录宏,然后在此基础上修改

[我的原创] 求助万能的部落，Excel达人进

浏览过的版块