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: