只有成功运行后才能运行时错误 – Excel VBA
我有一个Excel VBAmacros，运行成功的前两次我运行它，但第三次，它给这个错误：
运行时错误“1004”
sorting参考无效。 确保它位于要sorting的数据中，并且第一个“sorting方式”框不相同或空白。
如果我重新启动Excel它的工作前两次，然后再次提供错误。 为什么会这样呢？ 这是我的代码：
Dim rawData As Object Dim report As Object Dim areaCodes As Object Set rawData = Sheets("RawData") Set report = Sheets("Report") Set areaCodes = Sheets("AreaCodes") report.Cells.Clear report.Cells.ClearFormats stateCol = rawData.Cells(1, 1).EntireRow.Find(What:="state", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False).Column Dim MyRange As Range Set MyRange = rawData.Cells(1, stateCol) With rawData lastRow = .Cells(Rows.Count, MyRange.Column).End(xlUp).Row .Range(.Cells(2, stateCol), .Cells(lastRow, stateCol)).Copy End With With report .Range("A3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False .Range(.Cells(3, 1), .Cells(lastRow + 1, 1)).RemoveDuplicates Columns:=1, Header:=xlNo End With lastRow = report.Cells(Rows.Count, Range("A1").Column).End(xlUp).Row report.Range("B3").Select ActiveCell.FormulaR1C1 = "=COUNTIF(rawData!C[" & stateCol - 2 & "],report!RC[-1])" Range("B3").AutoFill Destination:=Range("B3:B" & lastRow) Range("B" & lastRow + 1).Select ActiveCell.FormulaR1C1 = "=SUM(R[-" & lastRow - 2 & "]C:R[-1]C)" Range("C3").Select ActiveCell.FormulaR1C1 = "=RC[-1]/R" & lastRow + 1 & "C[-1]" Range("C3").AutoFill Destination:=Range("C3:C" & lastRow) Range("C" & lastRow + 1).Select ActiveCell.FormulaR1C1 = "=SUM(R[-" & lastRow - 2 & "]C:R[-1]C)" Range("C:C").NumberFormat = "0.0%" Range("A2:A" & lastRow + 1).Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove report.Range("A2").Value = "State" report.Range("A2").Font.Bold = True report.Range("A:A").HorizontalAlignment = xlCenter report.Range("A3").FormulaR1C1 = "=INDEX(areaCodes!R2C5:R52C5,MATCH(report!RC[1],AreaCodes!R2C6:R52C6,0))" Range("A3").Select ActiveCell.AutoFill Destination:=Range("A3:A" & lastRow) With report newLastRow = .Cells(Rows.Count, Range("C1").Column).End(xlUp).Row - 1 .Range(.Cells(3, 3), .Cells(newLastRow, 3)).Copy .Range("C3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End With With report .Sort.SortFields.Add Key:=Range("C2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal newLastRow = .Cells(Rows.Count, Range("C1").Column).End(xlUp).Row - 1 With .Sort .SetRange Range("A2:D" & newLastRow) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With 您应该在sorting指令中限定范围，如果工作表报告未激活，则会产生错误
With report .Sort.SortFields.Add Key:=.Range("C2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal newLastRow = .Cells(Rows.Count, .Range("C1").Column).End(xlUp).Row - 1 With .Sort .SetRange report.Range("A2:D" & newLastRow) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End With