VBA Excel Tableaux à 2 dimensions

En fait, je n'utiliserais aucun redim, ni une boucle pour transférer des données de la feuille à la tablette: xxx

ou même xxx

Et c'est tout, votre tableau est rempli beaucoup plus vite puis avec une boucle, pas de redim.

Pour cet exemple, vous devrez créer votre propre type, ce qui serait un tableau. Ensuite, vous créez un plus grand tableau quels éléments sont de type que vous venez de créer.

Pour exécuter mon exemple, vous devrez remplir des colonnes A strong> et B fort> dans feuille1 forte> avec certaines valeurs. Ensuite, courez Test () Strong>. Il lira la première deux rangées forte> et ajoutez les valeurs à la Bar Bigarr forte>. Ensuite, il vérifiera le nombre de lignes de données que vous avez et lisez tous, de l'endroit où il a cessé de lire, c'est-à-dire la 3ème rangée. P>

Testé dans Excel 2007. P>

Option Explicit
Private Type SmallArr
  Elt() As Variant
End Type

Sub test()
    Dim x As Long, max_row As Long, y As Long
    '' Define big array as an array of small arrays
    Dim BigArr() As SmallArr
    y = 2
    ReDim Preserve BigArr(0 To y)
    For x = 0 To y
        ReDim Preserve BigArr(x).Elt(0 To 1)
        '' Take some test values
        BigArr(x).Elt(0) = Cells(x + 1, 1).Value
        BigArr(x).Elt(1) = Cells(x + 1, 2).Value
    Next x
    '' Write what has been read
    Debug.Print "BigArr size = " & UBound(BigArr) + 1
    For x = 0 To UBound(BigArr)
        Debug.Print BigArr(x).Elt(0) & " | " & BigArr(x).Elt(1)
    Next x
    '' Get the number of the last not empty row
    max_row = Range("A" & Rows.Count).End(xlUp).Row

    '' Change the size of the big array
    ReDim Preserve BigArr(0 To max_row)

    Debug.Print "new size of BigArr with old data = " & UBound(BigArr)
    '' Check haven't we lost any data
    For x = 0 To y
        Debug.Print BigArr(x).Elt(0) & " | " & BigArr(x).Elt(1)
    Next x

    For x = y To max_row
        '' We have to change the size of each Elt,
        '' because there are some new for,
        '' which the size has not been set, yet.
        ReDim Preserve BigArr(x).Elt(0 To 1)
        '' Take some test values
        BigArr(x).Elt(0) = Cells(x + 1, 1).Value
        BigArr(x).Elt(1) = Cells(x + 1, 2).Value
    Next x

    '' Check what we have read
    Debug.Print "BigArr size = " & UBound(BigArr) + 1
    For x = 0 To UBound(BigArr)
        Debug.Print BigArr(x).Elt(0) & " | " & BigArr(x).Elt(1)
    Next x

End Sub

Voici Un tableau VBA générique pour fonction Range strong> qui écrit un tableau à la feuille dans un « hit » à la feuille. Ceci est beaucoup em> plus vite que l'écriture des données dans la feuille une cellule à la fois dans les boucles pour les lignes et colonnes ... Cependant, il y a un peu de ménage à faire, comme vous devez spécifier la taille de la cible gamme correctement

cette apparence « d'entretien » comme beaucoup de travail et il est probablement assez lent. mais ce code est « last mile » pour écrire à la feuille, et tout em> est plus rapide que d'écrire à la feuille de calcul. Ou du moins, beaucoup plus vite que c'est effectivement instantanée, par rapport à une lecture ou d'écriture à la feuille de calcul, même en VBA, et vous devez faire tout ce que vous pouvez éventuellement dans le code avant de frapper la feuille. P>

composante majeure de c'est-piégeage d'erreur que je voyais tourner partout. Je déteste le codage répétitif: Je l'ai codé tout ici, et - espérons-le - vous ne devez écrire à nouveau p>

Array pour Range 'Une VBA fonction strong> <. p>

Private Function ArrayDimensions(arr As Variant) As Integer
  '-----------------------------------------------------------------
  ' will return:
  ' -1 if not an array
  ' 0  if an un-dimmed array
  ' 1  or more indicating the number of dimensions of a dimmed array
  '-----------------------------------------------------------------


  ' Retrieved from Chris Rae's VBA Code Archive - http://chrisrae.com/vba
  ' Code written by Chris Rae, 25/5/00

  ' Originally published by R. B. Smissaert.
  ' Additional credits to Bob Phillips, Rick Rothstein, and Thomas Eyde on VB2TheMax

  Dim ptr As Long
  Dim vType As Integer

  Const VT_BYREF = &H4000&

  'get the real VarType of the argument
  'this is similar to VarType(), but returns also the VT_BYREF bit
  CopyMemory vType, arr, 2

  'exit if not an array
  If (vType And vbArray) = 0 Then
    ArrayDimensions = -1
    Exit Function
  End If

  'get the address of the SAFEARRAY descriptor
  'this is stored in the second half of the
  'Variant parameter that has received the array
  CopyMemory ptr, ByVal VarPtr(arr) + 8, 4

  'see whether the routine was passed a Variant
  'that contains an array, rather than directly an array
  'in the former case ptr already points to the SA structure.
  'Thanks to Monte Hansen for this fix

  If (vType And VT_BYREF) Then
    ' ptr is a pointer to a pointer
    CopyMemory ptr, ByVal ptr, 4
  End If

  'get the address of the SAFEARRAY structure
  'this is stored in the descriptor

  'get the first word of the SAFEARRAY structure
  'which holds the number of dimensions
  '...but first check that saAddr is non-zero, otherwise
  'this routine bombs when the array is uninitialized

  If ptr Then
    CopyMemory ArrayDimensions, ByVal ptr, 2
  End If

End Function