VBA 배열 길이/크기

이 튜토리얼에서는 VBA에서 배열의 길이(크기)를 구하는 방법에 대해 설명합니다.

배열 길이 가져오기

배열의 길이를 구하려면 배열의 시작 위치와 끝 위치를 알아야 합니다. VBA의 UBound 및 LBound 함수를 사용하여 이 작업을 수행할 수 있습니다.

LBound 및 UBound 함수

이 프로시저는 단일 차원 배열에서 UBound 및 LBound 함수를 사용하는 방법을 보여 줍니다:

Sub UBoundLBound()
    Dim exArr(1 To 4) As String
    
    MsgBox UBound(exArr)
    MsgBox LBound(exArr)
End Sub

이 둘을 빼면 배열 길이(UBound – LBound +1)가 나옵니다.

배열 길이 가져오기 함수

이 함수는 1차원 배열의 크기(길이)를 계산합니다:

Public Function GetArrLength(a As Variant) As Long
   If IsEmpty(a) Then
      GetArrLength = 0
   Else
      GetArrLength = UBound(a) - LBound(a) + 1
   End If
End Function

2D 배열 크기 구하기

이 함수는 2차원 배열의 크기를 계산합니다::

Sub testArrySize()
    Dim arr2D(1 To 4, 1 To 4) As Long
    
    MsgBox GetArrSize_2D(arr2D)

End Sub


Public Function GetArrSize_2D(a As Variant) As Long
   Dim x As Long, y As Long
   
   If IsEmpty(a) Then
      GetArrSize_2D = 0
   Else
      x = UBound(a, 1) - LBound(a, 1) + 1
      y = UBound(a, 2) - LBound(a, 2) + 1
      GetArrSize_2D = x * y
   End If
End Function