¿Cómo encontrar celdas combinadas?

Cuando se tiene uno o varios conjuntos de celdas combinadas en la hoja activa y se desea identificar que celdas y rangos son, se hace uso de las siguientes propiedades:

-        Celda.MergeCells

-        Celda.MergeArea

La primera identifica si existen celdas combinadas en la hoja activada. La segunda, identifica el rango al que pertenece la celda combinada y arroja la información de los rangos. En caso la celda seleccionada no pertenezca a un conjunto de celdas combinadas el valor que arroja es la celda especifica.

Ejemplo:

En el siguiente ejemplo se tiene una hoja de Excel con algunos conjuntos de celdas combinadas, según la programación mostrada se busca identificar las celdas que forman parte de algún conjunto de celdas combinadas y mostrar sus respectivas ubicaciones (columna, fila). Adicionalmente se muestra un cuadro de texto con los rangos de los diferentes conjuntos de celdas combinadas.

Sub EncontrarCeldasCombinadas()

For Each celda In ActiveSheet.UsedRange

If celda.MergeCells = True Then

mensaje = mensaje & celda.MergeArea.Address & Chr(10)

mensaje2 = mensaje2 & celda.Address & Chr(10)

End If

Next

MsgBox mensaje2

MsgBox mensaje

End Sub

A continuación se muestra el lenguaje en VBA y los resultados que figuran en el programa de Excel:

Lenguaje VBA

(Para mayor visualización de  la imagen, hacer click en la misma)

Resultados en Excel

(Para mayor visualización de  la imagen, hacer click en la misma)

Para mayor detalle sobre el lenguaje de programación descargar el siguiente archivo:

Ejemplo encontrar celdas combinadas - Marcia Guzmán

Elaborado por: Marcia Lucero Guzmán Moncada.