Macro para unir celdas en una sola (curioso)
Macro para unir celdas en una sola (curioso): Implementando un pequeño sistema en excel para un cliente encontré que todos sus formatos tenían los títulos con salto de linea (pasaban de una celda hacia abajo) lo que me impedía realizar mi trabajo de automatización, por dicha razón se me ocurrió elaborar una pequeña instrucción (macro) algo curiosa pero útil que sirve para unir textos (concatenar) de diferentes celdas y combinarlas en una sola.
Su funcionamiento es bastante sencillo y basta con seleccionar el rango de datos que queremos unificar, luego presionamos el botón que ejecuta la macro y obtendremos como resultado la consolidación de los textos.
Dejo por aquí el código utilizado para concatenar la información que contienen las celdas de un rango determinado.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sub unir_celdas() celda = "" For Each Rng In Selection celda = celda & " " & Rng.Value Next Rng Application.DisplayAlerts = False With Selection .Merge .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .Orientation = 0 .MergeCells = True .WrapText = True .Orientation = 0 End With Application.DisplayAlerts = True ActiveCell.Value = celda End Sub |
Muy interesante…
Hola: excelente trabajo en verdad me ayuda mucho.
Gracias!!
Saludos desde México!!
Gracias por visitarnos, que gusto saber que el artículo fue útil para ti. Saludos
Hola de nuevo,
He sustituido (” “) por ( Chr(10) ) y ya me lo hace, pero me inserta un salto de línea al principio, ¿cómo lo podría evitar?
Gracias y saludos.
utiliza chr(34)
Hola, y gracias por compartir estas maravillas.
Yo quisiera en vez del espacio introducir un salto de línea. Intento hacerlo cambiando (” “) por caracter(10) pero me da el siguiente error:
Error de compilación:
No se ha definido Sub o Function
A ver si me podéis ayudar.
Gracias y saludos.
Ya te respondí es chr(34)
Soy nueva en macros, solicito tu ayuda, deseo insetar filas, pero que las nuevas filas insertadas mantenga su combinacion de formato, es decir, insertar filas que combinen 4 columnas, de la A a la F, en un determinado rango. Ayuda porfa!!!
ME GUSTO COMO CONCATENA EL MACRO, PERO COMO SE LE AGREGA UNA COMO ( , ) COMO SEPARADOR.
cambia el separador desde la macro “|”
Muy buen tema, me ayuda a entender macros pero no pude separar los sufijos y mantener una relación coherente entre mis datos pues si los nombres que deseo separar estuvieran así:
Juan Perez
Dr. Marco Aguilar
El primero serian 2 columnas y el segundo 3, al manejar decenas de datos esto se vuelve un dolor de cabeza… encontré un utilitario que me ayuda a hacer esto, espero que a alguien mas le sirva
http://www.ablebits.com/excel-split-names/index.php
Saludos.
Excelente, creo sin comentarios, los aportes acá son de verdad.
ya no estamos frente a esos tiempos que el conocimiento era de algunos, gracias.