Excel 类range的select方法无效

我是想实现，将sheet1内的range（A1：An)行的内容选择性复制到sheet2内。
于是我按这个想法录制了宏，参考录制的宏代码，编写了以下的代码。
但是发现一个问题，以下这个代码第一次运行可以通过，但在不关闭这个ecxel文档，重复运行第二遍的时候，运行至Sheets(1).Range('A1').Select就会有“类range的select方法无效”


编写的代码如下：
Sub test()
    Dim n As Integer                 
   
    n = Sheets(1).UsedRange.Rows.Count          'n统计sheet1中的行数
    Sheets(1).Range('A1').Select                         '选中sheet1的A1格子
    Selection.AutoFill Destination:=Sheets(1).Range('A1:A' & n & ''), Type:=xlFillDefault    '自动填充A1：An
  Sheets(1).Range('A1:A' & n & '').Select        '选中sheet1的A1：An
    Application.CutCopyMode = False                     
  Selection.Copy                                               ' 复制选中的sheet1的A1：An                     
    Sheets(2).Select                                            '选中sheet2                                
    Sheets(2).Range('A1').Select                        '选中sheet2内的A1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
                                                                                                          '选择性粘贴
End Sub

            请问大家问题在哪儿？真是愁死我了！谢谢

分享到新浪微博