Como mover uma linha inteira para a parte inferior da planilha ativa com base no valor da célula no Excel?

Para mover uma linha inteira para a parte inferior da planilha ativa com base no valor da célula no Excel, tente usar o código VBA neste artigo.

Mover uma linha inteira para a parte inferior da planilha ativa com base no valor da célula usando código VBA

Mover uma linha inteira para a parte inferior da planilha ativa com base no valor da célula usando código VBA

Por exemplo, como mostrado na captura de tela abaixo, se uma célula na coluna C contiver um determinado valor “Concluído”, mova a linha inteira para a parte inferior da planilha atual. Siga os passos abaixo.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications .

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código VBA abaixo na janela.

Código VBA: Mover uma linha inteira para a parte inferior da planilha ativa com base no valor da célula

Sub MoveToEnd()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xEndRow As Long
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
lOne:
    Set xRg = Application.InputBox("Select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Or xRg.Areas.Count > 1 Then
        MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
        GoTo lOne
    End If
    xEndRow = xRg.Rows.Count + xRg.Row
    Application.ScreenUpdating = False
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) = "Done" Then
           xRg.Cells(I).EntireRow.Cut
           Rows(xEndRow).Insert Shift:=xlDown
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Observação: No código VBA, “Concluído” é o valor da célula que você usará para mover a linha inteira. Você pode alterá-lo conforme necessário.

3. Pressione a tecla F5 para executar o código; em seguida, na caixa de diálogo Kutools para Excel que aparece, selecione o intervalo de colunas onde o valor específico está presente e clique no botão OK.

Depois de clicar no botão OK, a linha inteira que contém o valor “Concluído” na coluna especificada será automaticamente movida para a parte inferior do intervalo de dados.

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!

Artigos relacionados:

• Como mover uma linha inteira para outra planilha com base no valor da célula no Excel?