Cum se adaugă linia de margine mai jos atunci când valoarea se schimbă într-o coloană Excel?
Există o listă de date care include valori repetate și, pentru o mai bună clasificare a valorilor, adaug o linie de margine mai jos atunci când valoarea se schimbă în listă, așa cum este prezentat mai jos. În acest articol, voi vorbi despre cum să adăugați rapid linia de margine mai jos atunci când valoarea se schimbă într-o coloană Excel.
Adăugați o linie de margine mai jos atunci când valoarea se schimbă cu VBA
Adăugați o linie de margine mai jos atunci când valoarea se schimbă cu VBA
Evident, nu există nicio funcție încorporată în Excel care să vă ajute să adăugați o linie de margine mai jos atunci când valoarea se schimbă, dar există un cod VBA pe care îl pot introduce.
1. presa Alt + F11 tastele pentru a activa Microsoft Visual Basic pentru aplicații fereastră.
2. clic Insera > Module, și inserați codul de mai jos în spațiul liber Module.
VBA: adăugați linia de margine mai jos atunci când valoarea se schimbă
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. presa F5 tasta pentru a executa codul. Apoi, liniile de margine vor fi adăugate sub celulele în care valoarea se modifică în intervalul A2:A.
Kutools pentru Excel - Supercharge Excel cu peste 300 de instrumente esențiale. Bucurați-vă de funcțiile AI gratuite permanent! Ia-L Acum
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!