Como mover linhas duplicadas para outra planilha no Excel?

Se você tiver uma lista de intervalo de dados que contém alguns valores duplicados em uma coluna específica, agora, você deseja mover as linhas inteiras para outra planilha com base nas células duplicadas. Como você lidaria com essa tarefa no Excel?

Mova linhas inteiras para outra página com base em células duplicadas em uma coluna

Mova linhas inteiras para outra folha com base em linhas duplicadas

Mova linhas inteiras para outra página com base em células duplicadas em uma coluna

Se houver valores duplicados em uma coluna, mova as linhas inteiras para outra planilha, o seguinte código VBA pode lhe fazer um favor:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela Módulo.

Código VBA: mova linhas inteiras para outra folha com base em células duplicadas em uma coluna:

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. Então aperte F5 para executar este código e, na caixa de diálogo exibida, selecione a coluna que contém as células duplicadas nas quais deseja mover, veja a captura de tela:

4. Então clique OK, em outra caixa de prompt, selecione uma célula em outra planilha onde você deseja colocar as linhas movidas, veja a captura de tela:

5. E, em seguida, clique em OK, as linhas com valores duplicados na coluna A foram movidas para uma nova planilha, veja a captura de tela:

Mova linhas inteiras para outra folha com base em linhas duplicadas

Se você deseja mover as linhas duplicadas de um intervalo de células, o seguinte código VBA pode ajudá-lo:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o código a seguir na janela Módulo.

Código VBA: Mova linhas inteiras para outra folha com base em linhas duplicadas:

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. Então aperte F5 para executar este código, na caixa de diálogo exibida, selecione o intervalo de dados para o qual deseja mover as linhas duplicadas, consulte a captura de tela:

4. Clique OK botão e, em outra caixa de prompt, selecione uma célula em uma nova planilha onde você deseja colocar as linhas suplicadas movidas, veja a captura de tela:

5. Então clique OK botão, e agora, as linhas duplicadas foram movidas para outra folha que você especificou de uma vez, veja a captura de tela: