본문 바로가기

EXCEL/VBA

VBA - Insert Multi Array, 배열에 배열 삽입

반응형

엑셀 매크로 VBA 에서는 배열에 데이터를 추가하는 Push 명령어가 없다. 덧붙여 배열에 데이터 말고 배열을 추가할 수 있는 방법이 없어서, 테스트를 해보았다.

아래 코드에서 중요한 것은 배열을 저장할 배열의 Type을 Variant로 설정하여야 한다는 것이다.

' 배열 생성
Dim aTem(4) As Integer

aTem(0) = 1
aTem(1) = 2
aTem(2) = 3
aTem(3) = 4

' 배열을 배열에 저장
Dim aEnv() As Variant
ReDim aEnv(0)

aEnv(0) = aTem

' 테스트 출력
Debug.Print aEnv(0)(1)

 

 

 

반응형