Como mover uma linha inteira para a parte inferior da planilha ativa com base no valor da célula no Excel?
Para mover a linha inteira para a parte inferior da planilha ativa com base no valor da célula no Excel, tente o código VBA neste artigo.
Mova a linha inteira para a parte inferior da planilha ativa com base no valor da célula com o 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 o final da planilha atual. Faça o seguinte.
1. Pressione outro+ F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela.
Código VBA: mova a linha inteira para o final 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
Note: No código VBA, “Pronto ”É o valor da célula em que você moverá a linha inteira. Você pode alterá-lo conforme necessário.
3. aperte o F5 chave para executar o código, em seguida, no pop-up Kutools for Excel caixa de diálogo, selecione o intervalo da coluna em que o determinado valor existe e clique no botão OK botão.
Depois de clicar no OK botão, toda a linha que contém o valor “Concluído” na coluna especificada é movida para a parte inferior do intervalo de dados automaticamente.
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!