VBA 배열을 범위 값으로 채우기

이 튜토리얼에서는 배열을 셀 범위로 채우는 방법을 보여드립니다.

배열을 범위 값으로 채우기

셀 범위로 Variant 배열을 채울 수 있습니다.

단일 열에서 값 할당하기

이 예제에서는 “A1:A10” 범위를 반복하여 셀 값을 배열에 할당합니다:

Sub TestArrayValuesSingle()
'Variant 배열을 선언합니다
   Dim arRng() As Variant

'행 수를 저장할 정수 변수를 선언합니다
   Dim iRw As Integer

'배열 변수에 범위를 할당합니다
   arRng = Range("A1:A10")

'배열을 인덱스1부터 10까지 반복합니다
   For iRw = 1 To UBound(arRng)

'배열 항목의 값을 직접실행 창에 보여줍니다
      Debug.Print arRng(iRw , 1)
   Next iRw 
End Sub

UBound 함수는 배열 상한(예: 10)을 설정하여 10회 반복되도록 합니다

Debug.Print 함수는 배열 항목의 값을 직접 실행 창에 표시합니다.

여러 열에서 값 할당하기

Sub TestArrayValuesMultiple()
'Variant 배열을 선언합니다
   Dim arRng() As Variant 

'행 수를 저장할 정수 변수를 선언합니다
   Dim iRw As Integer

'열 수를 저장할 정수 변수를 선언합니다
   Dim iCol as Integer

'배열 변수에 범위를 할당합니다
   arRng = Range("A1:C10")

'배열 행을 1부터 10까지 반복합니다
   For iRw = 1 To UBound(arRng,1)

'하나의 행에서 3개의 열을 반복합니다
      For iCol = 1 to UBound(arRng,2)

'배열 항목의 값을 직접실행 창에 보여줍니다
         Debug.Print arRng(iRw, iCol)
      Next iCol
   Next iRw 
End Sub

위 코드에서는 “A1:C10” 범위의 값으로 배열을 채웠습니다.

UBound가 다시 한 번 사용되었습니다. 이번에는 행과 열을 반복하는 데 총 두 번 사용하였습니다

Debug.Print 함수는 배열 항목의 값을 직접 실행 창에 표시합니다.