请大家帮我看一下这个宏，经常提示内存溢出

刘洪裕

' 宏  Auto_Open
'
' 快捷键: Ctrl+Shift+J
'
    Sheets("记录表").Select
    ActiveWindow.SmallScroll Down:=-12
    Columns("B:H").Select
    Selection.Copy
    Columns("J:P").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Columns("B:P").Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("B3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("H3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("J3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("K3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("L3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("N3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("O3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("P3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("B3:P3").Select
    Selection.AutoFill Destination:=Range("B3:P157"), Type:=xlFillDefault
    Range("B3:P157").Select
    ActiveWindow.SmallScroll Down:=-165
    Columns("B:P").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("J:P").Select
    With Application.FindFormat.Font
        .FontStyle = "常规"
        .Size = 10
        .Subscript = False
        .TintAndShade = 0
    End With
    With Application.ReplaceFormat.Font
        .FontStyle = "加粗"
        .Size = 9
        .Subscript = False
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.Replace What:="A", Replacement:="ABCDGK①", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="B", Replacement:="ABCDGK①", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="C", Replacement:="ABCDGK①", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="D", Replacement:="ABCDGK①", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="G", Replacement:="ABCDGK①", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="K", Replacement:="ABCDGK①", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    With Application.ReplaceFormat.Font
        .FontStyle = "加粗"
        .Size = 9
        .Subscript = False
        .ThemeColor = 10
        .TintAndShade = -0.499984741
    End With
    Selection.Replace What:="E", Replacement:="EFHIJL②", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="F", Replacement:="EFHIJL②", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="H", Replacement:="EFHIJL②", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="I", Replacement:="EFHIJL②", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="J", Replacement:="EFHIJL②", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Selection.Replace What:="L", Replacement:="EFHIJL②", LookAt:=xlWhole, _
        SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=True, _
        ReplaceFormat:=True
    Range("I3").Select
    Sheets(Array("特码A1", "特码A2", "特码A3", "特码A4", "特码A5", "特码A6")).Select
    Sheets("特码A1").Activate
    ActiveWindow.SmallScroll Down:=-24
    Range("D2").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("D2:D158"), Type:=xlFillDefault
    Range("D2:D158").Select
    ActiveWindow.SmallScroll Down:=-159
    Range("D3:D158").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=-162
    Range("G3").Select
    Sheets("记录表").Select
    ActiveWindow.SmallScroll Down:=-15
    Range("B3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("H3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("J3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("K3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("L3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("M3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("N3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("O3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("P3").Select
    ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""[PERSONAL.XLSB]开码大小记录!R""&ROW(RC[34])&""C""&COLUMN(RC[34]),)"
    Range("B3:P3").Select
    Selection.AutoFill Destination:=Range("B3:P157"), Type:=xlFillDefault
    Range("B3:P157").Select
    ActiveWindow.SmallScroll Down:=-189
    Range("I3").Select
    With Application.FindFormat.Font
        .FontStyle = "加粗"
        .Size = 9
        .Subscript = False
        .TintAndShade = 0
    End With
End Sub