Hur flyttar man dubbla rader till ett annat ark i Excel?
Om du har en lista med dataintervall som innehåller några dubblettvärden i en viss kolumn, nu vill du flytta hela raderna till ett annat ark baserat på dubblettcellerna. Hur kunde du hantera den här uppgiften i Excel?
Flytta hela rader till ett annat ark baserat på duplicerade celler i en kolumn
Flytta hela rader till ett annat ark baserat på dubbla rader
Flytta hela rader till ett annat ark baserat på duplicerade celler i en kolumn
Om det finns dubbla värden i en kolumn flyttar du hela raderna till ett annat ark, följande VBA-kod kan göra dig en tjänst:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA-kod: Flytta hela rader till ett annat ark baserat på duplicerade celler i en kolumn:
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. Tryck sedan på F5 nyckel för att köra den här koden och välj kolumnen som innehåller de duplicerade cellerna du vill flytta baserat på, i dialogrutan som visas.
4. Klicka sedan OK, i en annan rutan, välj en cell i ett annat ark där du vill placera de flyttade raderna, se skärmdump:
5. Och klicka sedan på OK, raderna som har dubbla värden i kolumn A har flyttats till ett nytt ark, se skärmdump:
Flytta hela rader till ett annat ark baserat på dubbla rader
Om du vill flytta de dubbla raderna från ett cellområde kan följande VBA-kod hjälpa dig:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
VBA-kod: Flytta hela rader till ett annat ark baserat på dubbla rader:
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. Tryck sedan på F5 nyckel för att köra den här koden, i dialogrutan popped out, välj välj det dataintervall som du vill flytta de dubbla raderna, se skärmdump:
4. Klicka OK och sedan i en annan snabbruta, välj en cell i ett nytt ark där du vill placera de flyttade böneraderna, se skärmdump:
5. Klicka sedan OK -knappen, och nu har de dubbla raderna flyttats till ett annat ark du angav på en gång, se skärmdump:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
