Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo mover la última palabra a la siguiente celda adyacente?

Supongamos que tengo una lista de cadenas de texto que quiero mover la última palabra a la siguiente celda adyacente como se muestra a continuación, por supuesto, puedes cortarlas y pegarlas una a una, pero ¿hay alguna forma rápida de movernos? a la siguiente celda a la vez en Excel?

doc mover la última palabra a la siguiente celda 1

Mueva la última palabra a la siguiente celda adyacente con el código VBA

Extraiga la última palabra a la siguiente celda adyacente con fórmula


flecha azul burbuja derecha Mueva la última palabra a la siguiente celda adyacente con el código VBA


Para cortar y mover la última palabra de una celda a la siguiente celda adyacente, aplique el siguiente código VBA:

1. Mantenga pulsado el botón ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: mueva la última palabra a la siguiente celda adyacente:

Sub splitlastword()
    Dim xCell As Range
    Dim xStr As String
    Dim xAddress As String
    Dim xRg As Range
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selec the text cells:", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
       MsgBox "Only one column in the seleted range", vbInformation, "Kutools for Excel"
       Exit Sub
    End If
    For Each xCell In xRg
        xStr = Trim(xCell.Value)
        xCell.Offset(0, 1) = Mid(xStr, InStrRev(xStr, " "))
        xCell.Value = Left(xStr, InStrRev(xStr, " "))
    Next
End Sub

3. Entonces presione F5 tecla para ejecutar este código, y se abre un cuadro de aviso para recordarle que seleccione las celdas de texto de las que desea mover la última palabra, vea la captura de pantalla:

doc mover la última palabra a la siguiente celda 2

4. Y luego haz clic OK botón, las últimas palabras en las celdas seleccionadas se han movido inmediatamente a las siguientes celdas derechas adyacentes, vea la captura de pantalla:

doc mover la última palabra a la siguiente celda 1


flecha azul burbuja derecha Extraiga la última palabra a la siguiente celda adyacente con fórmula

Si solo necesita extraer las últimas palabras de las cadenas de texto sin moverlas, la siguiente fórmula puede hacerle un favor.

Por favor ingrese esta fórmula:

=RIGHT(A2,LEN(A2)-FIND("*",SUBSTITUTE(A2," ","*",LEN(A2)-LEN(SUBSTITUTE(A2," ",""))))) en una celda en blanco al lado de la celda de texto, y luego arrastre el controlador de relleno a las celdas donde desea extraer la última palabra, todas las últimas palabras se han extraído de las cadenas de texto sin mover las originales. Ver captura de pantalla:

doc mover la última palabra a la siguiente celda 3


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.