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