¿Cómo colorear filas alternas en una vista Combinada en Excel?

Es muy útil aplicar un color diferente a filas alternas en grandes volúmenes de datos para facilitar su lectura, pero a veces puede haber algunas celdas combinadas en sus datos. Para resaltar las filas alternas con un color diferente en presencia de celdas combinadas, tal como se muestra en la siguiente captura de pantalla, ¿cómo resolvería este problema en Excel?

Colorear filas alternas para Combinada con Usar formato condicional

Colorear filas alternas para Combinada con código VBA

---

Colorear filas alternas para Combinada con Usar formato condicional

En Excel, la potente función Usar formato condicional le permite realizar esta tarea lo más rápido posible. Siga estos pasos:

1. Seleccione el rango de datos que contiene las celdas combinadas que desea colorear de forma alterna y, a continuación, haga clic en Inicio > Usar formato condicional > Nueva regla. Consulte la captura de pantalla:

2. En el cuadro de diálogo Nueva regla de formato que aparece, realice las siguientes operaciones:

• Seleccione Usar una fórmula para determinar qué celdas aplicar formatoopción del cuadro Seleccionar un tipo de reglade lista;
• A continuación, introduzca esta fórmula: =MOD(COUNTA($A$2:$A2),2)=0 en el cuadro de texto Aplicar formato a los valores donde esta fórmula sea verdadera.
• Nota: A2 es la primera celda de su rango de datos.

3. A continuación, haga clic en el botón Formato para abrir el cuadro de diálogo Establecer formato de celda. En la pestaña Relleno, elija un color con el que desee resaltar las filas. Consulte la captura de pantalla:

4. Haga clic en Aceptar > Aceptar para cerrar los cuadros de diálogo, y las filas combinadas se rellenarán con el color especificado. Consulte la captura de pantalla:

5. Siga haciendo clic en Inicio > Usar formato condicional > Nueva regla para abrir el cuadro de diálogo Nueva regla de formato y realice las siguientes operaciones:

• Seleccione Usar una fórmula para determinar qué celdas aplicar formatoopción del cuadro Seleccionar un tipo de reglade lista;
• A continuación, introduzca esta fórmula:=MOD(COUNTA($A$2:$A2),2)=1en el cuadro de texto Aplicar formato a los valores donde esta fórmula sea verdadera.
• A continuación, haga clic en el botón Formato para elegir otro color con el que resaltar las filas.
• Nota: A2 es la primera celda de su rango de datos.

6. A continuación, haga clic en Aceptar > Aceptar para cerrar los cuadros de diálogo. Ahora podrá ver que el rango de Seleccionar Datos se ha sombreado con dos colores diferentes de forma alterna según las Combinada, tal como se muestra en la siguiente captura de pantalla:

---

Colorear filas alternas para Combinada con código VBA

Además del método habitual mediante «Usar formato condicional», también puede emplear un código VBA para aplicar de forma sencilla colores alternos a las filas de Combinada.

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. A continuación, haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.

Código VBA: Colorear filas alternas para Combinada

Sub Kutools_AlternateColor()
'Update by ExtendOffice
Dim xRg As Range
Dim xCRg As Range
Dim xIRg As Range
Dim xC1, xC2 As Integer
Dim xR1 As Integer
Dim xCnt As Long
Dim xLColor, xDCR1, xDCR2 As Long
Set xRg = Application.InputBox("Please select the data range:", "KutoolsforExcel", "", Type:=8)
If TypeName(xRg) = "Nothing" Then Exit Sub
Set xCRg = Application.InputBox("Please select the column with the merged cells:", "KutoolsforExcel", "", Type:=8)
If TypeName(xCRg) = "Nothing" Then Exit Sub
Set xIRg = Intersect(xRg, xCRg)
If xIRg Is Nothing Then
MsgBox "the data range doesn't contain merged cells"
Exit Sub
End If
xC1 = xRg.Column
xC2 = xIRg.Column
xR1 = xRg.Row
xLColor = RGB(221, 235, 247)
xDCR1 = RGB(221, 235, 247)
xDCR2 = RGB(250, 232, 222)
xRw = 0
Do
xLColor = xDCR1 + xDCR2 - xLColor
xCnt = Cells(xRw + xR1, xC2).MergeArea.Rows.Count
Cells(xRw + xR1, xC1).Resize(xCnt, xRg.Columns.Count).Interior.Color = xLColor
xRw = xRw + xCnt
Loop While xRw < xRg.Rows.Count - 1
End Sub

3. A continuación, pulse la tecla F5 para ejecutar este código. En el primer cuadro emergente, seleccione el rango de datos que desea utilizar; consulte la captura de pantalla:

4. En el segundo cuadro emergente, seleccione la columna combinada; consulte la captura de pantalla:

5. A continuación, haga clic en el botón Aceptar y las filas se sombrearán de forma alterna según la combinación, tal como se muestra en la siguiente captura de pantalla:

---

Vídeo: Colorear filas alternas para Combinada

---

Más artículos relacionados: