Comment Créer Subarray Efficacement en VBA?

Dans mon programme VBA, j'ai un grand tableau de données, où j'ai besoin d'être constamment à l'utilisation de ses sous-ensembles.

Ma méthode est la suivante:

Redim subArr(rowBegin to rowEnd)
For r = rowBegin to rowEnd
    subArr(r) = bigArr(r)
Next r

Est-il un moyen plus efficace pour faire référence à ce genre de sous-ensembles s'il vous plaît? Merci...

  • Quel est ton code complet?
  • Je ne fait qu'extraire la partie la plus pertinente de mes codes ici. Les autres codes ne sont pas réellement utiles pour cette question.
InformationsquelleAutor Alpha | 2012-04-16
  1. 3

    Travailler avec des tableaux est incroyablement rapide, donc ce sera probablement donner aucun avantage apparent - althouh je peux comprendre comment il peut faire appel à partir d'un codage de sens que boucle pour remplir un petit tableau

    Donné que vous travaillez avec un seul élément de tableau vous pouvez:

    1. Introduire un "marqueur" de la chaîne à l'intérieur de la vaste gamme
    2. Join le grand tableau avec un délimiteur dans une seule chaîne
    3. Split le grand tableau par le "marqueur" de la chaîne, puis séparer la chaîne réduit en un petit tableau avec le délimiteur

    Le code ci-dessous décharges, les nombres de 1 à 100 dans un tableau, et répartit ensuite comme ci-dessus pour retirer les 10 premiers enregistrements

    Sub test()
Dim bigArr
Dim subArr
Dim strSep As String
Dim strDelim As String
Dim strNew As String
Dim rowBegin As Long
Dim rowEnd As Long

strDelim = ","
strSep = "||"
'fill array with 1 to 100
bigArr = Application.Transpose(Application.Evaluate("row(1:100)"))

rowBegin = 1
rowEnd = 10

bigArr(rowEnd + 1) = strSep
'make a single string
strNew = Join(bigArr, strDelim)
'split the string at the marker 
vArr = Split(strNew, strSep)
ReDim subArr(rowBegin To rowEnd)
'split the smaller string with the desired records
subArr = Split(Left$(vArr(0), Len(vArr(0)) - 1), strDelim)

End Sub
    • Grand merci Brettdj! C'est la plus brillante de la façon dont j'ai vu pour manipuler des tableaux! Il m'inspire pour d'autres ensembles de fonctionnement ainsi.
    • BTW, savez-vous comment l'opérateur assign pour la variante fonctionne réellement en VBA s'il vous plaît? Parce que de cette façon, bien que le manuellement en boucle dans la gamme diminue, il ya une chance qu'il y a plus de boucles à l'intérieur de la cession de l'opérateur ainsi que le split/join fonctions. Des idées?
    • Ce fut ma première pensée trop. Mais il ne fonctionne qu'avec les tableaux de chaîne, d'autres types auraient besoin d'être jeté à la chaîne. Et il est beaucoup plus lent que le bouclage de la matrice
    • Qu'entendez-vous par "savez-vous comment l'opérateur assign pour la variante fonctionne réellement en VBA s'il vous plaît"? .Sur mes tests de l'approche ci-dessus a pris 0.09 secondes pour extraire 50k enregistrements à partir d'un ensemble plus grand verus 0.02 secondes pour la boucle.
    • c'est ce que je crains. bien qu'il soit propre pour le code, mais la vitesse n'est pas améliorée.
    • dans cette méthode, puisque vous modifiez la valeur de la bigArr dans deux indices, donc je suppose que si je vais l'utiliser, je vais devoir créer une variable temp tmpArr pour stocker les bigArr et puis de modifier le contenu de tmpArr. en faisant cela, au lieu de la boucle à un subarray, le programme utilise le "=" de l'opérateur (c'est à dire attribuer opérateur) chaque fois que je veux créer un sous-tableau. il est donc crucial de la façon dont le "=" de l'opérateur travaille en vba. par exemple, si "=" en fait, les boucles de chaque élément dans la bigArr, alors le débit sera réduit.
    • alors qu'il se sent plus propre (codage sage) je présume que Join exécute sa propre de la boucle interne. J'avais pensé le code ci-dessus serait briser même ou à peu près avec la variante de la boucle de ré-écrire, au lieu de 4 à 5 fois plus lent.

    InformationsquelleAutor brettdj
  2. 2

    Réponse courte: non, pas d'

    Pas tout à fait aussi courte réponse: puisque vous êtes la création d'un sous-tableau avec les non 0/1 limites, pourquoi ne pas simplement passer une référence pour le tableau d'origine et les limites?

    BTW: une bonne ressource pour VBA tableau est CPearson du site http://www.cpearson.com/excel/vbaarrays.htm

    • Merci pour la réponse. Je suppose que j'ai besoin de le faire dans ce sale façon-là. En fait, l'une des raisons pour lesquelles je ne peut pas utiliser de référence et des limites est parce que j'ai besoin d'utiliser ces sous-réseaux pour les régressions, et, malheureusement, la régression n'a besoin de deux "propre" des tableaux sans éléments vides
    InformationsquelleAutor chris neilsen