Hvordan flyttes hele rækken til bunden af det aktive ark baseret på celleværdien i Excel?
For at flytte hele rækken til bunden af det aktive ark baseret på celleværdi i Excel, prøv VBA-koden i denne artikel.
Flyt hele rækken til bunden af det aktive ark baseret på celleværdi med VBA-kode
Flyt hele rækken til bunden af det aktive ark baseret på celleværdi med VBA-kode
For eksempel, som vist nedenstående skærmbillede, hvis en celle i kolonne C indeholder en bestemt værdi "Udført", skal du flytte hele rækken til bunden af det aktuelle ark. Gør som følger.
1. Trykke andre+ F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i vinduet.
VBA-kode: Flyt hele rækken til bunden af det aktive ark baseret på celleværdien
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
Bemærk: I VBA-koden, “Udført”Er den celleværdi, du vil flytte hele rækken baseret på. Du kan ændre det efter behov.
3. Tryk på F5 nøgle for at køre koden og derefter poppe op Kutools til Excel dialogboksen, skal du vælge det kolonneområde, hvor den bestemte værdi findes, og derefter klikke på OK .
Efter at klikke på OK -knappen flyttes hele rækken, der indeholder værdien "Udført" i den angivne kolonne, automatisk til bunden af dataområdet.
Relaterede artikler:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!