Come aggiungere una linea di confine sotto quando il valore cambia in una colonna di Excel?
C'è un elenco di dati che include valori di ripetizione e, per classificare meglio i valori, aggiungo una linea di confine sotto quando il valore cambia nell'elenco come mostrato nell'immagine sottostante. In questo articolo, parlerò di come aggiungere rapidamente la linea di confine sotto quando il valore cambia in una colonna di Excel.
Aggiungi una linea di confine sotto quando il valore cambia con VBA
Aggiungi una linea di confine sotto quando il valore cambia con VBA
Ovviamente, non esiste una funzione incorporata in Excel che possa aiutarti ad aggiungere una linea di confine sotto quando il valore cambia, ma c'è un codice VBA che posso introdurre.
1. Stampa Alt + F11 tasti per abilitare Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice sottostante nello script vuoto Module.
VBA: aggiungi la linea di confine sotto quando il valore cambia
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. Stampa F5 tasto per eseguire il codice. Quindi le linee di confine sono state aggiunte di seguito quando il valore cambia nella selezione A2: A.
Kutools for Excel, con oltre 300 funzioni utili, rende il tuo lavoro più facile. |
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!