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 :
Merci
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] |
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.
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.
- Page:
- 1
Il n'y a pas encore de réponse faites pour ce poste.