엑셀에서 많은 데이터를 처리할 경우
특정 열만 뽑아서 사용하거나 특정 열만 삭제할 경우가 있다.
데이터 크기가 작다면 문제가 없지만 데이터가 많을 경우 대략 난감한 상황이 발생한다.
아래의 코드를 이용하면 편하게 해결할 수 있을 것이다.
특정 열만 뽑아서 사용하거나 특정 열만 삭제할 경우가 있다.
데이터 크기가 작다면 문제가 없지만 데이터가 많을 경우 대략 난감한 상황이 발생한다.
아래의 코드를 이용하면 편하게 해결할 수 있을 것이다.
엑셀 코드 사용방법
1) ALT + F8을 누른다.
2) Microsoft Visual Basic 창이 뜨면
1) ALT + F8을 누른다.
2) Microsoft Visual Basic 창이 뜨면
메뉴에서 삽입 → 모듈 을 클릭한다.
3) 아래의 코드예시를 참조하여 코드를 생성후 붙여넣는다. (개인별로 행, 열은 알아서 수정)
사실은 별 내용이 없는 코드이지만...
설명을 하자면 Range로 묶어준 다음에 Union을 사용하여 계속 묶어나가는 과정이다.
범위는 행 전체, 열 전체를 택할 수도 있으며 특정 셀영역을 선택할 수 있다.
예시
1) 특정행 선택
설명을 하자면 Range로 묶어준 다음에 Union을 사용하여 계속 묶어나가는 과정이다.
범위는 행 전체, 열 전체를 택할 수도 있으며 특정 셀영역을 선택할 수 있다.
예시
1) 특정행 선택
6:6 (6 행선택)
6:9 (6~9행 선택)
2) 특정 열 선택
A:A (A 열 선택)
A:C (A~C 열 선택)
A:C (A~C 열 선택)
3) 특정 셀영역
A3:F4 (A3 ~ F4까지의 사각 영역선택)
Visual Basic 코드
Sub Optimizing()
' Optimizing 이 매크로의 이름이 된다.
' 간단하게 Range로 행이나 열을 묶은다음에 한꺼번에 지우는 방법이다.
Dim AAA As Range
Set AAA = Range("A39:F47,A85:F93")
Set AAA = Union(AAA, Range("A729:F737,A775:F783"))
AAA.EntireRow.Delete
End Sub
여기서는 AAA.EntireRow.Delete를 사용했는데
열을 삭제할 경우는 EntireColumn.Delete로 변경하면 된다.
Sub Optimizing()
' Optimizing 이 매크로의 이름이 된다.
' 간단하게 Range로 행이나 열을 묶은다음에 한꺼번에 지우는 방법이다.
Dim AAA As Range
Set AAA = Range("A39:F47,A85:F93")
Set AAA = Union(AAA, Range("A729:F737,A775:F783"))
AAA.EntireRow.Delete
End Sub
여기서는 AAA.EntireRow.Delete를 사용했는데
열을 삭제할 경우는 EntireColumn.Delete로 변경하면 된다.
'2FeRed's IT 생활' 카테고리의 다른 글
[컴터] 인터넷 익스플로어 7 다운로드 (0) | 2009.12.31 |
---|---|
[뉴스] 21세기 최대 IT 뉴스 (0) | 2009.12.24 |
[컴퓨터] 레지스트리 수정으로 윈도우 빨리 종료 (빠르게 윈도우 종료하기) (0) | 2009.11.19 |
[컴퓨터] 커맨드창에서 윈도우 종료 (윈도우 빨리종료) (0) | 2009.11.13 |
[웹게임] 나일 온라인 - 무료로 파라오가 되어보자! - (0) | 2009.11.11 |
아름다운 인터넷 문화를 위해 댓글을 남겨주세요. -0-;