¿Qué hace ReDim Preserve?

Question

Estoy buscando el código vba excel de otra persona. están haciendo ReDim Preserve dataMatrix(7, i) en ambos bucles. ¿Qué hace esto?

Además, parece que el segundo bucle simplemente sobrescribe los datos en el primer bucle, ¿es correcto?

Dim dataMatrix() As String 

    Worksheets.Item("ETS").Select 
    Do While Trim(Cells(r, 1)) <> "" 
     Debug.Print "The line: ", Trim(Cells(r, 1)), r 
     r = r + 1 
     dataMatrix(1, i) = Trim(Cells(r, 1)) ''file name 
     dataMatrix(2, i) = Trim(Cells(r, 2)) ''sample type 
     dataMatrix(3, i) = Trim(Cells(r, 3)) ''sample name 
     dataMatrix(4, i) = "ETS" '' 
     dataMatrix(5, i) = Trim(Cells(r, 5)) ''Response 
     dataMatrix(6, i) = Trim(Cells(r, 6)) ''ISTD Response 
     dataMatrix(7, i) = Trim(Cells(r, 10)) ''Calculated Conc 
     i = i + 1 
     ReDim Preserve dataMatrix(7, i) 
    Loop 

    r = 5 
    Worksheets.Item("ETG").Select 
    Do While Trim(Cells(r, 1)) <> "" 
     Debug.Print "The line: ", Trim(Cells(r, 1)), r 
     r = r + 1 
     dataMatrix(1, i) = Trim(Cells(r, 1)) ''file name 
     dataMatrix(2, i) = Trim(Cells(r, 2)) ''sample type 
     dataMatrix(3, i) = Trim(Cells(r, 3)) ''sample name 
     dataMatrix(4, i) = "ETG" 
     dataMatrix(5, i) = Trim(Cells(r, 5)) ''Response 
     dataMatrix(6, i) = Trim(Cells(r, 6)) ''ISTD Response 
     dataMatrix(7, i) = Trim(Cells(r, 10)) ''Calculated Conc 
     i = i + 1 
     ReDim Preserve dataMatrix(7, i) 
    Loop 

Answer 1

ReDim conserva los datos en una matriz cuando modifica su tamaño. Tampoco debe sobrescribir los datos porque i se incrementa cada iteración del ciclo: el primer ciclo no se detendrá hasta que encuentre una celda vacía, cambiando la longitud de la matriz cada iteración por uno, de modo que cuando la longitud sea 8, se sumará 1 al i y la nueva longitud se convierte en 9. Cuando se produce la segunda iteración, escribe el nuevo elemento en el límite de la matriz con el índice 9, modifica su longitud de nuevo para que se convierta en elemento 1 más largo y se repite hasta que encuentra una línea vacía.

Answer 2

Redim Preserve le permite cambiar las dimensiones de una matriz, manteniendo el contenido de la matriz.

El Redim Preserve al final de cada ciclo agrega otra fila a la matriz.

Creo que el segundo bucle se agrega a la matriz porque la variable i no se cambia entre los bucles.