为什么同样的代码，中间那一段就会报错

hahaja

Sub 自动填充()
Dim lastrow As Integer
Dim i As Integer
Dim an As Integer
Dim aa As String

lastrow = Sheets(1).[a10000].End(xlUp).Row
an = Worksheets.Count
aa = ActiveSheet.Name

'For i = 2 To an
'Sheets(1).Range("a:b").Copy
'Sheets(i).Range("a1").PasteSpecial Paste:=xlPasteValues
'aa = Sheets(i).Name
'Sheets(aa).Range("C2:AA2").Select
'Selection.AutoFill Destination:=Range("C2:AA" & lastrow)
'Next i

Sheets(1).Range("a:b").Copy
Sheets(aa).Range("a1").PasteSpecial Paste:=xlPasteValues
Sheets(aa).Range("C2:AA2").Select
Selection.AutoFill Destination:=Range("C2:AA" & lastrow)
End Sub

表很多，为了偷懒，想做一个自动填充的小程序。但是同样的代码，中间那一段的语句“Sheets(aa).Range("C2:AA2").Select”却一直报错
找不出原因在哪里，请老师们帮助解答，谢谢！

ivccav

select方法无法选择非激活工作表的range单元格区域，要使用select方法，必须先激活相应工作表。select效率很低，复制内容根本不需要这么做。

hahaja

原来如此！谢谢！

修改了一下代码：
Sheets(i).Range("C2:AA2").AutoFill Destination:=Range("C2:AA" & lastrow)
也报的是gn "select"同样的“方法无效”错误，估计“AutoFill Destination”属性与"select"相同。

我想问一下有没有方法能够象自动填充一样同时填充很多的行，而不用循环去一行行的粘贴。

ivccav

hahaja 发表于 2019-1-25 12:20
原来如此！谢谢！

修改了一下代码：

hahaja

嗯嗯，谢谢老师！

学写宏只是为了方便工作使用，用到哪里找到哪里，没有系统的学习过。

谢谢老师的提醒，定会多多学习。