Come spostare le righe duplicate in 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 righe intere in un altro foglio basandoti sulle celle duplicate. Come potresti gestire questa attività in Excel?

Sposta righe intere in un altro foglio basandoti su celle duplicate in una colonna

Sposta righe intere in un altro foglio basandoti su righe duplicate

Sposta righe intere in un altro foglio basandoti su celle duplicate in una colonna

Se ci sono valori duplicati in una colonna, quindi sposta le righe intere in un altro foglio, il seguente codice VBA può aiutarti:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra Modulo.

Codice VBA: Sposta righe intere in un altro foglio basandoti su 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 premi il tasto F5 per eseguire questo codice, e nella finestra di dialogo visualizzata, seleziona la colonna che contiene le celle duplicate che desideri spostare, vedi screenshot:

4. Quindi clicca OK, in un'altra finestra di dialogo, seleziona una cella in un altro foglio dove vuoi 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:

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Sposta righe intere in un altro foglio basandoti su righe duplicate

Se vuoi spostare le righe duplicate da un intervallo di celle, il seguente codice VBA può aiutarti:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra Modulo.

Codice VBA: Sposta righe intere in un altro foglio basandoti su 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 premi il tasto F5 per eseguire questo codice, nella finestra di dialogo visualizzata, seleziona l'intervallo di dati da cui vuoi spostare le righe duplicate, vedi screenshot:

4. Clicca sul pulsante OK, e poi in un'altra finestra di dialogo, seleziona una cella in un nuovo foglio dove vuoi inserire le righe duplicate spostate, vedi screenshot:

5. Quindi clicca sul pulsante OK, e ora, le righe duplicate sono state spostate in un altro foglio specificato immediatamente, vedi screenshot: