특정 열의 빈 셀에 특정 셀 범위를 지우는 매크로 지우기

Question

어제 similar question에 특정 열 목록 내의 셀 범위를 채우도록 요청했습니다. 내 코드의 측면은 완벽하게 작동하지만 삽입 된 행을 삭제하는 명확한 매크로를 만들려고합니다.

새로 삽입 된 모든 행은 열 N에 빈 셀을 포함하므로 열 N의 모든 셀을 검색하고 공백을 찾은 다음 N 및 Y 열 사이의 행을 삭제하려고합니다. 이것은 내가 가진 것입니다. 지금까지,하지만 그것을 실행할 때 아무것도하지 않습니다?

도움을 주시면 대단히 감사하겠습니다.

Sub Clear_PCOTCS() 
    Dim myLastRow As Long 
    Dim myRow As Long 

    Application.ScreenUpdating = False 
    myLastRow = Cells(Rows.Count, "N").End(xlUp).Row 
    For myRow = myLastRow To 1 Step -1 
     If Len(Cells(myRow, "N")) = 1 And Cells(myRow, "N") = "" Then 
      Range(Cells(myRow + 1, "N"), Cells(myRow + 1, "Y")).Delete Shift:=xlDown 'CopyOrigin:=xlFormatFromLeftOrAbove 
     End If 
    Next myRow 
    Application.ScreenUpdating = True 
End Sub 

Answer 1

잘못된 enum을 (를) Range.Delete (으)로 전달하여 오류가 발생했습니다. XlDeleteShiftDirection 값을 예상하고이를 XlDirection으로 전달합니다. xlShiftUp과 xlUp은 같은 값을 공유하지만 xlDown (-4121)은 유효하지 않은 XlDeleteShiftDirection입니다.

"N"열의 셀이 비어있을 때 모든 행 (열 "N"과 "Y"사이)을 삭제하면됩니다. 먼저, 삭제하려는 항목의 Range 모양을 기준으로 기본값이 xlShiftUp이어야하며 매개 변수를 생략하면됩니다. 둘째, 당신은 당신이 여기에 적용하고있는 오프셋을 제거해야합니다

Range(Cells(myRow + 1, "N"), Cells(myRow + 1, "Y")).Delete 

당신이 아래가 아닌 하나를 테스트하는 행을 삭제합니다. 다음과 같은 것을 찾아야합니다.

Sub Clear_PCOTCS() 
    Dim myLastRow As Long 
    Dim myRow As Long 

    Application.ScreenUpdating = False 
    myLastRow = Cells(Rows.Count, 14).End(xlUp).Row 
    For myRow = myLastRow To 1 Step -1 
     If Cells(myRow, 14).Value = vbNullString Then 
      Range(Cells(myRow, 14), Cells(myRow, 25)).Delete 
     End If 
    Next myRow 
    Application.ScreenUpdating = True 
End Sub