엑셀 vba 남학생만 모두 삭제, 행 전체

엑사남 18강 study

엑셀 파일 다운로드

남학생만 삭제.xlsm

0.05MB

 

 

Sub Test_01()
 
Dim lngE    As Long
Dim rngD    As Range
Dim i       As Long
 
lngE = Cells(Rows.Count, "b").End(xlUp).Row
 
    For i = 3 To lngE
        If Range("e" & i) = "남" Then
            If rngD Is Nothing Then
                Set rngD = Range("e" & i)
                rngD.Select
            Else
                Set rngD = Union(rngD, Range("e" & i))
                rngD.Select
            End If
        End If
    Next
    
    If rngD Is Nothing Then
        MsgBox "삭제할 범위가 없습니다."
    Else
        rngD.EntireRow.Delete
    End If
    
End Sub