Question

录制宏之后，无法运行，类Range的AutoFill方法无效，求大神解决

Sub clear1()
'
' clear1 Macro
'

'
Selection.AutoFill Destination:=Range("B53:B89"), Type:=xlFillDefault
Range("B53:B89").Select
ActiveWindow.SmallScroll Down:=-33
Range("E58").Select
End Sub

Answer 1

以下语句需要更改，其他语句其实可以删除，无实际意义。

Selection.AutoFill Destination:=Range("B53:B89"), Type:=xlFillDefault
将Selection改为你已经填写的单元格范围，以该句为例，Selection应该改为Range("B53:B54")