Sub go()

Dim i As Integer

    For i = 1 To 500

        If Cells(i, 2) = "" Or Cells(i, 2) = "거래일자" Then

            Rows(i).Select

            Cells(i, 1).Select

            Selection.EntireRow.Delete

        End If

    Next i

End Sub

대학 오기 전에는 VB6이 주력언어..라기보단 유일하게 할 줄 아는 언어였는데 이젠 다 까먹어간다..ㅠㅠ
은행 거래기록을 xls로 다운로드했는데 자꾸 헤더가 반복되어서 보기 힘들길래 오랜만에 VB코딩.

신고