Streamline/размер размера массива в массиве массивов

Question

У меня есть следующий код:

Function SplitMe(sourceArray As Variant) As Variant 
Dim source As Variant, tempArr As Variant 
source = sourceArray 

If Not IsArray(source) Then _ 
    Exit Function 

Dim r As Integer 
Dim parts() As String 
Dim splitted As Variant 
ReDim splitted(LBound(source) To UBound(source)) 

For r = LBound(source) To UBound(source) 
    parts = VBA.Split(source(r, 1), "\") 
    splitted(r) = parts 
Next r 

Это не работает хорошо, пока здесь:

splitted = Application.Transpose(splitted) 
SplitMe = splitted 

For r = LBound(splitted) To UBound(splitted) 
    Debug.Print uniqueValues(splitted, r) 
Next r 
End Function 

В этом пункте я хочу, чтобы транспонировать массив. Он отлично работает, если массивы в разбитом массиве имеют одинаковый размер. Проблема возникает, когда у меня есть запрос, как это:

транспонирование необходимо для функции uniqueValues(splitted, r).

Теперь я хочу написать функцию, которая идет вперед, и добавляет длину запросам, которые не являются максимальным размером.
В этом случае splitted(1) предоставит длину 0 to 9, а затем остальные 5 узлов должны быть увеличены до 0 to 9.

Любой, у кого есть функция под рукой, которая делает это?

Answer 1

Следующая функция изменяет массив массива в тех же размерах:

Function oneDimensionArray(tmpArr As Variant, maxDim As Long) As Variant 
Dim r As Long, redimArray As Variant 
For r = LBound(tmpArr) To UBound(tmpArr) 
    redimArray = tmpArr(r) 
    If maxDim > UBound(redimArray) Then ReDim Preserve redimArray(LBound(redimArray) To maxDim) 
    tmpArr(r) = redimArray 
Next r 

oneDimensionArray = tmpArr 
End Function