조건에 맞도록 삭제하기
For문으로 위에서 부터 삭제할 경우
아래에 있는 행이 위로 올라와서 건너뛰기 된다.
따라서 아래서부터 위로 올라오며 삭제해야 한다.
'남자'인 셀을 지우자
Sub delete()
Dim lngi As Long
For i = 26 To 7 Step -1
If Cells(i, "g") = "남" Then
Cells(i, "g").EntireRow.delete 'rows(i).delete도 가능
'셀.EntireRow: 셀의 전체 행
'셀.EntireColumn: 셀의 전체 열
End If
Next i
End Sub