Excel VBA - 對象'工作表'的方法'範圍'失敗

我有3個子工作表在工作簿中激活某個工作表時運行。但是，它失敗，我收到以下錯誤：Excel VBA - 對象'工作表'的方法'範圍'失敗

Run-time error '-2147417848 (80010108)': Method 'Range' of object'_Worksheet' failed

代碼的錯誤是：

Sub MoveData() 
    Dim r As Long, lr2 As Long, lr As Long 
    lr2 = Worksheets("Status").UsedRange.Rows.Count 
    lr3 = Worksheets("Completed").UsedRange.Rows.Count 
     If lr3 = 1 Then lr3 = 0 
     For r = lr2 To 2 Step -1 
      If Worksheets("Status").Range("A" & r).Value <> "" And Worksheets("Status").Range("X" & r).Value = "Y" And Worksheets("Completed").Range("A2").Value = "" Then 
       Worksheets("Status").Cells(r, 1).Copy Destination:=Worksheets("Completed").Range("A" & lr3) 
       Worksheets("Status").Cells(r, 2).Copy Destination:=Worksheets("Completed").Range("B" & lr3) 
       Worksheets("Status").Cells(r, 3).Copy Destination:=Worksheets("Completed").Range("C" & lr3) 
       Worksheets("Status").Cells(r, 4).Copy Destination:=Worksheets("Completed").Range("D" & lr3) 
       Worksheets("Status").Cells(r, 5).Copy Destination:=Worksheets("Completed").Range("E" & lr3) 
       Worksheets("Status").Cells(r, 6).Copy Destination:=Worksheets("Completed").Range("F" & lr3) 
       Worksheets("Status").Cells(r, 7).Copy Destination:=Worksheets("Completed").Range("G" & lr3) 
       Worksheets("Status").Cells(r, 8).Copy Destination:=Worksheets("Completed").Range("H" & lr3) 
       Worksheets("Status").Cells(r, 9).Copy Destination:=Worksheets("Completed").Range("I" & lr3) 
       Worksheets("Status").Cells(r, 10).Copy Destination:=Worksheets("Completed").Range("J" & lr3) 
       Worksheets("Status").Cells(r, 11).Copy Destination:=Worksheets("Completed").Range("K" & lr3) 
       Worksheets("Status").Cells(r, 12).Copy Destination:=Worksheets("Completed").Range("L" & lr3) 
       Worksheets("Status").Cells(r, 13).Copy Destination:=Worksheets("Completed").Range("M" & lr3) 
       Worksheets("Status").Cells(r, 14).Copy Destination:=Worksheets("Completed").Range("N" & lr3) 
       Worksheets("Status").Cells(r, 15).Copy Destination:=Worksheets("Completed").Range("O" & lr3) 
       Worksheets("Status").Cells(r, 16).Copy Destination:=Worksheets("Completed").Range("P" & lr3) 
       Worksheets("Status").Cells(r, 17).Copy Destination:=Worksheets("Completed").Range("Q" & lr3) 
       Worksheets("Status").Cells(r, 18).Copy Destination:=Worksheets("Completed").Range("R" & lr3) 
       Worksheets("Status").Rows(r).Delete Shift:=xlUp 
       Else: 
      End If 
     Next r 
     For r = lr2 To 2 Step -1 
      If Worksheets("Status").Range("A" & r).Value <> "" And Worksheets("Status").Range("T" & r).Value = "Y" And Worksheets("Completed").Range("A2").Value <> "" Then 
       Worksheets("Status").Cells(r, 1).Copy Destination:=Worksheets("Completed").Range("A" & lr3 + 1) 
       Worksheets("Status").Cells(r, 2).Copy Destination:=Worksheets("Completed").Range("B" & lr3 + 1) 
       Worksheets("Status").Cells(r, 3).Copy Destination:=Worksheets("Completed").Range("C" & lr3 + 1) 
       Worksheets("Status").Cells(r, 4).Copy Destination:=Worksheets("Completed").Range("D" & lr3 + 1) 
       Worksheets("Status").Cells(r, 5).Copy Destination:=Worksheets("Completed").Range("E" & lr3 + 1) 
       Worksheets("Status").Cells(r, 6).Copy Destination:=Worksheets("Completed").Range("F" & lr3 + 1) 
       Worksheets("Status").Cells(r, 7).Copy Destination:=Worksheets("Completed").Range("G" & lr3 + 1) 
       Worksheets("Status").Cells(r, 8).Copy Destination:=Worksheets("Completed").Range("H" & lr3 + 1) 
       Worksheets("Status").Cells(r, 9).Copy Destination:=Worksheets("Completed").Range("I" & lr3 + 1) 
       Worksheets("Status").Cells(r, 10).Copy Destination:=Worksheets("Completed").Range("J" & lr3 + 1) 
       Worksheets("Status").Cells(r, 11).Copy Destination:=Worksheets("Completed").Range("K" & lr3 + 1) 
       Worksheets("Status").Cells(r, 12).Copy Destination:=Worksheets("Completed").Range("L" & lr3 + 1) 
       Worksheets("Status").Cells(r, 13).Copy Destination:=Worksheets("Completed").Range("M" & lr3 + 1) 
       Worksheets("Status").Cells(r, 14).Copy Destination:=Worksheets("Completed").Range("N" & lr3 + 1) 
       Worksheets("Status").Cells(r, 15).Copy Destination:=Worksheets("Completed").Range("O" & lr3 + 1) 
       Worksheets("Status").Cells(r, 16).Copy Destination:=Worksheets("Completed").Range("P" & lr3 + 1) 
       Worksheets("Status").Cells(r, 17).Copy Destination:=Worksheets("Completed").Range("Q" & lr3 + 1) 
       Worksheets("Status").Cells(r, 18).Copy Destination:=Worksheets("Completed").Range("R" & lr3 + 1) 
       Worksheets("Status").Rows(r).Delete Shift:=xlUp 
       lr3 = lr3 + 1 
      Else: 
      End If 
     Next r 
End Sub

從調試的亮的行是：

If Worksheets("Status").Range("A" & r).Value <> "" And Worksheets("Status").Range("X" & r).Value = "Y" And Worksheets("Completed").Range("A2").Value = "" Then

你能提供錯誤發生原因的解釋，以及我能做些什麼來解決它？

來源

2017-02-23 Sol_Kralj

*整個*代碼可能不會出錯，只是一個或兩個特定的行，那麼錯誤時突出顯示的行是哪一行？ –

'如果lr3 = 1那麼lr3 = 0' lr3不能爲零 - 不解析爲任何有效的行。你也永遠不會增加lr3？ –

@cyboashu感謝您的鏈接。我會看看。 –

我通過去除範圍從如果固定的錯誤：

老VBA

If Worksheets("Status").Range("A" & r).Value <> "" And Worksheets("Status").Range("X" & r).Value = "Y" And Worksheets("Completed").Range("A2").Value = "" Then

新的VBA

If Worksheets("Status").Cells(r, 1).Value <> "" And Worksheets("Status").Cells(r, 24).Value = "Y" And Worksheets("Completed").Cells(2, 1).Value = "" Then

來源

2017-02-23 21:20:46

我很難看出爲什麼這兩條線在功能上不相同... –

我很努力地找到一個鏈接，但是我所理解的是該範圍不工作，因爲工作表不活躍？ –

有多少行，在工作表中（「狀態」）

從這個錯誤我會想象它要麼是0或1。必須是2或以上，你的循環

For r = lr2 To 2 Step -1

來源

2017-02-23 21:00:01

我正在測試的工作表中有4行。一旦完全填充，在任何特定時刻，它可能永遠不會少於100個。 –

'UsedRange.Rows.Count'將不會返回0，但即使它做到了（或者它返回1），也不會輸入「For r = lr2 To 2 Step -1」循環，因此代碼永遠不會到達發生錯誤的線路。 – YowE3K

好點YowE3K，我錯過了。 –

Excel VBA - 對象'工作表'的方法'範圍'失敗

回答

相關問題