Hogyan lehet a teljes sort áthelyezni egy másik lapra az Excel cellája alapján?

Ez a cikk segítséget nyújt a teljes sor áthelyezéséhez egy másik lapra a cellaérték alapján.

Helyezze a teljes sort egy másik munkalapra a VBA kóddal ellátott cellaérték alapján
A Kutools for Excel segítségével helyezze át a teljes sort egy másik lapra a cellaérték alapján

Helyezze a teljes sort egy másik munkalapra a VBA kóddal ellátott cellaérték alapján

Amint az alábbi képernyőképen látható, a teljes sort az 1. lapról a 2. lapra kell áthelyeznie, ha a C oszlopban szerepel egy adott „Kész” szó. Kipróbálhatja a következő VBA kódot.

1. nyomja meg más+ F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. A Microsoft Visual Basic for Applications ablakban kattintson a gombra betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot az ablakba.

VBA code 1: Move entire row to another sheet based on cell value

Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
       If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            xRg(K).EntireRow.Delete
            If CStr(xRg(K).Value) = "Done" Then
                K = K - 1
            End If
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Megjegyzések: A kódban Sheet1 a munkalap tartalmazza az áthelyezni kívánt sort. És Sheet2 az a cél munkalap, ahova megtalálja a sort. „C: C”Az oszlop tartalmazza a bizonyos értéket, és a„csinált”Az a bizonyos érték, amely alapján a sort áthelyezi. Kérjük, változtassa meg őket az Ön igényei szerint.

3. megnyomni a F5 gombot a kód futtatásához, akkor az a sor, amely megfelel az 1. lap kritériumainak, azonnal a 2. lapra kerül.

Megjegyzések: A fenti VBA-kód törli a sorokat az eredeti adatokból, miután áttér egy meghatározott munkalapra. Ha csak a cellák értéke alapján akar sorokat másolni törlés helyett. Kérjük, alkalmazza az alábbi VBA kódot 2.

VBA code 2: Copy entire row to another sheet based on cell value

Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim J As Long
    Dim K As Long
    I = Worksheets("Sheet1").UsedRange.Rows.Count
    J = Worksheets("Sheet2").UsedRange.Rows.Count
    If J = 1 Then
    If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
    End If
    Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
    On Error Resume Next
    Application.ScreenUpdating = False
    For K = 1 To xRg.Count
        If CStr(xRg(K).Value) = "Done" Then
            xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
            J = J + 1
        End If
    Next
    Application.ScreenUpdating = True
End Sub

A Kutools for Excel segítségével helyezze át a teljes sort egy másik lapra a cellaérték alapján

Ha újonc vagy a VBA kódban. Itt mutatom be a Válassza a Specifikus cellák lehetőséget hasznossága Kutools az Excel számára. Ezzel a segédprogrammal könnyedén kiválaszthatja az összes sort egy adott cellaérték vagy egy munkalap különböző cellaértékei alapján, és szükség szerint másolhatja a kijelölt sorokat a cél munkalapra. Kérjük, tegye a következőket.

1. Válassza ki azt az oszloplistát, amely tartalmazza a cellák értékét, amelyek alapján a sorokat áthelyezi, majd kattintson a gombra Kutools > választ > Válassza a Specifikus cellák lehetőséget. Lásd a képernyőképet:

2. A nyílásban Válassza a Specifikus cellák lehetőséget párbeszédpanelen válassza a lehetőséget Teljes sor a Kiválasztás típusa válasszon Egyenlő a Konkrét típus legördülő listából írja be a cella értékét a szövegmezőbe, majd kattintson a gombra OK gombot.

Másik Válassza a Specifikus cellák lehetőséget felbukkan a párbeszédpanel, amely megmutatja a kijelölt sorok számát, és közben minden sor a kiválasztott oszlopban megadott értéket tartalmazza. Lásd a képernyőképet:

3. megnyomni a Ctrl + C gombokat a kijelölt sorok másolásához, majd illessze be őket a kívánt munkalapra.

Megjegyzések: Ha két különböző cellaérték alapján szeretne sorokat áthelyezni egy másik munkalapra. Például a "Kész" vagy a "Feldolgozás" cellaértékek alapján mozgathatja a sorokat, engedélyezheti a Or állapot a Válassza a Specifikus cellák lehetőséget párbeszédpanel az alábbi képernyőképen:

Kapcsolódó cikkek:

• Hogyan mozgassuk a teljes sort az aktív lap aljára az Excel cellája alapján?

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza 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!

Tovább ... Ingyenes letöltés... Vásárlás...