Hvordan flytter man duplikatrækker til et andet ark i Excel?
Hvis du har en liste over dataområdet, der indeholder nogle duplikatværdier i en bestemt kolonne, vil du nu flytte hele rækkerne til et andet ark baseret på duplikatcellerne. Hvordan kunne du håndtere denne opgave i Excel?
Flyt hele rækker til et andet ark baseret på duplikerede celler i en kolonne
Flyt hele rækker til et andet ark baseret på duplikerede rækker
Flyt hele rækker til et andet ark baseret på duplikerede celler i en kolonne
Hvis der er duplikatværdier i en kolonne, skal du flytte hele rækkerne til et andet ark, den følgende VBA-kode kan gøre dig en tjeneste:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.
VBA-kode: Flyt hele rækker til et andet ark baseret på duplikerede celler i en kolonne:
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. Tryk derefter på F5 nøgle for at køre denne kode, og vælg i den poppede dialogboks den kolonne, der indeholder de duplikatceller, du vil flytte baseret på, se skærmbillede:
4. Klik derefter på OK, i en anden promptboks skal du vælge en celle i et andet ark, hvor du vil placere de flyttede rækker, se skærmbillede:
5. Og klik derefter på OK, de rækker, der har duplikatværdier i kolonne A, er flyttet til et nyt ark, se skærmbillede:
Flyt hele rækker til et andet ark baseret på duplikerede rækker
Hvis du vil flytte de duplikerede rækker fra en række celler, kan følgende VBA-kode hjælpe dig:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.
VBA-kode: Flyt hele rækker til et andet ark baseret på duplikerede rækker:
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. Tryk derefter på F5 nøgle til at køre denne kode, i den poppede dialogboks skal du vælge det dataområde, du vil flytte de duplikerede rækker, se skærmbillede:
4. Klik OK knappen, og vælg derefter en anden celle i et nyt ark i en anden promptboks, hvor du vil placere de flyttede supplicate-rækker, se skærmbillede:
5. Klik derefter på OK knap, og nu er de dobbelte rækker flyttet til et andet ark, du angav med det samme, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!