Utilisation du Convertir des valeurs séparées par des virgules VBA
By GUEST le mardi 24 décembre 2019
Publié dans Excel
Réponses 1
Aime 0
Vues 12.4K
Votes 0
L'utilisation de VBA pour convertir ma chaîne de virgule en lignes fonctionne très bien, mais maintenant je dois faire correspondre la cassure avec la valeur de la colonne A. Exemple
La colonne A contient "Arbres : la colonne B était la chaîne de virgules : Cornouiller, Frêne, Érable, Orme, Pomme.
Comment puis-je afficher en tant que :
[police=Calibri]Courant[/ Font]
[police=Calibri]Arbres[/ Font][police=Calibri]Cornouiller,Frêne,Érable,Orme,Pomme[/ Font]
[police=Calibri]Besoin[/ Font]
[police=Calibri]Arbres[/ Font][police=Calibri]Cornouiller[/ Font]
[police=Calibri]Arbres[/ Font][police=Calibri]Frêne[/ Font]
[police=Calibri]Arbres[/ Font][police=Calibri]Érable[/ Font]
[police=Calibri]Arbres[/ Font][police=Calibri]orme[/ Font]
[police=Calibri]Arbres[/ Font][font=Calibri]Pomme [/font]
Merci
Sous-texte publicToColumns()
Set ARrange = Range("A:A")
Set BRange = Range("B:B")
Définir CRange = Range("C:C")
Set DRange = Range("D:D")
Dim arr() comme chaîne
lr = Cells.Find("*", SearchOrder :=xlByRows, SearchDirection :=xlPrevious).Row
Set out = Feuilles de travail.Ajouter
out.Name = "out"
ligne de sortie = 2
Pour i = 2 À lr
    arr = Split(ARange(i), ",")
    Pour j = 0 Vers UBound(arr)
        out.Cells(outRow, 1) = Trim(arr(j))
        out.Cells(outRow, 2) = BRange(i)
        out.Cells (outRow, 3) = CRange (i)
        out.Cells(outRow, 4) = DRange(i)
        ligne de sortie = ligne de sortie + 1
    Suivant j
Suivant i
End Sub
Je n'ai pas fait les en-têtes ni traité correctement la feuille de sortie, mais vous pouvez voir essentiellement ce qui se passe.
Lewis-H
·
il y a des années 3
·
0 aime
·
Votes 0
·
0 Commentaires
·
Voir l'article complet