Como mover linhas duplicadas para outra planilha no Excel?

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

Mover linhas inteiras para outra planilha com base em células duplicadas em uma coluna

Mover linhas inteiras para outra planilha com base em linhas duplicadas

Mover linhas inteiras para outra planilha 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 ajudá-lo:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na janela Módulo.

Código VBA: Mover linhas inteiras para outra planilha 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. Em seguida, pressione a tecla F5 para executar este código, e na caixa de diálogo que aparece, selecione a coluna que contém as células duplicadas que deseja mover com base, veja a captura de tela:

4. Clique em OK, em outra caixa de diálogo, selecione uma célula em outra planilha onde deseja colocar as linhas movidas, veja a captura de tela:

5. E então clique em OK, as linhas que têm valores duplicados na coluna A foram movidas para uma nova planilha, veja a captura de tela:

Desbloqueie a Magia do Excel com o Kutools AI

• Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
• Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
• Codificação VBA: Escreva e implemente código VBA sem esforço.
• Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
• Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

Mover linhas inteiras para outra planilha 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. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na janela Módulo.

Código VBA: Mover linhas inteiras para outra planilha 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. Em seguida, pressione a tecla F5 para executar este código, na caixa de diálogo que aparece, selecione o intervalo de dados que deseja mover as linhas duplicadas, veja a captura de tela:

4. Clique no botão OK, e depois em outra caixa de diálogo, selecione uma célula em uma nova planilha onde deseja colocar as linhas duplicadas movidas, veja a captura de tela:

5. Em seguida, clique no botão OK, e agora as linhas duplicadas foram movidas para outra planilha especificada imediatamente, veja a captura de tela: