엑셀 VBA 배열 특정 열 추출 :: Extract_Column 함수 사용법 총정리
엑셀 Extract_Column 함수 목차 바로가기
요약
엑셀 Extract_Column 함수는 배열에서 지정한 열의 데이터를 추출하는 VBA 사용자 지정 함수입니다.
명령문 구문
= Extract_Column ( 배열, 열번호 )
사용된 인수 및 변수 알아보기
인수 | 설명 |
배열 [Variant] |
특정 열을 추출할 배열입니다. |
열번호 [Long] |
배열에서 추출할 열의 열 번호입니다. |
예제파일 다운로드
상세 설명
엑셀 Extract_Column 함수는 배열에서 지정한 열의 데이터를 추출하는 사용자 지정 함수입니다. 본 함수는 2차원 배열에서만 사용 가능합니다.
Extract_Column 함수의 배열로 1차원배열 또는 3차원 이상 배열을 입력할 경우 9 런타임 오류, '아래첨자 사용이 잘못 되었습니다' 오류를 반환합니다.

실전 사용 예제
배열 예제 ( 7 x 7 배열)
가 | a | ㄱ | 1 | 갸 | 구 | 기 |
나 | b | ㄴ | 2 | 냐 | 누 | 니 |
다 | c | ㄷ | 3 | 댜 | 두 | 디 |
라 | d | ㄹ | 4 | 랴 | 루 | 리 |
마 | e | ㅁ | 5 | 먀 | 무 | 미 |
바 | f | ㅂ | 6 | 뱌 | 부 | 비 |
사 | g | ㅅ | 7 | 샤 | 수 | 시 |
- 배열에서 첫번째 열 추출하기
Array = Extact_Column(Array, 1)
- 배열에서 세번째 열 추출하기
Array = Extract_Column(Array,3)
엑셀 VBA 배열 특정 열 추출, Extract_Column 명령문 동작원리
Extract_Column 명령문 전체 코드
'############################################################### '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com) '▶ Extract_Column 함수 '▶ 배열에서 지정한 열을 추출합니다. '▶ 인수 설명 '_____________DB : 특정 열을 추출할 배열입니다. '_____________Col : 배열에서 추출할 열의 열번호입니다. '▶ 사용 예제 'Arr = Extract_Column(Arr, 3) '<- 3번째 열을 추출합니다. '############################################################## Function Extract_Column(DB As Variant, Col As Long) As Variant Dim i As Long Dim vArr As Variant ReDim vArr(LBound(DB) To UBound(DB), 1 To 1) For i = LBound(DB) To UBound(DB) vArr(i, 1) = DB(i, Col) Next Extract_Column = vArr End Function
명령문 동작원리 단계별 알아보기
- 변수를 선언합니다.
Dim i As Long Dim vArr As Variant
- 기존 배열의 크기와 동일한 높이를 가진 임시배열을 생성합니다.
ReDim vArr(LBound(DB) To UBound(DB), 1 To 1)
- 기존 배열에서 지정한 열의 데이터를 임시 배열로 추출합니다.
For i = LBound(DB) To UBound(DB) vArr(i, 1) = DB(i, Col) Next
- 임시 배열을 함수의 결과값으로 반환합니다.
Extract_Column = vArr