Question

我有一个excel程序，其中一些代码在几个月内一直没有运行。今天它开始崩溃，我不明白为什么。它可能与代码无关，但我将它粘贴到它看起来崩溃的地方。当我一步一步地走过它时，它运行良好。感谢。

Sub Merge()

    Sheets("Working").Select
Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).Row
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A2").FormulaR1C1 = "=TEXT(RC[1],""mmm"")"

Range("A2").AutoFill Destination:=Range("A2:A" & lastRow)
Columns("A:A").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Columns("B:B").Delete Shift:=xlToLeft
Range("G1").Consolidate Sources:= _
    "'Working'!R1C1:R[" & lastRow & "]C2" _
    , Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False


Sheets("Landing").Select
Range("E10:F21").ClearContents

Range("E10").FormulaR1C1 = "=VLOOKUP(RC[-2],Working!C[2]:C[3],2,FALSE)"
Range("F10").FormulaR1C1 = "=RC[-1]/RC[-2]"
Range("E10:F10").AutoFill Destination:=Range("E10:F21"), Type:=xlFillDefault


        On Error Resume Next
        Cells.SpecialCells(xlCellTypeFormulas, xlErrors).ClearContents ' Delete #N/A
        On Error GoTo 0
End Sub

Excel Crash：不确定原因

0 个答案: