¿Cómo agregar una línea de borde a continuación cuando el valor cambia en una columna de Excel?
Hay una lista de datos que incluye valores repetidos, y para clasificar mejor los valores, agrego una línea de borde debajo cuando el valor cambia en la lista como se muestra a continuación. En este artículo, hablaré sobre cómo agregar rápidamente una línea de borde a continuación cuando el valor cambia en una columna de Excel.
Agregue la línea de borde a continuación cuando el valor cambie con VBA
Agregue la línea de borde a continuación cuando el valor cambie con VBA
Obviamente, no hay una función incorporada en Excel que pueda ayudarlo a agregar una línea de borde a continuación cuando cambia el valor, pero hay un código VBA que puedo presentar.
1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el código siguiente en el script en blanco móduloe.
VBA: agregue la línea de borde a continuación cuando cambie el valor
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3. Prensa F5 tecla para ejecutar el código. Luego, las líneas de borde se han agregado debajo cuando el valor cambia en la selección A2: A.
| Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
