Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

¿Cómo encontrar celdas combinadas?

| 3 Comments

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

VBA

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

Resultados en Excel

Excel 1

Excel 2

(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.

3 Comments

  1. Como hago para borrar contenido celdas desbloqueadas incluso combinadas en diferentes hojas mediante una macro?

  2. COMO PUEDO IDENTIFICAR Y DESHACER CELDAS COMBINADAS EN TODA UNA HOJA DE UN LIBRO DE EXCEL?

  3. Mil gracias! super ayuda!

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5