Vba excel узнать размерность массива

This tutorial will teach you how to get the length (size) of an Array in VBA.

Get Array Length

In order to get the length of an Array, you need to know the array’s start and end positions. You can do this with the VBA’s UBound and LBound Functions.

LBound and UBound Functions

This procedure demonstrates how to use the UBound and LBound Functions on a a single dimension array:

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

Subtracting the two will give you the array length (UBound – LBound +1).

Get Array Length Function

This function will calculate the size (length) of a single-dimensional Array:

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

Get 2D Array Size

This function will calculate the number of positions in a two-dimensional array:

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

Introduction to VBA Array Length

Basically, an array is a set of elements that is in two dimensions. In excel we use arrays in our day to day lives. To calculate the length of an array in excel we either do it manually or use some functions to do so. But how do we get the length of an array in Excel VBA? We use two separate functions to do so. Lbound and Ubound functions are used to get an array length in excel VBA.

So we discussed above that we use Lbound and Ubound functions to get array length. But what are Lbound and Ubound functions. Lbound stands for lower bound and Ubound stands for Upper bound. Array length is also identified by function arr.length.

First, let us see how an array looks like. Look at the screenshot below for the same.

Above is an array with four rows and two columns. Now how will we find the length of this array or other sizes we will learn in this topic.

First, ensure we have the developer’s tab enabled so that we can use Excel VBA.

How to Use Excel VBA Array Length?

Now let us try on some examples on how to find array length in excel VBA.

You can download this VBA Array Length Excel Template here – VBA Array Length Excel Template

Example #1 – VBA Array Length

First, imagine we have an array size of four elements in each row and columns i.e. four rows and four columns. So the array size would be 16. Array length is the calculated product of a number of rows and columns. Let us do this in Excel VBA.

Step 1: Enter VB editor by going in the developer’s tab and then clicking on visual basic as follows.

Step 2: Once we are inside the VB editor let us insert a new module which will open code window for us.

Step 3: Double click on the module we just inserted which will open code window for us. Now we can start writing the code by declaring a Sub Function.

Code:

Sub Sample()

End Sub

Step 4: Now declare an array as an integer as follows.

Code:

Sub Sample()

Dim arr(3, 3) As Integer

End Sub

Step 5: Now use the console. writeline and arr.length function to find the array length as follows.

Code:

Sub Sample()

Dim arr(3, 3) As Integer
MsgBox Application.CountA(arr)

End Sub

Step 6: When we run the above code we get 16 as output as 16 is the length of the integer.

Example #2 – VBA Array Length

In the above method, we used arr.length method which is not ideal in many cases. We will use the traditional Lbound an Ubound method to find the array length. I have some data in sheet 1 as follows.

In the above screenshot, we have an array and we want to find the size of this array in VBA. We will follow similar steps from example 1 on how to enter the VB editor as follows.

Step 1: Enter VB editor by going in the developer’s tab and then clicking on visual basic as follows.

Step 2: Click on insert tab and add a new module.

Step 3: Now we can start writing the code by declaring a sub-function.

Code:

Sub Sample1()

End Sub

Step 4: Now first we need to declare an array for our data above and two another integers as follows.

Code:

Sub Sample1()

Dim Grades(1 To 5, 1 To 2) As String, x As Integer, y As Integer

End Sub

Step 5: Now as we have a size of the array we give an upper and lower limit to the dimension by the following code.

Code:

Sub Sample1()

Dim Grades(1 To 5, 1 To 2) As String, x As Integer, y As Integer
x = UBound(Grades, 1) - LBound(Grades, 1) + 1
y = UBound(Grades, 2) - LBound(Grades, 2) + 1

End Sub

Step 6: Now let’s use the Msgbox function to display the size of the array from the data above.

Code:

Sub Sample1()

Dim Grades(1 To 5, 1 To 2) As String, x As Integer, y As Integer
x = UBound(Grades, 1) - LBound(Grades, 1) + 1
y = UBound(Grades, 2) - LBound(Grades, 2) + 1
MsgBox "This array Has " & x * y & " Data"

End Sub

Step 7: Now run the code from the run button or press F5. When we run the code we see the following result,

Now we can check from the data it has 5 rows and two columns and each cell has one data so total there are 10 data.

Example #3 – VBA Array Length

Now let us try to find the size of an array in another example. Now we have data in another sheet.

Now the data has one more rows from the above example 2. Let us try to find out the size of this array. Follow the following steps,

Step 1: Enter VB editor by going in the developer’s tab and then clicking on visual basic as follows,

Step 2: Double click on the module we just inserted which will open code window for us. Now we can start writing the code by declaring a Sub Function.

Code:

Sub Sample2()

End Sub

Step 3: Now similarly declare an array and two different variables as integers.

Code:

Sub Sample2()

Dim Dept(1 To 6, 1 To 2) As String, x As Integer, y As Integer

End Sub

Step 4: Now use Lbound and Ubound function to find the size of an array as follows.

Code:

Sub Sample2()

Dim Dept(1 To 6, 1 To 2) As String, x As Integer, y As Integer
x = UBound(Dept, 1) - LBound(Dept, 1) + 1
y = UBound(Dept, 2) - LBound(Dept, 2) + 1

End Sub

Step 5: Now use the Msgbox function to display the size of the array.

Code:

Sub Sample2()

Dim Dept(1 To 6, 1 To 2) As String, x As Integer, y As Integer
x = UBound(Dept, 1) - LBound(Dept, 1) + 1
y = UBound(Dept, 2) - LBound(Dept, 2) + 1
MsgBox "This array size is " & x * y

End Sub

Step 6: When we run the code we get the following result,

Things to Remember

There are few things which we need to keep in mind for VBA Array length as follows:

• To find a length of an array we need to declare the array first.
• We use Lbound and Ubound function to find the length of an array.
• An array is a set of elements in two dimensions.

Conclusion

• Now as we discussed earlier what is an array. It is a set of elements in two dimensions. So in excel VBA, we can use Lbound and Ubound function to find the size of the array length.
• How do we calculate the array size. It is the product of a number of rows to the number of columns.
• How to use the VBA Array Length Function.
• In the above examples, we have learned how to use Ubound and Lbound function as follows.
• UBound(Array, 1) – LBound(Array, 1) + 1

Recommended Articles

This is a guide to VBA Array Length. Here we have discussed how to use Excel VBA Array Length along with practical examples and downloadable excel template. You can also go through our other suggested articles –

1. VBA Active Cell
2. VBA Delete Row
3. VBA Transpose
4. VBA LBound

You are free to use this image on your website, templates, etc, Please provide us with an attribution linkArticle Link to be Hyperlinked
For eg:
Source: VBA Array Size (wallstreetmojo.com)

This article provides a step-by-step guide to finding the array size using VBA Code.

How to Find the Size of an Array Using VBA Code?

Follow the steps to find the array size using Excel VBA Code.

• Step 1: First, let us start with the basic, declare a variable in VBAVariable declaration is necessary in VBA to define a variable for a specific data type so that it can hold values; any variable that is not defined in VBA cannot hold values.read more as the variant data type.

Code:

Sub Array_Size()

 Dim MyArray As Variant

End Sub

• Step 2: For this variable, use ARRAY functionArray formulas are extremely helpful and powerful formulas that are used in Excel to execute some of the most complex calculations. There are two types of array formulas: one that returns a single result and the other that returns multiple results.read more and assign some values as shown below.

Code:

Sub Array_Size()

Dim MyArray As Variant
MyArray = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul")

End Sub

• Step 3: We assigned some values to the array “MyArray.”

If we need to write a loop to store these array values to cells, we must decide how many times the loop has to run. It depends on the number of values the array has.

Look at the number of values assigned to the array “MyArray.” There are a total of 7 values assigned to the array, so now we know how many times the loop has to run to store values of an array to cells.

• Step 4: Declare another variable as an integer to write FOR loop in VBAVBA For Each Loop helps the user to inspect and analyze the groups of objects or values individually. It even facilitates performing the specific activity for every object or value by passing a statement or group of statements in this reference.read more.

Code:

Sub Array_Size()

Dim MyArray As Variant
MyArray = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul")

Dim k As Integer
For k = 1 To 7
Next k

End Sub

• Step 5: We have opened the FOR loop starting from 1 to 7. Inside the loop, write CELLS property to store as shown below.

Code:

Sub Array_Size()

 Dim MyArray As Variant
 MyArray = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul")

 Dim k As Integer

 For k = 1 To 7
  Cells(k, 1).Value = MyArray(k)
 Next k

End Sub

• Step 6: Now, execute the code line by line by pressing an F8 function key upon pressing the F8 key for the first time.

• Step 7: Press F8 now. It will jump to the array value assigning line.

• Step 8: As of now array name “MyArray” has no values. Press F8. It will assign all the mentioned values to the array variable.

• Step 9: Now, the loop will start to run. Press the F8 key twice to see what value we get in cell A1.

• Our first value in the array variable is “Jan,” but we have the result as the second value, “Feb,” when the first value loop is still running.
• Step 10: When your array values count starts from zero, not 1, we need to include the starting loop as zero.

• Step 11: Once the starting position of the loop is decreased by one. Similarly, the ending should be decreased by 1, so make the ending 6 instead of 7.

• Step 12: Once the loop starts and ends, we decide on one more tweak we need to do, i.e., in the CELLS property. We have used the “k” variable as the dynamic cell picker, but since our loop starts from zero, there is no cell that starts with zero, so add plus 1 to the variable “k.”

Code:

Sub Array_Size()

Dim MyArray As Variant
  MyArray = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul")
Dim k As Integer

For k = 0 To 6
  Cells(k + 1, 1).Value = MyArray(k)
Next k

End Sub

• Step 13: Now, upon running the loop, the first-time “k” value is zero, and since we have added plus 1, the “k” value will be 1, so it refers to cell A1.
• Step 14: Now run the code, and it will store all the array values in cells.

However, in this instance, we have manually decided the loop’s starting and ending size, but the array size can be determined easily using LBOUNDLBound in VBA or “Lower Bound” extracts the lowest number of an array. For example, if the array says “Dim ArrayCount (2 to 10) as String” then using LBound function we can find the least number of the array length i.e. 2.read more & UBOUND functionsUBOUND, also known as Upper Bound, is a VBA function that is used in conjunction with its opposite function, LBOUND, also known as Lower Bound. This function is used to determine the length of an array in a code, and as the name suggests, UBOUND is used to define the array’s upper limit.read more.

Find Size of an Array Automatically

• Step 1: When we about included loop starting and ending point in the above, we have manually counted the number of values the array has, but to start the array, use the LBOUND function. For this, pass the “MyArray” variable name.

• Step 2: To determine the last array size, use the UBOUND function and enter the array name “MyArray.”

Code:

Sub Array_Size()

Dim MyArray As Variant
 MyArray = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul")
Dim k As Integer

For k = Lboubd(MyArray) To UBound(MyArray)
 Cells(k + 1, 1).Value = MyArray(k)
Next k

End Sub

• Step 3: Start the line-by-line code and press the F8 key until it reaches the starting point.

• Step 4: First, place your cursor on “LBound(MyArray)”and see what it says..

• Step 5: Starting point number it says is zero. Now, place the cursor on “UBound(MyArray)” and see what it says.

It says array size as 6. So, as we mentioned starting and ending manually, UBOUND and LBOUND automatically pick the numbers for us.

You can download this VBA Array Size Excel Template here – VBA Array Size Excel Template

Recommended Articles

This article has been a guide to VBA Array Size. Here, we discuss how to find the size of an array using the VBA LBOUND and UBOUND function, along with practical examples and a downloadable Excel template. Below are some useful articles related to VBA: –

• VBA Split String into Array
• VBA String Array
• VBA Declare Array
• VBA Arrays Function