Hogyan lehet duplikált sorokat áthelyezni egy másik lapra az Excelben?
Ha rendelkezik olyan adattartomány-listával, amely tartalmaz egy párhuzamos értéket egy adott oszlopban, most a teljes sorokat át akarja helyezni egy másik munkalapra az ismétlődő cellák alapján. Hogyan tudta kezelni ezt a feladatot az Excelben?
A teljes sorok áthelyezése egy másik munkalapra az oszlop duplikált cellái alapján
A teljes sorok áthelyezése egy másik munkalapra ismétlődő sorok alapján
A teljes sorok áthelyezése egy másik munkalapra az oszlop duplikált cellái alapján
Ha vannak duplikált értékek egy oszlopban, akkor helyezze át a teljes sorokat egy másik lapra, a következő VBA-kód tehet Önnek szívességet:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA-kód: A teljes sorok áthelyezése egy másik lapra az oszlop duplikált cellái alapján:
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgS As Range
Dim xRgD As Range
Dim I As Long, J As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the column:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRgS.Rows.Count
J = 0
For I = xRows To 1 Step -1
If Application.WorksheetFunction.CountIf(xRgS, xRgS(I)) > 1 Then
xRgS(I).EntireRow.Copy xRgD.Offset(J, 0)
xRgS(I).EntireRow.Delete
J = J + 1
End If
Next
End Sub
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és a felbukkanó párbeszédpanelen válassza ki azt az oszlopot, amely tartalmazza az áthelyezni kívánt duplikált cellákat, lásd a képernyőképet:
4. Ezután kattintson OK, egy másik prompt mezőben válasszon egy cellát egy másik munkalapon, ahová az áthelyezett sorokat szeretné elhelyezni, lásd a képernyőképet:
5. Kattintson a gombra OK, az A oszlopban ismétlődő értékeket tartalmazó sorok új lapra kerültek, lásd a képernyőképet:
A teljes sorok áthelyezése egy másik munkalapra ismétlődő sorok alapján
Ha áthelyezi az ismétlődő sorokat egy cellatartományból, a következő VBA-kód segíthet:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.
VBA-kód: A teljes sorok áthelyezése egy másik munkalapra ismétlődő sorok alapján:
Sub CutDuplicates()
'Updateby Extendoffice
Dim xRgD As Range, xRgS As Range
Dim I As Long, J As Long, K As Long, KK As Long
On Error Resume Next
Set xRgS = Application.InputBox("Please select the data range:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Please select a desitination cell:", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
KK = 0
For I = xRgS.Rows.Count To 1 Step -1
For J = 1 To I - 1
For K = 1 To xRgS.Columns.Count
Debug.Print xRgS.Rows(I).Cells(, K).Value
Debug.Print xRgS.Rows(J).Cells(, K).Value
If xRgS.Rows(I).Cells(, K).Value <> xRgS.Rows(J).Cells(, K).Value Then Exit For
Next
If K = xRgS.Columns.Count + 1 Then
xRgS.Rows(I).EntireRow.Copy xRgD.Offset(KK, 0).EntireRow
xRgS.Rows(I).EntireRow.Delete
KK = KK + 1
End If
Next
Next
End Sub
3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki azt az adattartományt, amelybe áthelyezni szeretné az ismétlődő sorokat, lásd a képernyőképet:
4. Kattints OK gombot, majd egy másik prompt mezőben jelöljön ki egy cellát egy új lapon, ahová az áthelyezett fonatos sorokat szeretné elhelyezni, lásd a képernyőképet:
5. Ezután kattintson OK gombra, és most az ismétlődő sorok átkerültek egy másik, egyszerre megadott lapra, lásd a képernyőképet:
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!