Hogyan mozgassuk a teljes sort az aktív lap aljára az Excel cellája alapján?
Ha az Excel cellájának értéke alapján a teljes sort az aktív lap aljára kívánja áthelyezni, kérjük, próbálja ki a VBA kódot ebben a cikkben.
Mozgassa a teljes sort az aktív lap aljára a VBA kóddal ellátott cellaérték alapján
Mozgassa a teljes sort az aktív lap aljára a VBA kóddal ellátott cellaérték alapján
Például, ahogy az alábbi képernyőképen látható, ha a C oszlop cellája tartalmaz egy bizonyos „Kész” értéket, akkor vigye a teljes sort az aktuális lap aljára. Kérjük, tegye a következőket.
1. nyomja meg más+ F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot az ablakba.
VBA kód: Mozgassa a teljes sort az aktív lap aljára a cella értéke alapján
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
Megjegyzések: A VBA kódban „csinált”Az a cellaérték, amely alapján a teljes sort áthelyezi. Szükség szerint megváltoztathatja.
3. megnyomni a F5 gombot a kód futtatásához, majd az előugró ablakban Kutools az Excel számára párbeszédpanelen válassza ki azt az oszloptartományt, amelyben a bizonyos érték létezik, majd kattintson a gombra OK gombot.
A kattintás után a OK gombra kattintva a teljes sor, amely a megadott oszlopban a „Kész” értéket tartalmazza, automatikusan az adattartomány aljára kerül.
Kapcsolódó cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!