Sub SplitCells ()
Dunkla LastR som Long
Dunkla DestR som Long
Dunkel arr som Variant
Dunkelt kontra som Long
Dunkel Counter2 som Long
LastR = celler (Rows.Count, 1). Avsluta (xlUp). Ro
För kontra = 1 till LastR
Om "" för celler (kontra, 1 <> ), därefter
arr = splittring (celler (kontra, 1), Chr (10))
För Counter2 = 0 till UBound (arr)
DestR = DestR + 1
Celler (DestR, 2) = arr (Counter2)
Därefter
Avsluta om
Därefter
”Gjorda” MsgBox,
Avsluta suben
|