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
Mozgassa át a teljes sort egy másik lapra a cellaérték alapján a Kutools for Excel segítségével
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
Mozgassa át a teljes sort egy másik lapra a cellaérték alapján a Kutools for Excel segítségével
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.
Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.
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:
Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.
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!