Jak przenieść zduplikowane wiersze do innego arkusza w programie Excel?
Jeśli masz listę zakresów danych, która zawiera zduplikowane wartości w określonej kolumnie, teraz chcesz przenieść całe wiersze do innego arkusza na podstawie zduplikowanych komórek. Jak poradzisz sobie z tym zadaniem w programie Excel?
Przenieś całe wiersze do innego arkusza na podstawie zduplikowanych komórek w kolumnie
Przenieś całe wiersze do innego arkusza na podstawie zduplikowanych wierszy
Przenieś całe wiersze do innego arkusza na podstawie zduplikowanych komórek w kolumnie
Jeśli w kolumnie znajdują się zduplikowane wartości, a następnie przenieś całe wiersze do innego arkusza, następujący kod VBA może wyświadczyć ci przysługę:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
Kod VBA: Przenieś całe wiersze do innego arkusza na podstawie zduplikowanych komórek w kolumnie:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, aw wyskakującym oknie dialogowym wybierz kolumnę zawierającą zduplikowane komórki, na podstawie których chcesz przenieść, zobacz zrzut ekranu:
4. Następnie kliknij OK, w innym oknie zachęty wybierz komórkę w innym arkuszu, w którym chcesz umieścić przeniesione wiersze, patrz zrzut ekranu:
5. A następnie kliknij OK, wiersze, które mają zduplikowane wartości w kolumnie A, zostały przeniesione do nowego arkusza, patrz zrzut ekranu:
Przenieś całe wiersze do innego arkusza na podstawie zduplikowanych wierszy
Jeśli chcesz przenieść zduplikowane wiersze z zakresu komórek, może Ci pomóc następujący kod VBA:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
Kod VBA: Przenieś całe wiersze do innego arkusza na podstawie zduplikowanych wierszy:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, w wyskakującym oknie dialogowym wybierz zakres danych, który chcesz przenieść zduplikowane wiersze, zobacz zrzut ekranu:
4. Kliknij OK przycisk, a następnie w innym polu zachęty wybierz komórkę w nowym arkuszu, w którym chcesz umieścić przeniesione wiersze suplikatu, zobacz zrzut ekranu:
5. Następnie kliknij OK przycisk, a teraz zduplikowane wiersze zostały przeniesione do innego arkusza, który określiłeś od razu, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!