Reduce Two-Dimensional To One-Dimensional Array

by Remas Wojciechowski

With this function you can reduce a given two-dimensional array [aToReduce] to a one-dimensional array. The newly created array will be populated with the values form the column/row indicated by [intRetain_ColRowIndex] from the dimension to be retained [intRetain_Dimension].

Function ARRAY_ReduceDimension(ByVal aToReduce, ByVal intRetain_ColRowIndex, ByVal intRetain_Dimension)
   Dim aTemp()
   Dim intLB, intUB
   Dim i
   intLB = LBound(aToReduce, intRetain_Dimension)
   intUB = UBound(aToReduce, intRetain_Dimension)
   ReDim aTemp(intUB)
   Select Case intRetain_Dimension
      Case 1
         For i = intLB To intUB
            aTemp(i) = aToReduce(i, intRetain_ColRowIndex)
         Next
      Case 2
         For i = intLB To intUB
            aTemp(i) = aToReduce(intRetain_ColRowIndex, i)
         Next
   End Select
   ARRAY_ReduceDimension = aTemp
End Function

Feedback