Cómo combinar celdas utilizando Excel VBA

Utilización del método «MergeArea» del objeto «Range».

El método «MergeArea» del objeto «Range« se utiliza para devolver un objeto «Range« que representa un rango de celdas combinadas que contiene una celda específica. Este método no tiene argumentos y sólo funciona en celdas que ya están combinadas con otras celdas.

Para combinar celdas utilizando el método «MergeArea», podemos utilizar primero la propiedad «Combinar» o el método «CombinarCeldas» para combinar el rango de celdas deseado y, a continuación, utilizar el método «CombinarÁrea» para hacer referencia al rango de celdas combinado. El siguiente ejemplo de código muestra cómo combinar las celdas G1 a I3 utilizando la propiedad «Combinar» y, a continuación, utilizar el método «CombinarÁrea» para hacer referencia a ese rango de celdas combinadas.

Sub MergeCellsUsingMergeAreaMethod()
 'Combining cells G1 to I3
 Range( “G1:I3” ). Merge = True
 'Refers to a range of merged cells containing G2 cells
 Range( “G2” ). MergeArea.Select
End Sub

Podemos ver que las celdas G1 a I3 se han fusionado en una celda grande, y el valor de la celda G1 sigue mostrándose en el centro de la celda fusionada. También podemos ver que el rango de celdas combinadas ha sido seleccionado por nuestro código, utilizando el método «MergeArea» para referirse al rango de celdas combinadas que contiene la celda G2.

Para desagrupar celdas utilizando el método «MergeArea», podemos utilizar la propiedad «Merge» o el método «MergeCells» primero para desagrupar el rango de celdas deseado y, a continuación, utilizar el método «MergeArea» para hacer referencia a ese rango de celdas individuales. El siguiente ejemplo de código muestra cómo unir las celdas G1 a I3 utilizando la propiedad «Combinar» y, a continuación, utilizar el método «CombinarÁrea» para hacer referencia a ese rango de celdas individuales.

Sub UnMergeCellsUsingMergeAreaMethod()
 'Unmerge cells G1 to I3
 Range( “G1:I3” ). Merge = False
 'Refers to the range of individual cells containing G2 cells
 Range( “G2” ). MergeArea.Select
End Sub

Podemos ver que las celdas G1 a I3 han sido separadas en celdas individuales, y el valor de la celda G1 permanece mostrado en la celda G1. También podemos ver que el rango de esas celdas individuales ha sido seleccionado por nuestro código, utilizando el método MergeArea para referirse al rango de celdas individuales que contienen la celda G2.

Using the UnMerge Method of an Object «Range»

El método «UnMerge» del objeto «Range« se utiliza para deshacer la fusión de todas las celdas combinadas de un rango de celdas. Este método no tiene argumentos y sólo funciona en rangos de celdas que contengan al menos una celda combinada.

Para desunir celdas utilizando el método «UnMerge», podemos ejecutar el método para el rango de celdas que queremos dividir. El siguiente ejemplo de código muestra cómo descompilar todas las celdas combinadas de una hoja de cálculo activa mediante el método «UnMerge«.

Sub UnMergeCellsUsingUnMergeMethod()
 'Unmerge all merged cells in the active worksheet
 ActiveSheet.Cells.UnMerge
End Sub

Podemos ver que todas las celdas combinadas de la hoja de cálculo activa se han separado en celdas individuales, y los valores de esas celdas siguen mostrándose en sus ubicaciones originales.