Astuces Excel
  1. Astuces Excel
  3. Mode direct pour mettre une colonne dans un tableau dans VBA
Intereting Posts
Tableau de décalage dynamic Excel avec critères de résultat Comment puis-je formater datatables exscopes dans le file excel à l'aide de la fonction Php Pack? Excel Vba – séquence de nombre de groupe dans une string Réinitialisation de la valeur de la variable publique appelée dans un autre module, Excel VBA Convertir xls en csv et créer / mettre à jour InMemoryUploadedFile Django Sur le changement de cellule, prenez-vous la valeur de la cellule active et searchz la valeur dans une colonne? Runtime Error 1004 Copy Formula Array Excel VBA – automatique si Cell A est égal à X puis copyz et collez dans Cell B Plage de copy de Excel vers Powerpoint et modification de l'alignment avec vba Est-il possible de tester / returnner si une cellule est fusionnée SANS VBA Excel: reference à la plage dans une autre feuille avec input entière Positionner une forme dans Excel en fonction de son point central Fonction VLOOKUP pour modifier datatables de la colonne Générer une feuille de count-rendu des votes à partir d'une autre feuille ne peut pas find l'isam installable même

Mode direct pour mettre une colonne dans un tableau dans VBA

Je veux mettre les valeurs d'une colonne dans un tableau ou une list, sans avoir à faire une boucle for.

Donc, fondamentalement, si j'ai: 

Col A --------- 212 411 432

Je souhaite mettre ces valeurs dans un tableau ou une list. C'est ainsi que je pense à le faire, mais je ne connais pas la syntaxe VBA:

  1. reference Col A en quelque sorte (c.-à-d. myColumn = column ("Col A")
  2. insérez les valeurs de colonne dans le tableau (c.-à-d. myArray = myColumn

J'apprécie ton aide!

Voici un moyen: 

 Sub dural() Dim myColumn As Range Dim myArray() as Variant Set myColumn = Range("A1:A3") myArray = myColumn For X = 1 To 3 MsgBox myArray(X, 1) Next X End Sub

Il existe des façons de rendre la taille de la gamme et de la variable du tableau.

Essaye ça 

 Sub Main() Dim arr() As Variant arr = Range("A1:A3") For i = LBound(arr) To UBound(arr) Debug.Print arr(i, 1) Next End Sub

En travaillant également avec une seule colonne ou une seule ligne, vous pouvez utiliser TRANSPOSE pour créer un tableau variant 1D , par opposition au tableau 2D par défaut (comme Santosh l'a fait).

Cette méthode 1D est utile en combinaison avec les fonctions Filter , Join et Split , comme s'il est possible de remplir un tableau avec des nombres de lignes qui correspondent à un certain critère sans boucle? 

 Sub OneD() Dim arr arr = Application.Transpose(Range("A1:A3").Value2) End Sub

ou 

 Sub TwoD() Dim arr arr = Range("A1:A3").Value2 End Sub