Excel vb开发中弹出下标越界是什么原因？标红是调试错误的地方

蔡翠霞

Sub 宏1()
'
' 宏1 宏
'
'
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 2
    ActiveSheet.Range("$A$3:$AA$886").AutoFilter Field:=5, Criteria1:="蔡化宁"
    Range("B3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Rows("1:8").Select
    Application.CutCopyMode = False
    ActiveSheet.ListObjects.Add(xlSrcRange, Range("$1:$8"), , xlYes).Name = "表1"
    Rows("1:8").Select
    Selection.RowHeight = 14
    Rows("1:8").Select
    Selection.RowHeight = 13
    Range("表1[商品]").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlTop
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlLTR
        .MergeCells = False
    End With
    Range("G13").Select
    ChDir "D:\桌面"
    ActiveWorkbook.SaveAs Filename:="D:\桌面\蔡化宁.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    Range("G20").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("").Activate
    Range("J17").Select
    ActiveWorkbook.SaveAs Filename:="D:\桌面\蔡化宁.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    Range("L22").Select
    ActiveWorkbook.Save
    Range("K12").Select
    ActiveWorkbook.Save
    Windows("2014-04-08VIP客户交易情况.xlsx").Activate
    Range("R887").Select
End Sub



该贴已经同步到 蔡翠霞的微博