求教 下标越界是怎么回事

165323

Sub 制作工作表()
    '
    '制作工作表 宏
    '
    Dim r
    For r = 1 To 230
    '
    Application.CutCopyMode = False
    Selection.Cut
    ActiveWindow.SmallScroll Down:=6
    Sheets.Add After:=ActiveSheet
    Sheets("Sheet7").Select
    ActiveCell.Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=0
    ActiveCell.Offset(4, 1).Range("A1").Select
    Selection.Copy
    Sheets("Sheet7").Select
    Sheets("Sheet7").Name = "陈玉斋"


    ActiveCell.Offset(6, 1).Range("A1").Select
    Sheets("Sheet1").Select
    ActiveWindow.SmallScroll Down:=15
    ActiveCell.Offset(18, 0).Range("A1:U18").Select

    Next


End Sub

xl123456789

没有你引用的sheet 表格