Como mover uma linha inteira para outra planilha com base no valor da célula no Excel?
Para mover uma linha inteira para outra planilha com base no valor da célula, este artigo o ajudará.
Mova a linha inteira para outra folha com base no valor da célula com código VBA
Mova a linha inteira para outra planilha com base no valor da célula com o Kutools para Excel
Mova a linha inteira para outra folha com base no valor da célula com código VBA
Como mostrado na captura de tela abaixo, você precisa mover a linha inteira da Planilha1 para a Planilha2 se uma palavra específica “Concluído” existir na coluna C. Você pode tentar o seguinte código VBA.
1. Pressione outro+ F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. Na janela Microsoft Visual Basic for Applications, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela.
VBA code 1: Move entire row to another sheet based on cell value
Sub Cheezy()
'Updated by Kutools for Excel 2017/8/28
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
xRg(K).EntireRow.Delete
If CStr(xRg(K).Value) = "Done" Then
K = K - 1
End If
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Note: No código, Sheet1 é a planilha que contém a linha que você deseja mover. E Sheet2 é a planilha de destino onde você localizará a linha. “C: C”É a coluna que contém o determinado valor e a palavra“Pronto ”É o valor certo no qual você moverá a linha. Altere-os de acordo com suas necessidades.
3. aperte o F5 para executar o código, a linha que atende aos critérios na Planilha1 será movida para a Planilha2 imediatamente.
Note: O código VBA acima excluirá linhas dos dados originais após mover para uma planilha especificada. Se você deseja apenas copiar linhas com base no valor da célula, em vez de excluí-las. Por favor, aplique o código VBA 2 abaixo.
VBA code 2: Copy entire row to another sheet based on cell value
Sub MoveRowBasedOnCellValue()
'Updated by Extendoffice 2017/11/10
Dim xRg As Range
Dim xCell As Range
Dim I As Long
Dim J As Long
Dim K As Long
I = Worksheets("Sheet1").UsedRange.Rows.Count
J = Worksheets("Sheet2").UsedRange.Rows.Count
If J = 1 Then
If Application.WorksheetFunction.CountA(Worksheets("Sheet2").UsedRange) = 0 Then J = 0
End If
Set xRg = Worksheets("Sheet1").Range("C1:C" & I)
On Error Resume Next
Application.ScreenUpdating = False
For K = 1 To xRg.Count
If CStr(xRg(K).Value) = "Done" Then
xRg(K).EntireRow.Copy Destination:=Worksheets("Sheet2").Range("A" & J + 1)
J = J + 1
End If
Next
Application.ScreenUpdating = True
End Sub
Mova a linha inteira para outra planilha com base no valor da célula com o Kutools para Excel
Se você é um novato no código VBA. Aqui eu apresento o Selecione células específicas utilidade de Kutools for Excel. Com este utilitário, você pode selecionar facilmente todas as linhas com base em um determinado valor de célula ou diferentes valores de célula em uma planilha e copiar as linhas selecionadas para a planilha de destino conforme necessário. Faça o seguinte.
Antes de aplicar Kutools for Excel, Por favor baixe e instale primeiro.
1. Selecione a lista de colunas que contém o valor da célula em que moverá as linhas com base e clique em Kutools > Selecionar > Selecione células específicas. Veja a imagem:
2. Na abertura Selecione células específicas caixa de diálogo, escolha Linha inteira no Tipo de seleção seção, selecione É igual a no Tipo específico lista suspensa, insira o valor da célula na caixa de texto e clique no botão OK botão.
Outro Selecione células específicas A caixa de diálogo aparece para mostrar o número de linhas selecionadas e, enquanto isso, todas as linhas contêm o valor especificado na coluna selecionada. Veja a imagem:
3. aperte o Ctrl + C para copiar as linhas selecionadas e, em seguida, colá-las na planilha de destino necessária.
Note: Se você deseja mover linhas para outra planilha com base em dois valores de células diferentes. Por exemplo, mova as linhas com base nos valores das células "Concluído" ou "Processando", você pode ativar o Or condição no Selecione células específicas caixa de diálogo como a imagem abaixo mostrada:
Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.
Artigos relacionados:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!