¿Cómo mover la fila completa al final de la hoja activa según el valor de la celda en Excel?
Para mover toda la fila a la parte inferior de la hoja activa según el valor de la celda en Excel, pruebe el código VBA en este artículo.
Mueva toda la fila a la parte inferior de la hoja activa según el valor de la celda con el código VBA
Por ejemplo, como se muestra a continuación en la captura de pantalla, si una celda en la columna C contiene un cierto valor "Listo", mueva toda la fila al final de la hoja actual. Haz lo siguiente.
1. Prensa otro+ F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie y pegue el siguiente código VBA en la ventana.
Código de VBA: mueva toda la fila al final de la hoja activa según el valor de la celda
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: En el código de VBA, "Terminado”Es el valor de celda en el que moverá toda la fila. Puede cambiarlo cuando lo necesite.
3. presione el F5 clave para ejecutar el código, luego en la ventana emergente Kutools for Excel cuadro de diálogo, seleccione el rango de columna en el que existe cierto valor, luego haga clic en el OK del botón.
Después de hacer clic en el OK , toda la fila que contiene el valor "Listo" en la columna especificada se mueve al final del rango de datos automáticamente.
Artículos relacionados:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!