VBA Tableaux Multidimensionnels

Supposons que vous avez ces colonnes dans un fichier Excel sheeet. Si vous n'avez que ces données dans ces colonnes vous pouvez simple de supprimer les colonnes dont vous avez besoin 😀 Alors vous allez vous retrouver avec 2 columsn que vous désirez. Sans savoir ce que vous avez vraiment besoin à la fin c'est le meilleur aveugle deviner..

par exemple vos colonnes commence à B de F:

Columns("B:B").Delete Shift:=xlToLeft
Columns("C:C").Delete Shift:=xlToLeft
Columns("D:D").Delete Shift:=xlToLeft

Vous pouvez utiliser la même logique pour traiter le tableau.

• Transposer le tableau dans la feuille.
• Supprimer les colonnes.
• Alors transposer la gauche sur les deux colonnes de la matrice.

Mais qu'allez-vous faire avec les deux dernières colonnes sans les mettre dans la feuille? Très curieux. Merci donc de confirmer ce dont vous avez besoin, si quelqu'un ici peut vous aider.

MODIFIER que par des OP commentaire:

Vous pouvez prendre un coup d'oeil à ce des articles et des messages qui a manupulation de tableaux de différentes façons:

• Excel cellules claires basées sur le contenu d'une liste dans une autre feuille
• VBA Tableaux

Puis dans afin de remplir un tableau 2D pour un exemple en VBA, check this out:

Dim i As Integer, j As Integer
Dim array2D As Variant, newArray2D as Variant
'-- 0 indexed based array with 2 rows 3 columns
ReDim array2D(0 To 1, 0 To 2)

For i = LBound(array2D, 1) To UBound(array2D, 1)
    For j = LBound(array2D, 1) To UBound(array2D, 1)
        array2D(i, j) = i + j
    Next j
Next i

'--to delete the fastest is to use the above logic (worksheet)
'-- here you don't need to declare/redimentioned the array
'-- as transpose will do it with a 1 indexed based array

newArray2D = WorksheetFunction.Transpose(Sheets(2).Range("B2:D").Value)

Ci-dessous est un exemple de code qui accomplit pleinement la tâche en question, via des boucles/copie directe, c'est à dire rien de didactique, mais aussi tente de démontrer comment VBA Excel du "découpage" de la fonction avec l'Application.WorksheetFunction.L'indice ne fait pas l'aider dans cette tâche, même si elle peut être utile à d'autres moyens:

Public Sub Answer()
Dim i As Integer, j As Integer
' arrA contains the initial 4x5 multidimensional array
Dim arrA(1 To 4, 1 To 5) As Integer
For i = 1 To 4
For j = 1 To 5
arrA(i, j) = (i - 1) * 5 + j
Next j
Next i
' arrBv1 and v2 contain the 2x5 subset, just columns 3 and 5
' arrBv1 is obtained by direct copy
Dim arrBv1(1 To 4, 1 To 2) As Variant
For i = 1 To 4
arrBv1(i, 1) = arrA(i, 3)
arrBv1(i, 2) = arrA(i, 5)
Next i
' arrBv2 is obtained by using Excel's "slicing" capability
Dim arrBv2(1 To 4, 1 To 2) As Integer
Dim slices(1 To 2) As Variant
slices(1) = Application.WorksheetFunction.Index(arrA, 0, 3)
slices(2) = Application.WorksheetFunction.Index(arrA, 0, 5)
' but because the slices are actually each 4x1 multidimensional
' array, a second loop is required to obtain a data structure
' actually equivalent to arrBv1, making this "shortcut" no
' shorter for producing a 4x2 array
For i = 1 To 4
arrBv2(i, 1) = slices(1)(i, 1)
arrBv2(i, 2) = slices(2)(i, 1)
Next i
' although arrBv1 and v2 are equivalent, as MsgBox does not appear
For i = 1 To 4
For j = 1 To 2
If arrBv1(i, j) <> arrBv2(i, j) Then
MsgBox ("equivalence failure with 4x2 arrays")
End If
Next j
Next i
' arrCv1 is the 1x8 array obtained by direct copy from the 4x2 array
Dim arrCv1(1 To 8) As Integer
For i = 1 To 4
arrCv1(i) = arrBv1(i, 1)
arrCv1(i + 4) = arrBv1(i, 2)
Next i
' arrCv2 is the one-dimensional array obtained from the slices, which
' does not lead to an additional step, but is not shorter
' than just using arrBv1 as immediately above or
Dim arrCv2(1 To 8) As Integer
For i = 1 To 4
arrCv2(i) = slices(1)(i, 1)
arrCv2(i + 4) = slices(2)(i, 1)
Next i
' arrCv3 is the 1x8 array obtained from the original 4x5 array,
' shorter still
Dim arrCv3(1 To 8) As Integer
For i = 1 To 4
arrCv3(i) = arrA(i, 3)
arrCv3(i + 4) = arrA(i, 5)
Next i
' and arrCv1, v2 and v3 are again all equivalent
For i = 1 To 8
If arrCv1(i) <> arrCv2(i) Or arrCv1(i) <> arrCv3(i) Then
MsgBox ("equivalence failure with one-dimensional array")
End If
Next i
' so, in sum, nothing.
End Sub