Wie verschiebe ich die gesamte Zeile basierend auf dem Zellenwert in Excel an den unteren Rand des aktiven Blattes?
Versuchen Sie den VBA-Code in diesem Artikel, um die gesamte Zeile basierend auf dem Zellenwert in Excel an den unteren Rand des aktiven Blattes zu verschieben.
Verschieben Sie die gesamte Zeile basierend auf dem Zellenwert mit VBA-Code an den unteren Rand des aktiven Blattes
Wenn beispielsweise eine Zelle in Spalte C, wie im folgenden Screenshot gezeigt, einen bestimmten Wert "Fertig" enthält, verschieben Sie die gesamte Zeile an den unteren Rand des aktuellen Blattes. Bitte gehen Sie wie folgt vor.
1. Drücken Sie Andere+ F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Fenster ein.
VBA-Code: Verschieben Sie die gesamte Zeile basierend auf dem Zellenwert an den unteren Rand des aktiven Blattes
Sub MoveToEnd()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xEndRow As Long
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
xEndRow = xRg.Rows.Count + xRg.Row
Application.ScreenUpdating = False
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) = "Done" Then
xRg.Cells(I).EntireRow.Cut
Rows(xEndRow).Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub
Note: Im VBA-CodeErledigt ”Ist der Zellenwert, auf dessen Grundlage Sie die gesamte Zeile verschieben. Sie können es nach Bedarf ändern.
3. Drücken Sie die Taste F5 Schlüssel, um den Code auszuführen, dann im Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den Spaltenbereich aus, in dem der bestimmte Wert vorhanden ist, und klicken Sie dann auf OK .
Nach einem Klick auf die OK Mit der Schaltfläche wird die gesamte Zeile, die den Wert "Fertig" in der angegebenen Spalte enthält, automatisch an den unteren Rand des Datenbereichs verschoben.
In Verbindung stehende Artikel:
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!