Hoe verplaats je de hele rij naar de onderkant van het actieve blad op basis van de celwaarde in Excel?
Probeer de VBA-code in dit artikel om de hele rij naar de onderkant van het actieve blad te verplaatsen op basis van de celwaarde in Excel.
Verplaats de hele rij naar de onderkant van het actieve blad op basis van de celwaarde met VBA-code
Verplaats de hele rij naar de onderkant van het actieve blad op basis van de celwaarde met VBA-code
Bijvoorbeeld, zoals onderstaand screenshot getoond, als een cel in kolom C een bepaalde waarde "Gereed" bevat, verplaats dan de hele rij naar de onderkant van het huidige blad. Ga als volgt te werk.
1. druk op anders+ F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het venster.
VBA-code: verplaats de hele rij naar de onderkant van het actieve blad op basis van de celwaarde
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: In de VBA-code, "Klaar 鈥滻s de celwaarde waarop u de hele rij wilt verplaatsen op basis van. U kunt het naar behoefte wijzigen.
3. druk de F5 sleutel om de code uit te voeren, dan in de pop-up Kutools for Excel dialoogvenster, selecteer het kolombereik waarin de bepaalde waarde voorkomt en klik vervolgens op het OK knop.
Na het klikken op de OK knop, wordt de volledige rij die de waarde "Gereed" in de opgegeven kolom bevat automatisch naar de onderkant van het gegevensbereik verplaatst.
Gerelateerde artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!