특정 셀 삭제 Excel

Question

내가하려고하는 것은 프로그램을 통해 셀의 열에서 특정 값을 찾고 값을 붙여 넣은 후 하나의 셀과 일치하는지 확인하는 것입니다. match는 관련 셀과 셀 행을 삭제합니다. 어떤 일이 일어나고있는 것은 프로그램의 특수 붙여 넣기 부분이 작동하지만 관련 셀이 삭제되지 않는다는 것입니다. 나는 당신이 행을 삭제할 것 같다 일치

Dim j As Integer 
Dim i As Integer 
i = 2 
Dim Aud_Tot As Integer 
Aud_Tot = Application.InputBox("How big is your audit", , , , , , , 1) 
Do While True 
    If Cells(i, 1).Value <> "" And Not IsError(Cells(i, 2).Value) Then 
     Range(Cells(i, 1), Cells(i, 22)).Copy 
     Range(Cells(i, 1), Cells(i, 22)).PasteSpecial xlPasteValues 
     For j = 2 To Aud_Tot 
      If Cells(j, 24).Value = Cells(i, 2).Value Then 
       Range(Cells(j, 24), (Cells(j, 42))).ClearContents 
      End If 
     Next j 
     i = i + 1 
    Else 
     Exit Do 
    End If 
Loop 

Answer 1

에게있어 여부에 따라 특정 열에서 전체 행을 삭제하기 위해 노력하고있어하지만 당신은 ClearContents를 사용하고, 명확합니다. 삭제하려면 해당 행을 Range(Cells(j, 24), (Cells(j, 42))).Delete Shift:=xlShiftUp으로 변경하고 xlShiftToLeft을 사용할 수도 있습니다.

행 전체 또는 행을 삭제 하시겠습니까?