Was macht ReDim Preserve?

Question

Ich schaue auf jemand anderen vba Excel-Code. Sie machen ReDim Preserve dataMatrix(7, i) in beiden Schleifen. Was macht das?

Auch scheint es, dass die zweite Schleife nur die Daten in der ersten Schleife überschreibt, ist das korrekt?

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 speichert Daten in einem Array, wenn Sie ihre Größe ändern. Außerdem sollte es die Daten nicht überschreiben, da i bei jeder Iteration der Schleife inkrementiert wird: Die erste Schleife stoppt nicht, bis sie auf eine leere Zelle trifft, wobei sie die Array-Länge bei jeder Iteration um eins ändert, sodass die Länge 81 ist zu der i und die neue Länge wird 9. Wenn die zweite Iteration auftritt, schreibt sie das neue Element an die Grenze des Arrays mit dem Index 9, modifiziert ihre Länge erneut, so dass sie länger wird und iteriert, bis sie auf eine leere Zeile trifft.

Answer 2

Redim Preserve können Sie die Dimensionen eines Arrays ändern, während der Inhalt des Arrays zu halten.

Die Redim Preserve am Ende jeder Schleife fügt dem Array eine weitere Zeile hinzu.

Ich denke, die zweite Schleife hängt an das Array, weil die i Variable nicht zwischen den Schleifen geändert wird.