Come spostare le righe duplicate su un altro foglio in Excel?
Se hai un elenco di intervalli di dati che contiene alcuni valori duplicati in una colonna specifica, ora, vuoi spostare le intere righe su un altro foglio in base alle celle duplicate. Come hai potuto gestire questa attività in Excel?
Sposta intere righe su un altro foglio in base alle celle duplicate in una colonna
Sposta intere righe su un altro foglio in base a righe duplicate
Sposta intere righe su un altro foglio in base alle celle duplicate in una colonna
Se ci sono valori duplicati in una colonna, quindi sposta le intere righe su un altro foglio, il seguente codice VBA può farti un favore:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
Codice VBA: sposta intere righe su un altro foglio in base a celle duplicate in una colonna:
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. Quindi premere F5 chiave per eseguire questo codice e nella finestra di dialogo spuntata, seleziona la colonna che contiene le celle duplicate su cui desideri spostarti, vedi screenshot:
4. Quindi fare clic OK, in un'altra finestra di messaggio, seleziona una cella in un altro foglio in cui desideri inserire le righe spostate, vedi screenshot:
5. E poi clicca OK, le righe che hanno valori duplicati nella colonna A sono state spostate in un nuovo foglio, vedi screenshot:
Sposta intere righe su un altro foglio in base a righe duplicate
Se desideri spostare le righe duplicate da un intervallo di celle, il seguente codice VBA può aiutarti:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nella finestra del modulo.
Codice VBA: sposta intere righe su un altro foglio in base a righe duplicate:
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. Quindi premere F5 chiave per eseguire questo codice, nella finestra di dialogo spuntata, selezionare selezionare l'intervallo di dati in cui si desidera spostare le righe duplicate, vedere screenshot:
4. Clic OK pulsante, quindi in un'altra finestra di messaggio, seleziona una cella in un nuovo foglio in cui desideri inserire le righe suppliche spostate, vedi screenshot:
5. Quindi fare clic OK pulsante, e ora, le righe duplicate sono state spostate in un altro foglio che hai specificato contemporaneamente, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
