SplitCells secundario ()
LastR dévil como de largo
DestR dévil como de largo
Arr dévil como variante
Contador dévil como de largo
Counter2 dévil como de largo
LastR = células (Rows.Count, 1).End (xlUp). Fila
Para el contador = 1 a LastR
Si células (contrarias, 1) <> "" entonces
el arr = partió (las células (contrarias, 1), Chr (10))
Para Counter2 = 0 a UBound (arr)
DestR = DestR + 1
Células (DestR, 2) = arr (Counter2)
Después
Terminar si
Después
MsgBox “hecho”
Submarino del extremo
|