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.

notițe: În codul VBA, A2: A este intervalul pe care doriți să adăugați linia de margine de mai jos atunci când valoarea acestuia se modifică, îl puteți modifica după cum aveți nevoie.

Sfat: Dacă doriți să inserați un rând de titlu în fiecare al doilea rând, puteți încerca să aplicați Introduceți rândurile de titlu utilitatea Kutools pentru Excel pentru a rezolva rapid această lucrare, așa cum se arată mai jos.