SplitCells secondaire ()
Faible LastR en tant que longtemps
Faible DestR en tant que longtemps
Faible arr comme variante
Faible compteur en tant que longtemps
Faible Counter2 en tant que longtemps
LastR = cellules (Rows.Count, 1).End (xlUp). Rangée
Pour le compteur = 1 à LastR
Si cellules (contre-, 1) <> "" alors
l'arr = s'est dédoublé (cellules (contre-, 1), Chr (10))
Pour Counter2 = 0 à UBound (arr)
DestR = DestR + 1
Cellules (DestR, 2) = arr (Counter2)
Après
Finir si
Après
MsgBox « fait »
Sous-marin d'extrémité
|