선택한 행을 삭제할 때 런타임 오류 1004가 발생했습니다.

Question

지정된 워크 시트 (범위 찾기 등)에서 세 줄을 효과적으로 삭제하는 코드가 있습니다. 이 코드는 적어도 1 년 동안 아무런 문제없이 사용했습니다. 그러나 나는 최근에이 코드를 새로운 작업 북으로 옮기고 이전 통합 문서와 정확히 같은 워크 시트를 설정했습니다.

오류 메시지

런타임 오류 '1004'

범위 클래스의

삭제 방법이 오류가 발생하는 이유 누군가가 제안 할 수

실패 와 함께 아래에 강조 코드 오류가?

Sub DeleteRowPIC() 

Application.ScreenUpdating = False 
Application.Calculation = xlManual 
ActiveSheet.Unprotect Password:="Projects123" 
ActiveSheet.Range("Total").Select 
If Selection.Row = 12 Then 
Else 
ActiveSheet.Range("Total").Select 
Selection.Offset(-2, 0).Select 
ActiveCell.EntireRow.Delete 

ActiveSheet.Range("Total_1").Select 
Selection.Offset(-2, 0).Select 
ActiveCell.EntireRow.Delete **ERROR OCCURS HERE** 

ActiveSheet.Range("Total_2").Select 
Selection.Offset(-2, 0).Select 
ActiveCell.EntireRow.Delete 

End If 
Range("K2").Select 
Application.Calculation = xlAutomatic 
With ActiveSheet 

     .Protect Password:="Projects123", UserInterfaceOnly:=True 
     .EnableOutlining = True 
End With 

Answer 1

주석에서 언급했듯이 행을 삭제할 때 항상 마지막 행에서 시작하여 첫 번째 행으로 이동해야합니다. 나는 당신의 문제가 이것으로 인한 것 같아요. 귀하의 데이터를 보지 않고 Total_2에서 Total으로 다시 돌아가시기 바랍니다. 또한 가능한 경우 Select을 사용하지 않는 것이 좋습니다. 이 당신의 코드를 수정 해보십시오 :

Sub DeleteRowPIC() 

Dim ws As Worksheet 

Application.ScreenUpdating = False 
Application.Calculation = xlManual 

Set ws = ActiveSheet 
With ws 
    .Unprotect Password:="Projects123" 
    If .Range("Total").Row <> 12 Then 
     .Range("Total_2").Offset(-2, 0).EntireRow.Delete 
     .Range("Total_1").Offset(-2, 0).EntireRow.Delete 
     .Range("Total").Offset(-2, 0).EntireRow.Delete 
    End If 
    Application.Calculation = xlAutomatic 
    .Protect Password:="Projects123", UserInterfaceOnly:=True 
    .EnableOutlining = True 
End With 

당신이뿐만 아니라 어느 시점에서 다시 true로 Application.ScreenUpdating을 설정해야합니다.