[已解决]代码测试

642070295

麻烦老师帮测试一下代码，并给予纠正，谢谢！（代码按钮在附件sheet1里） 工作簿.rar (27.08 KB, 下载次数: 5)

2013-11-18 14:06 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-11-18 15:27

1. Sheets("Slj").Activate
   
2.     Sheets("Slj").Range("A2:B4").Select
   
3.     Selection.AutoFill Destination:=Sheets("Slj").Range("A2:L4"), Type:=xlFillDefault
   
4. End Sub
   

复制代码

跳转到最佳答案楼层

我心飞翔410

附件错了么 没看到代码啊

642070295

我心飞翔410 发表于 2013-11-18 14:24
附件错了么 没看到代码啊

不好意思，原附件上传错了。现在重新上传新附件，麻烦老师帮测试纠正一下代码，谢谢老师！ 新附件.rar (34.22 KB, 下载次数: 1)

2013-11-18 14:41 上传

点击文件名下载附件

yyyydddd8888

1. Sheets("Slj").Activate
   
2.     Sheets("Slj").Range("A2:B4").Select
   
3.     Selection.AutoFill Destination:=Sheets("Slj").Range("A2:L4"), Type:=xlFillDefault
   
4. End Sub
   

复制代码

642070295

yyyydddd8888 发表于 2013-11-18 15:27

非常感谢！问题终于解决了！