Problem mit Redim Preserve (2D-Array)

Question

Noch ein Thema mit mehrdimensionalen Array und Redim Preserve, ich weiß. Ich lese viele von ihnen, verstehe aber immer noch nicht, warum mein Code nicht funktioniert.

Ich wow, dass Sie nur die letzte Dimension erweitern können und es ist was ich will: fügen Sie eine neue Spalte zu meinem 2D-Array.

Um das Problem zu isolieren, teste ich 2 Code:

Sub test_Redim_Preserve() 

Dim arr() As Variant 

ReDim arr(10, 10) 
ReDim Preserve arr(UBound(arr,1), UBound(arr,2) + 1) 

End Sub 

Diese Arbeit fein

Sub test_Redim_Preserve2() 

Dim arr() As Variant 

ReDim arr(10, 10) 
arr = Range("A1:J10") 
ReDim Preserve arr(UBound(arr,1), UBound(arr,2) + 1) 

End Sub 

Das bin ich einen Fehler geben. Ich habe gerade einen Bereich angegeben, um mein Array zu füllen, und dann kann ich es nicht mehr redimieren. Ich verstehe nicht, was fehlt, um die Redim zu akzeptieren.

Könnte mir jemand erklären?

Answer 1

Die Standarduntergrenze ist 0, wenn keine Option Base-Anweisung vorhanden ist, aber Sie ordnen einem Array einen Bereich zu, der immer eine Untergrenze von 1 hat. Daher versucht Ihr Code, die Größe zu ändern erste Dimension des Arrays auch durch Ändern seiner unteren Grenze. Verwendung:

ReDim Preserve arr(1 To UBound(arr, 1), 1 To UBound(arr, 2) + 1) 

Answer 2

Sie Option Base 1 an der Spitze des Codes verwenden können, und dann wird Ihr Original-Code funktionieren.

Voll Code:

Option Base 1 

Sub test_Redim_Preserve2() 

Dim arr() As Variant 

ReDim arr(10, 10) 
arr = Range("A1:J10") 
ReDim Preserve arr(UBound(arr, 1), UBound(arr, 2) + 1) 

End Sub