Sub SplitCells ()
Schemerige LastR zoals lang
Schemerige DestR zoals lang
Schemerige arr als Variant
Schemerige Teller zoals lang
Schemerige Counter2 zoals lang
LastR = Cellen (Rows.Count, 1). Eind (xlUp). Rij
Voor Teller = 1 aan LastR
Als Cellen (Tegen, 1) <> "" toen
arr = verdeel (Cellen (Tegen, 1), Chr (10))
Voor Counter2 = 0 aan UBound (arr)
DestR = DestR + 1
Cellen (DestR, 2) = arr (Counter2)
Daarna
Eind als
Daarna
„Gedaane“ MsgBox
Sub van het eind
|