SplitCells secundário ()
LastR não ofuscante como por muito tempo
DestR não ofuscante como por muito tempo
Arr não ofuscante como a variação
Contador não ofuscante como por muito tempo
Counter2 não ofuscante como por muito tempo
LastR = pilhas (Rows.Count, 1). Extremidade (xlUp). Fileira
Para o contador = 1 a LastR
Se "" das pilhas (contrárias, 1 <> ) então
arr = separação (pilhas (contrárias, 1), Chr (10))
Para Counter2 = 0 a UBound (arr)
DestR = DestR + 1
Pilhas (DestR, 2) = arr (Counter2)
Em seguida
Terminar se
Em seguida
MsgBox “feito”
Submarino da extremidade
|