abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2010.04.13 01:19

아래 코드를 참조해보시고..

자세한건 첨부파일을 참고해보세요..

Sub test()
    Range(Columns("G:G").End(xlDown).Offset(1), Columns("G:g").End(xlDown).Offset(4)).EntireRow.Delete Shift:=xlUp
    Range("A:A,D:D,F:F,J:J,L:L,N:N").Delete Shift:=xlToLeft
    Range("D1").AutoFilter Field:=4, Criteria1:="거래처별 소계"
    Range(Range("D1").Offset(1), Range("D1").Offset(1).End(xlDown)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Selection.AutoFilter
    Range("G2").Select
End Sub