[엑셀 매크로] - 중복 행 지우기

문제 : 아이들 목록이 있는데 한 이름 바로 아래에 같은 이름만 있는 셀이 있음. 그 중복된 행을 아예 지우는 매크로 (윗 행과 아래행이 내용이 완전히 같지 않아서 그런지 중복된 것 지우는 기능이 잘 안되었음)

-> 나중에 보니 '중복된 항목 제거'메뉴로도 잘 되네;;; 옵션만 '학생명'체크만 하면;; 뻘짓이었음 ;;

 

Sub Macro1()
'
' Macro1 Macro
'

'
'    Rows("4:4").Select
'    Selection.Delete Shift:=xlUp
   
    For i = 1 To 300 Step 1
        babo = "E" + Trim(Str(i))
        chun = "E" + Trim(Str(i + 1))
        'If Range(babo).Value = "" And Range(chun).Value = "" Then End
        If Range(babo).Value = Range(chun).Value Then
            strA = Trim(Str(i + 1)) + ":" + Trim(Str(i + 1))
            Rows(strA).Select
            Selection.Delete Shift:=xlUp
        End If
    Next i

End Sub

 

미션이 바뀜.

중복된 아이들은 아예 둘 다 지워버리는 것임.

매크로 다시 짬.

 

Sub Macro1()
'
' Macro1 Macro
'

'
'    Rows("4:4").Select
'    Selection.Delete Shift:=xlUp
   
    For i = 1 To 300 Step 1
        babo = "E" + Trim(Str(i))
        chun = "E" + Trim(Str(i + 1))
        If Range(babo).Value = "" And Range(chun).Value = "" Then End
        If Range(babo).Value = Range(chun).Value Then
            strA = Trim(Str(i)) + ":" + Trim(Str(i))
            Rows(strA).Select
            Selection.Delete Shift:=xlUp
            'strA = Trim(Str(i + 1)) + ":" + Trim(Str(i + 1))
            'Rows(strA).Select
            Selection.Delete Shift:=xlUp
            i = i - 1
        End If
    Next i

End Sub