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.
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:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins