¿Cómo mover una fila completa al final de la hoja activa basándose en el valor de una celda en Excel?

Para mover una fila completa al final de la hoja activa basándose en el valor de una celda en Excel, por favor, prueba el código VBA en este artículo.

Mover una fila completa al final de la hoja activa basándose en el valor de una celda con código VBA

Mover una fila completa al final de la hoja activa basándose en el valor de una celda con código VBA

Por ejemplo, como se muestra en la siguiente captura de pantalla, si una celda en la columna C contiene un cierto valor “Done”, entonces mueve toda la fila al final de la hoja actual. Por favor, sigue los siguientes pasos.

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones .

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana.

Código VBA: Mover una fila completa al final de la hoja activa basándose en el valor de una 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

Nota: En el código VBA, “Done” es el valor de la celda según el cual moverás la fila completa. Puedes cambiarlo según sea necesario.

3. Presiona la tecla F5 para ejecutar el código, luego en el cuadro de diálogo Kutools for Excel que aparece, selecciona el rango de columnas donde existe el valor específico y haz clic en el botón Aceptar.

Después de hacer clic en el botón Aceptar, la fila completa que contiene el valor “Done” en la columna especificada se moverá automáticamente al final del rango de datos.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo mover una fila completa a otra hoja basándose en el valor de una celda en Excel?