Convert 2D Arary To 1D or List – Excel VBA Macro – Quickest Method

Convert Array of 2 Dimension to 1 Dimension

In Excel VBA , we use 2D arrays quite often. This is because, we convert Excel Worksheet Range to Array and do the data list or string operations on the list. In most cases it will be a 2D array.

While converting a 2D array to 1D, we can do it 2 ways. Either convert all the Rows in to a list or Columns into list. Both these can be achieved by using the function mentioned in this code.

Not only converting, this code will help you in understanding how to get only a row or column from a 2D array without using looping thru each element. It saves some time.

Sub Convert_2D_To_1D_Array()
    Dim rng As Range, arr As Variant
    
    'Convert Rows to 1D
    Set rng = ThisWorkbook.Sheets("Sheet2").Range("A1")
    arr = Array_2D_To_1D("R")
    Set rng = rng.Resize(1, UBound(arr, 1) + 1)
    rng = arr
    
    'Convert Columns to 1D
    Set rng = ThisWorkbook.Sheets("Sheet2").Range("A2")
    arr = Array_2D_To_1D("C")
    Set rng = rng.Resize(1, UBound(arr, 1) + 1)
    rng = arr
End Sub
Function Array_2D_To_1D(cr As String) As Variant
    'Declare Array as variant & Range
    Dim rArray() As Variant, rRange As Range, iRow As Double, iCol As Double
    Dim d1Arr As Variant, app As Object, sStr As String
    
    'Initialize Range to Reference a portion of Worksheet
    Set rRange = ThisWorkbook.Sheets("sheet1").Range("A1:D3")
    Set app = Application
    
    'Assign Range to Array
    rArray = rRange.Value
    sStr = ""
    
    'Convert to 1D Array - By Row
    If cr = "R" Then
    For iRow = 1 To UBound(rArray, 1)
        d1Arr = app.Index(rArray, iRow, 0)
        If sStr = "" Then
            sStr = Join(d1Arr, ",")
        Else
            sStr = sStr & "," & Join(d1Arr, ",")
        End If
    Next iRow
    End If
    
    'Convert to 1D Array - By Column
    If cr = "C" Then
    For iCol = 1 To UBound(rArray, 2)
        d1Arr = app.Transpose((app.Index(rArray, 0, iCol)))
        If sStr = "" Then
            sStr = Join(d1Arr, ",")
        Else
            sStr = sStr & "," & Join(d1Arr, ",")
        End If
    Next iCol
    End If
    
    'Display 2D array converted to 1D
    MsgBox sStr
    d1Arr = VBA.Split(sStr, ",")
    Array_2D_To_1D = d1Arr
    
End Function

You can opt to use only one method rather than using both row/column slicing method

Slice 2D Array Elements Quickly

Here is an example for the two methods:

2D Array – Range(“A1:D3”) – Array Size (3,4)

2D Array Col1 Col2 Col3 Col4
Row1 a b c d
Row2 1 2 3 4
Row3 Excel Macro VBA Array

2D to 1D Array – By Converting each Row

a b c d 1 2 3 4 Excel Macro VBA Array

2D to 1D Array – By Converting each Column

a 1 Excel b 2 Macro c 3 VBA d 4 Array

Note that from the 2nd value on, each of these 1D array differs.  In the first one, it reads the “a,b,c,d” the first row, then 2nd row and goes on. In second 1D Array, it the columns values “a,1,Excel”, then next column and so on.

It up to your needs to use on these methods and not both. Similar to a range, the same method can also be used to convert a table or named range into an Array.

The .resize function used in the code is mandatory to tell Excel what would be the exact size of the array that we are writing into worksheet. So, we initialize a range to address “A1”. Then, we resize it as per the size of the array using the comamnd UBound(Arr,1). This gives the number of items in the 1D Array.

Leave a Reply