Table des matières
Ce tutoriel montrera comment diviser des chaînes en cellules.
Diviser la chaîne en cellules
En VBA, nous pouvons utiliser la fonction Split pour diviser une chaîne de texte en un tableau.
Remarque : nous avons écrit un méga-guide complet sur l'utilisation de la fonction Split dans VBA. Nous vous recommandons fortement de le vérifier.
Ensuite, nous pouvons parcourir le tableau en produisant le texte fractionné dans des cellules Excel :
| 12345678910111213141516171819 | Sub SplitBySemicolonExample()'Définir les variablesDim MyArray() en tant que chaîne, MyString en tant que chaîne, I en tant que variante, N en tant qu'entier'Exemple de chaîne avec des délimiteurs points-virgulesMyString = "[email protected];[email protected];[email protected];[email protected]"'Utiliser la fonction Split pour diviser les composants de la chaîneMonTableau = Split(MaChaîne, ";")'Effacer la feuille de calculActiveSheet.UsedRange.Clear'parcourir le tableauPour N = 0 à UBound (MyArray)'Placez chaque adresse e-mail dans la première colonne de la feuille de calculPlage("A" & N + 1).Valeur = MonTableau(N)N suivantFin du sous-marin |
Alternativement, nous pouvons utiliser la fonction Transpose pour afficher le tableau dans une feuille de calcul :
| 12345678910111213 | Sous CopyToRange()'Créer des variablesDim MyArray() en tant que chaîne, MyString en tant que chaîne'Exemple de chaîne avec des délimiteurs d'espaceMyString = "Un,Deux,Trois,Quatre,Cinq,Six"'Utiliser la fonction Split pour diviser les composants de la chaîneMonTableau = Split(MaChaîne, ",")'Copier le tableau dans la feuille de calculRange("A1:A" & UBound(MyArray) + 1).Value = WorksheetFunction.Transpose(MyArray)Fin du sous-marin |
