Extraer a columnas, varias lineas en una misma celda.
Buenas tardes.
Tengo un fichero excel con varias columnas, en el cual, en la columna A, tengo unas celdas cuyo contenido son varias lineas separadas entre si con un salto de carro, tal como presento a continuación:
<strong style="line-height: 1.5em;">
<strong style="line-height: 1.5em;">NOMBRE DEL CLIENTE
DIRECCIÓN DEL CLIENTE
CÓDIGO POSTAL POBLACIÓN - PROVINCIA PAÍS
TELÉFONO CLIENTE
Cada linea puede tener diferentes tamaños entre una celda y otra.
Necesito sacar cada linea de cada celda en columnas distintas para poder procesar el fichero Excel.
Gracias de antemano y un saludo,
Si por favor.
En la columna H (ya que tengo datos en las columnas anteriores).
Gracias y un saludo,
Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: extraer
9. Aceptar.
10. Para ejecutarla dale click a la imagen.
Sub extraer()
'Por.DAM
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
cad = ""
c = Cells(i, "A")
j = 8
For k = 1 To Len(c)
If Asc(Mid(c, k, 1)) = 10 Then
Cells(i, j) = cad
cad = ""
j = j + 1
Else
cad = cad & Mid(c, k, 1)
End If
Next
Cells(i, j) = cad
Next
End Sub Saludos.Dante Amor
Si es lo que necesitas.
