Alan preguntó si existe una manera de identificar rápida y fácilmente qué celdas se fusionan en un libro de trabajo creado por otra persona. En realidad, existen varias formas diferentes de identificar estas células.

Un método para identificar las celdas es utilizar las capacidades de búsqueda de Excel. Siga estos pasos:

  1. Presione Ctrl + F. Excel muestra la pestaña Buscar del cuadro de diálogo Buscar y reemplazar.

  2. Si es necesario, haga clic en el botón Opciones para asegurarse de que el cuadro de diálogo Buscar y reemplazar esté expandido para mostrar todas las opciones. (Ver figura 1)

  3. Asegúrese de que el cuadro Buscar qué esté vacío.

  4. Con el punto de inserción en el cuadro Buscar, haga clic en el botón Formato. Excel muestra el cuadro de diálogo Buscar formato.

  5. Asegúrese de que se muestre la pestaña Alineación. (Ver figura 2)

  6. Asegúrese de que la casilla de verificación Combinar celdas esté seleccionada (debe haber una marca en la casilla de verificación).

  7. Haga clic en Aceptar para cerrar el cuadro de diálogo Buscar formato.

  8. Haga clic en Buscar todo.

Excel busca las celdas combinadas y, si se encuentran, las celdas se muestran en la parte inferior del cuadro de diálogo Buscar y reemplazar. Luego, puede seleccionar uno de los rangos encontrados y el rango correspondiente se selecciona en la hoja de trabajo.

Si lo prefiere, puede crear una macro para encontrar las distintas celdas combinadas en la hoja de trabajo. La siguiente macro muestra quizás el método más simple de hacer esto:

Sub FindMerged1()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             MsgBox c.Address & " is merged"

End If     Next End Sub

Esta macro en particular recorre todas las celdas de la hoja de trabajo (bueno, al menos las que están en el rango usado) y, si la celda es parte de una celda combinada, se muestra un cuadro de mensaje. Tenga en cuenta que la propiedad pertinente que se está comprobando es la propiedad MergeCells. Se establece en Verdadero si la celda se fusiona con otra celda.

Por supuesto, una macro como esta puede tardar bastante en ejecutarse si la hoja de trabajo tiene muchas celdas e incluso más si se fusiona una buena cantidad de esas celdas. Su macro se ejecutaría más rápido si no se detuviera en cada celda combinada y mostrara un cuadro de diálogo. La siguiente versión tiene un enfoque diferente, llenando cada celda combinada con un color amarillo:

Sub FindMerged2()

Dim c As Range     For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             c.Interior.ColorIndex = 36         End If     Next End Sub

Una variación de este enfoque podría ser crear una función definida por el usuario que simplemente devuelva Verdadero o Falso si la celda está fusionada:

Function FindMerged3(rCell As Range)

FindMerged3 = rCell.MergeCells End Function

Con esta función simple, puede usar el formato condicional para resaltar de alguna manera las celdas si están fusionadas. (Si la función devuelve True, entonces el formato condicional aplica cualquier formato que especifique a la celda.)

Finalmente, si desea una lista de celdas que se fusionan en la hoja de trabajo, simplemente puede hacer que su macro junte la lista en lugar de colorear las celdas:

Sub FindMerged4()

Dim c As Range     Dim sMsg As String

sMsg = ""

For Each c In ActiveSheet.UsedRange         If c.MergeCells Then             If sMsg = "" Then                 sMsg = "Merged worksheet cells:" & vbCr             End If             sMsg = sMsg & c.Address & vbCr         End If     Next     If sMsg = "" Then         sMsg = "No merged worksheet cells."

End If

MsgBox sMsg End Sub

Esta variación muestra un cuadro de mensaje único al final de la macro, que indica las direcciones de las celdas combinadas ubicadas en la hoja de trabajo.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3905) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

enlace: / excelribbon-Identifying_Merged_Cells [Identificación de celdas fusionadas].