이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
글 수 822
![[레벨:2]](http://abyul.com/zbxe/modules/point/icons/default/2.gif "포인트:752point (87%), 레벨:2/30"){kind=icon}
yang1019제가 만들고자 하는 매크로가요
A,C,E,G열을 삭제하고
맨 아래글씨부터 위로5번째 줄까지 삭제하는 매르로를 만들고 싶은데 가능할까요??
그리고 만약에 "거래처별소계"라는 행을 모두 삭제하고자 한다면 그것또한 가능한가요????ㅠ_ㅠ;;
매크로 완전 초보라서요....가르침 부탁드려요!
댓글 '3'
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141971point, 레벨:30/30"){kind=icon}
아별
아래 코드를 참조해보시고..
자세한건 첨부파일을 참고해보세요..
| 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 |
안녕하세요?
질문을 올리실때 엑셀 파일을 첨부해주셔야 제가 답변 작성하기 편합니다. 부탁.. ^^
1. A,C,E,G열을 삭제하고
Range("A:A,C:C,E:E,G:G").Delete Shift:=xlToLeft
2. 맨 아래글씨부터 위로5번째 줄까지 삭제
Range(Columns("A:A").End(xlDown), Columns("A:A").End(xlDown).Offset(-5)).EntireRow.Delete Shift:=xlUp
3. "거래처별소계"라는 행을 모두 삭제
대충 3가지 방법이 있을 것 같습니다.
1) 자동필터를 이용해서 해당 값을 필터링한뒤 필터링된 아이들만 삭제하는 방법과,
2) .Find 기능을 사용해서 하나씩 찾아서 삭제하는 방법과,
3) 셀 영역을 순환하면서 해당 하는 값이면 해당 행을 전체(.EntireRow) 삭제하는 방법..
위 3가지 방식에 대해서 각각 코드를 작성해드리는 것은 비효율적일 것 같구요..
첨부파일을 올려주시면, 해당 파일에 가장 적합한 방법을 선택해서 코드를 작성해드리겠습니다.
개인적으로..
매크로로 작성하지 마시고.. 자동필터 설정해서 "소계"를 필터링한 다음,
Shift+Space바로 해당 라인 전체 선택하고, Alt+' 로 보이는 셀만 선택 한뒤
Ctrl+마이너스(-) 로 해당 라인 전체를 삭제하는 방식을 권해드립니다.
==> 이 방법을 매크로 기록기로 기록해서 사용하셔도 되구요..