Wie füge ich unten eine Grenzlinie hinzu, wenn sich der Wert in einer Excel-Spalte ändert?
Es gibt eine Liste von Daten, die Wiederholungswerte enthält. Zur besseren Klassifizierung der Werte füge ich unten eine Grenzlinie hinzu, wenn sich der Wert in der Liste ändert (siehe Abbildung unten). In diesem Artikel werde ich darüber sprechen, wie Sie schnell eine Grenzlinie hinzufügen können, wenn sich der Wert in einer Excel-Spalte ändert.
Fügen Sie unten eine Grenzlinie hinzu, wenn sich der Wert mit VBA ändert
Fügen Sie unten eine Grenzlinie hinzu, wenn sich der Wert mit VBA ändert
Natürlich gibt es in Excel keine integrierte Funktion, mit der Sie Grenzwerte hinzufügen können, wenn sich der Wert ändert, aber ich kann einen VBA-Code einführen.
1. Drücken Sie Alt + F11 Schlüssel zum Aktivieren Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das leere Skript ein Module.
VBA: Fügen Sie unten eine Grenzlinie hinzu, wenn sich der Wert ändert
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. Drücken Sie F5 Schlüssel zum Ausführen des Codes. Dann wurden die Randlinien unten hinzugefügt, wenn sich der Wert in der Auswahl A2: A ändert.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!