SplitCells secondario ()
LastR fioco come lungamente
DestR fioco come lungamente
Arr fioco come variante
Contatore fioco come lungamente
Counter2 fioco come lungamente
LastR = cellule (Rows.Count, 1).End (xlUp). Fila
Per il contatore = 1 a LastR
Se cellule (contro, 1) <> "" allora
il arr = ha spaccato (cellule (contro, 1), Chr (10))
Per Counter2 = 0 a UBound (arr)
DestR = DestR + 1
Cellule (DestR, 2) = arr (Counter2)
Dopo
Concluder se
Dopo
MsgBox “fatto„
Sommergibile dell'estremità
|