로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2010.04.11 17:22
안녕하세요?
질문을 올리실때 엑셀 파일을 첨부해주셔야 제가 답변 작성하기 편합니다. 부탁.. ^^
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+마이너스(-) 로 해당 라인 전체를 삭제하는 방식을 권해드립니다.
==> 이 방법을 매크로 기록기로 기록해서 사용하셔도 되구요..
새 창으로
선택한 기호
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
아별
안녕하세요?
질문을 올리실때 엑셀 파일을 첨부해주셔야 제가 답변 작성하기 편합니다. 부탁.. ^^
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+마이너스(-) 로 해당 라인 전체를 삭제하는 방식을 권해드립니다.
==> 이 방법을 매크로 기록기로 기록해서 사용하셔도 되구요..