엑사남 강의 18강 Union

엑사남 강의 18강 Union

 

 

Sub union_test01()

'남자인 행을 삭제하기

    Dim rngD As Range
    Dim lngE As Long
    Dim i As Long
    lngE = Range("F10000").End(xlUp).Row
    For i = 7 To lngE
        If Range("G" & i) = "남" Then
            If rngD Is Nothing Then
                Set rngD = Range("G" & i)
            Else
                Set rngD = Union(rngD, Range("G" & i))
            End If
        End If
    Next

    If rngD Is Nothing Then
        MsgBox "삭제할 범위가 없어요."
    Else
        rngD.EntireRow.Delete
    End If
End Sub


Sub union_test02()
'여자인 행을 복사하기
    Dim rngD As Range
    Dim lngE As Long
    Dim i As Long
    
    lngE = Range("F10000").End(xlUp).Row
    '추출된 내용이 있으면 초기화 한다.
    Range("O6").CurrentRegion.Offset(1, 0).Clear
    
    For i = 7 To lngE
        If Range("G" & i) = "여" Then
            If rngD Is Nothing Then
                Set rngD = Range("G" & i).Offset(0, -1).Resize(1, 7)
            Else
                Set rngD = Union(rngD, Range("G" & i).Offset(0, -1).Resize(1, 7))
            End If
        End If
    Next

    If rngD Is Nothing Then
        MsgBox "복사할 범위가 없어요."
    Else
        rngD.Copy Range("O7")
    End If
    
End Sub



Sub union_test03()
'여자이고 평균이 70이상인 것을 추출한다.
    Dim rngD As Range
    Dim lngE As Long
    Dim i As Long
    
    lngE = Range("F10000").End(xlUp).Row
    
    Range("O6").CurrentRegion.Offset(1, 0).Clear
    
    For i = 7 To lngE
        If Range("G" & i) = "여" And Range("G" & i).Offset(0, 5) >= 70 Then
            If rngD Is Nothing Then
                Set rngD = Range("G" & i).Offset(0, -1).Resize(1, 7)
            Else
                Set rngD = Union(rngD, Range("G" & i).Offset(0, -1).Resize(1, 7))
            End If
        End If
    Next

    If rngD Is Nothing Then
        MsgBox "복사할 범위가 없어요."
    Else
        rngD.Copy Range("O7")
    End If
    
End Sub

18. Union.xlsm

0.03MB