Macro para extraer renglones de una celda "alt+enter"
Hola, necesito su ayuda, verán.. Tengo un columna (A) muy extensa en excel cada celda está escrita en "N" líneas utilizando "Alt + Enter"
Este es un ejemplo :
- La celda dice (ojo que es una sola celda con varias líneas) :
Servicios administrativos
OC:AFCISKNSDLLJFA
NOMBRE RECURSO1
NOMBRE RECURSO2
NOMBRE RECURSO N...
-Lo que necesito es que cada una de las líneas se pase a las "N" columnas a la derecha, ejemplo de los datos anteriores,
COL B= Servicios administrativos, COL C= OC:AFCISKNSDLLJFA, COL D=NOMBRE RECURSO1, COL E=NOMBRE RECURSO2, y así hasta que termine de sacar los datos de una celda saltar a la siguiente.
Utilizo office 2010
Desde ya muchas gracias por su ayuda
1 respuesta
Respuesta de Dante Amor
1
Utiliza la siguiente macro
Sub separarcelda()
'Por.DAM
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
k = 2
ini = 1
For j = 1 To Len(Cells(i, "A"))
If Asc(Mid(Cells(i, "A"), j, 1)) = 10 Then
Cells(i, k) = Mid(Cells(i, "A"), ini, j - ini)
k = k + 1
ini = j
End If
Next
If ini < j Then Cells(i, k) = Mid(Cells(i, "A"), ini, j - ini)
Next
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
