En este tutorial, veremos las diferentes formas en que puede fusionar celdas usando VBA.
Fusionar celdas usando VBA
Puede fusionar celdas en VBA utilizando el método Range.Merge. El siguiente código fusionará las celdas A1: C1:
12345 | Sub MergingCells ()Rango ("A1: C1"). CombinarEnd Sub |
El resultado es:
Separar celdas usando VBA
Puede separar un rango de celdas combinado utilizando el método Range.UnMerge. Supongamos que ha fusionado el rango de celdas A1: D1. Puede utilizar una de las referencias de celda en el rango para separar las celdas. El siguiente código le muestra cómo separar las celdas A1: D1, en este caso estamos usando la celda B1:
12345 | Sub UnmergeCells ()Rango ("B1"). Anular combinaciónEnd Sub |
Más ejemplos de fusión
Combinar filas usando VBA
Puede fusionar filas usando VBA especificando los números de fila que desea fusionar. Tenemos el texto en la celda A1 que se muestra a continuación:
El siguiente código fusionará las filas 1-4:
12345 | Sub MergeRows ()Rango ("1: 4"). CombinarEnd Sub |
El resultado es:
Combinar columnas usando VBA
Puede combinar columnas usando VBA y las letras de las columnas. El siguiente código fusionará las columnas A: C.
12345 | Sub MergeColumns ()Rango ("A: C"). CombinarEnd Sub |
El resultado es:
Fusionar y centrar el contenido de la celda horizontalmente
Puede fusionar y centrar el contenido de la celda horizontalmente en un rango de celdas. Debe fusionar las celdas de interés y también establecer la propiedad de alineación horizontal del objeto de rango en el centro. Tenemos el texto en la celda A1 como se muestra a continuación:
El siguiente código fusionará el rango de celdas A1: D1 y centrará el contenido de la celda A1 horizontalmente en este rango de celdas:
123456 | Sub MergeandCenterContentsHorizontally ()Rango ("A1: D1"). CombinarRango ("A1: D1"). HorizontalAlignment = xlCenterEnd Sub |
El resultado es:
Combinar y centrar el contenido de la celda verticalmente
Puede fusionar y centrar el contenido de la celda verticalmente en un rango de celdas. Debe fusionar las celdas de interés y también establecer la propiedad de alineación vertical del objeto de rango en el centro. Tenemos el texto en la celda A1 como se muestra a continuación:
El siguiente código fusionará el rango de celdas A1: A4 y centrará el contenido de la celda A1 verticalmente en este rango de celdas:
123456 | Sub MergeandCenterContentsVertically ()Rango ("A1: A4"). CombinarRango ("A1: D1"). VerticalAlignment = xlCenterEnd Sub |
El resultado es:
Fusionar celdas en un rango de celdas
Puede combinar celdas en un rango de celdas. Debe establecer el parámetro opcional Across del método Merge en True. Tenemos el texto en la celda A1 como se muestra a continuación:
El siguiente código fusionará el rango de celdas A1: D1:
12345 | Sub MergeCellsAcross ()Rango ("A1: D1"). Combinar en: = VerdaderoEnd Sub |
El resultado es: