prucommercialre.com


La identificación de celdas combinadas

Alan le preguntó si hay una manera de identificar rápida y fácilmente que las células se fusionan en un libro creado por otra persona. Hay, en realidad, de varias maneras diferentes que usted puede ir sobre la identificación de estas células.

Uno de los métodos para la identificación de las células es el uso de las funciones de búsqueda de Excel. Siga estos pasos:

  1. Presione Ctrl + F. Excel muestra la ficha 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 se expande para mostrar todas las opciones. (Ver Figura 1.)

    La identificación de celdas combinadas

    Figura 1. La ficha Buscar del cuadro de diálogo Buscar y reemplazar.

  3. Asegúrese de que el cuadro Buscar 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 aparece en la ficha Alineación. (Ver Figura 2.)

    La identificación de celdas combinadas

    Figura 2. La ficha Alineación del cuadro de diálogo Buscar formato.

  6. Asegúrese de que está seleccionada la casilla de verificación Combinar celdas (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 todos.

Excel busca cualquier celda combinada y si se encuentran, las células se muestran en la parte inferior del cuadro de diálogo Buscar y reemplazar. A continuación, puede seleccionar uno de los rangos que se encuentran y se selecciona el rango correspondiente en la hoja de trabajo.

Si lo prefiere, puede una macro para encontrar las diversas 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 como gama
Para cada c En ActiveSheet.UsedRange
Si c.MergeCells Entonces
MsgBox c.Address & "se fusiona"
End If
Siguiente
End Sub

Este particular macro etapas a través de todas las celdas de la hoja de trabajo (bueno, al menos los que están en la UsedRange) y, si la célula es parte de una celda combinada, se muestra un cuadro de mensaje. Tenga en cuenta que la propiedad pertinente que se comprueba es propiedad MergeCells. Esto se establece en True si la celda se fusiona con otra célula.

Por supuesto, una macro como este puede tardar bastante tiempo en ejecutarse si la hoja tiene un montón de células e incluso más si un buen número de esas células se fusionan. Su macro podría correr más rápido si no se detuvo en cada celda combinada y muestra 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 como gama
Para cada c En ActiveSheet.UsedRange
Si c.MergeCells Entonces
c.Interior.ColorIndex = 36
End If
Siguiente
End Sub

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

Función FindMerged3 (rCell como gama)
FindMerged3 = rCell.MergeCells
End Function

Con esta simple función que luego podría utilizar el formato condicional para resaltar alguna manera las células si se combinan. (Si la función devuelve True, el formato condicional se aplica cualquiera que sea el formato que especifique a la celda.)

Por último, si desea una lista de celdas que se combinan en la hoja de trabajo, sólo tiene que tener su puesto macro juntos la lista en lugar de colorear las celdas:

Sub FindMerged4 ()
Dim c como gama
Dim sMsg As String

sMsg = ""
Para cada c En ActiveSheet.UsedRange
Si c.MergeCells Entonces
Si sMsg = "" Then
sMsg = "celdas de la hoja fusionadas:" Y vbCr
End If
sMsg = sMsg y c.Address y vbCr
End If
Siguiente
Si sMsg = "" Then
sMsg = "No hay celdas de la hoja fusionadas."
End If

MsgBox sMsg
End Sub

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

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (12.385) se aplica a Microsoft Excel 2007 y 2010. Se puede encontrar una versión de este consejo para el más viejo interfaz de menú de Excel aquí: Identificación de celdas combinadas.