类range的select方法无效（插入行）

elisa0109

类range的select方法无效
在EXCEL我设了一个控件，希望完成的任务是：根据提”zz”(”zz”:表示行数，每个SHEET的行数不一致)，自动从每个SHEET的A8开始插入zz行。
问题每当运行到Application.Goto Sheets(z).Range("A8").Select，就提示“类range的select方法无效”。
请各位大侠帮忙，如何解决。


Dim sheet As Excel.Worksheet

Dim z As Long  '指明哪个sheet
Dim y As Long   'sheet个数
y = Sheets.Count

Dim zz As Long
Dim xx As Long   

For z = 3 To y                 '从sheet3开始到最后一个SHEET
Set sheet = Worksheets(z)
With Sheets(z)

  zz = Sheets(z).Cells(4, 6) - 1    '获取要插入的行数
  xx = zz - 1 + 9                '在插入相应行数后，表示当前行号
  Application.Goto Sheets(z).Range("A8").Select     '选中A8行
  Selection.AutoFill Destination:=Sheets(z).Range("A8:A" & Str(xx) & ""), Type:=xlFillDefault
   
End With
   

Next
  
End Sub

elisa0109

1楼有误
正确的如下

类range的select方法无效
在EXCEL我设了一个控件，希望完成的任务是：根据提”zz”(”zz”:表示行数，每个SHEET的行数不一致)，自动从每个SHEET的A8开始插入zz行。
问题每当运行到Selection.AutoFill Destination:=Sheets(z).Range("A8:A" & Str(xx) & ""), Type:=xlFillDefault，就提示“类range的select方法无效”。
请各位大侠帮忙，如何解决。


Dim sheet As Excel.Worksheet

Dim z As Long  '指明哪个sheet
Dim y As Long   'sheet个数
y = Sheets.Count

Dim zz As Long
Dim xx As Long   

For z = 3 To y                 '从sheet3开始到最后一个SHEET
Set sheet = Worksheets(z)
With Sheets(z)

  zz = Sheets(z).Cells(4, 6) - 1    '获取要插入的行数
  xx = zz - 1 + 9                '在插入相应行数后，表示当前行号
   
  Application.Goto Sheets(z).Range("A8").Select     '选中A8行
  Selection.AutoFill Destination:=Sheets(z).Range("A8:A" & Str(xx) & ""), Type:=xlFillDefault
   
End With
   

Next

elisa0109

不好意思，请忽略如上2楼。
正确描述如下
类range的select方法无效
在EXCEL我设了一个控件，希望完成的任务是：根据提”zz”(”zz”:表示行数，每个SHEET的行数不一致)，自动从每个SHEET的A8开始插入zz行后，从每个SHEET的第8行开始填充（第八行有公式的）
问题每当填充，运行到Selection.AutoFill Destination:=Sheets(z).Range("A8:A" & xx & ""), Type:=xlFillDefault，就提示“类range的select方法无效”。
请各位大侠帮忙，如何解决。


Dim sheet As Excel.Worksheet

Dim z As Long  '指明哪个sheet
Dim y As Long   'sheet个数
y = Sheets.Count

Dim zz As Long
Dim xx As Long   

For z = 3 To y                 '从sheet3开始到最后一个SHEET
Set sheet = Worksheets(z)
With Sheets(z)

  zz = Sheets(z).Cells(4, 6) - 1    '获取要插入的行数
  xx = zz - 1 + 9                '在插入相应行数后，表示当前行号
   
  Application.Goto Sheets(z).Range("A8").Select     '选中A8行
  Selection.AutoFill Destination:=Sheets(z).Range("A8:A" & Str(xx) & ""), Type:=xlFillDefault
   
End With
   

Next
  
End Sub

elisa0109

晕死，现在问题卡在 这里 Application.Goto Sheets(z).Range("A8").Select

elisa0109

提示 不能取得类RANGE的SELECT属性