[已解决]今天被excel给鄙视了

cjainwei · 发表于 2010-4-2 17:02

Sub t()
For j = 1 To Sheets.Count
     With Sheets(i)
        .Range("A1") = .Name
     End With
Next
End Sub
运行这段代码就报错。[em14]

最佳答案

月排行榜 / 总排行榜

ffffllll

2010-4-2 17:06

确实该鄙视，上面是J，下面是I

跳转到最佳答案楼层

ffffllll · 发表于 2010-4-2 17:06

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

单击隐藏图章

确实该鄙视，上面是J，下面是I

cjainwei · 发表于 2010-4-2 17:07

写错了，很鄙视一下自己[em04]

lotte · 发表于 2010-4-2 17:08

2楼好眼力[em17]

蝶·舞 · 发表于 2010-4-2 17:08

楼主很幽默

[em01]

ffffllll · 发表于 2010-4-2 17:12

不晓得有最佳没有

cjainwei · 发表于 2010-4-2 17:13

QUOTE:

以下是引用ffffllll在2010-4-2 17:12:00的发言：
不晓得有最佳没有

有最佳眼力奖

[em07]

ffffllll · 发表于 2010-4-2 17:15

报错的时候就要查看各变量的值，这是规矩啊。。。

QQ9947 · 发表于 2010-4-2 17:16

QUOTE:

以下是引用cjainwei在2010-4-2 17:02:00的发言：
Sub t()
For j = 1 To Sheets.Count
     With Sheets(i)
        .Range("A1") = .Name
     End With
Next
End Sub
运行这段代码就报错。[em14]

猪猪，早应该发现是你了，今天总算被我逮到马甲……

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