MacroFacili: Concatenamento di array

Questa semplice funzione mostra come sia possibile passare un numero di parametri non definito a priori ad una funzione.

Questa funzione concatena un numero variabile di array restituendone uno unico.

Function ConcatenaArray(ParamArray args() As Variant) As Variant
  'calcola il numero di elementi dell'array finale
  NrElementi = 0
  For i = LBound(args) To UBound(args)
    NrElementi = NrElementi + (UBound(args(i)) - LBound(args(i)) + 1)
  Next i

  Dim arrRes() As Variant
  ReDim arrRes(NrElementi - 1)

  'ricopia i singoli array in sequenza
  e = 0
  For i = LBound(args) To UBound(args)
    For j = LBound(args(i)) To UBound(args(i))
      arrRes(e) = args(i)(j)
      e = e + 1
    Next j
  Next i

  ConcatenaArray = arrRes
End Function