엑셀 VBA 배열 특정 열 추출 :: Extract_Column 함수 사용법 정리
엑셀 Extract_Column 함수 목차 바로가기
요약
엑셀 Extract_Column 함수는 배열에서 지정한 열의 데이터를 추출하는 VBA 사용자 지정 함수입니다.
명령문 구문
= Extract_Column ( 배열, 열번호 )
사용된 인수 및 변수 알아보기
| 인수 | 설명 |
| 배열 [Variant] |
특정 열을 추출할 배열입니다. |
| 열번호 [Long] |
배열에서 추출할 열의 열 번호입니다. |
예제파일 다운로드
오빠두엑셀의 강의 예제파일은 여러분을 위해 자유롭게 제공하고 있습니다.
- [엑셀VBA함수] Extract_Column 명령문예제파일
상세 설명
엑셀 Extract_Column 함수는 배열에서 지정한 열의 데이터를 추출하는 사용자 지정 함수입니다. 본 함수는 2차원 배열에서만 사용 가능합니다.
Extract_Column 함수의 배열로 1차원배열 또는 3차원 이상 배열을 입력할 경우 9 런타임 오류, '아래첨자 사용이 잘못 되었습니다' 오류를 반환합니다.
1차원/3차원 배열에서 사용시 런타임 오류를 반환합니다. 실전 사용 예제
배열 예제 ( 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
- 배열에서 첫번째 열 추출하기