Astuces Excel
  1. Astuces Excel
  3. Séparer la string par contenu dans des collections distinctes (VBA)
Intereting Posts
Compter le nombre d'espaces avant une string dans Excel Événement de modification de la feuille de calcul – Colonnes cachées Collez la table Excel dans TinyMCE tout en conservant le format Utilisation de l'optimization contrainte – Création d'un programme de bénévolat optimal pour l'organisation du service communautaire Le process Excel ne se ferme pas, le code s'exécute toutes les deux fois Diviser les groupes d'introduction de colonne qui contiennent des valeurs de time VB.Net: Insérer des cases à cocher dans Excel Cells Variable de partage Excel VBA dans Userfrom Subs excel vba macro assigner des cases à cocher aux cellules dans une feuille différente Pouvons-nous empêcher une cellule d'une feuille excel de supprimer une opération? Message d'erreur 'Erreur d'exécution' 1004 'Erreur définie par l'application ou object défini lors de l'exécution Copier / coller la macro Boucler les cellules adjacentes puis descendre les rangées dans R Range.address ne correspond pas à l'adresse range.cell VBA password prompt lors de la fermeture excel Comment puis-je append des colonnes avec la même première colonne dans Excel?

Séparer la string par contenu dans des collections distinctes (VBA)

J'ai une collection qui a des strings comme: 

130each 09/01/2017 09/01/2017 12each 09/01/2017 09/01/2017 1each 09/01/2017 09/01/2017

Je reçois ces valeurs avec le code suivant dans ma feuille Excel: 

 Dim col as New Collection For i = 1 To lastRow If InStr(ws1.Cells(i, 1), "each") col.Add ws1.Cells(i, 1) End If Next i

Maintenant, je souhaite séparer les strings après le premier espace et stocker chaque partie dans deux collections distinctes. Exemple de deuxième collection et troisième collection devrait contenir ce qui suit: 

 130each [at index 0 of col2] 09/01/2017 09/01/2017 [at index 0 of col3] 12each [at index 1 of col2] 10/11/2017 10/11/2017 [at index 1 of col3] ...so on

Une idée sur la façon d'aborder ce que je sais, je vais faire une boucle dans la collection mais comment me séparerais-je dans deux collections distinctes après le premier espace?

Quelque chose comme ça: 

 Dim col2 As New Collection Dim col3 As New Collection Dim x As Variant For Each x In col Dim parts As Variant parts = Split(x, " ", 2) col2.Add parts(0) col3.Add parts(1) Next