Note: The other languages of the website are Google-translated. Back to English

¿Cómo invertir el orden de la cadena de texto o las palabras en Excel?

Cuando usa la hoja de cálculo de Excel, ¿cómo se invierte la cadena de texto o el orden de las palabras en Excel? Por ejemplo, desea invertir "Excel es una herramienta útil para nosotros" a "su rof botín lufesu a si lecxE”. O a veces puede invertir el orden de las palabras, como "Excel, Word, PowerPoint, OneNote" a "OneNote, PowerPoint, Word, Excel”. Normalmente esto es algo difícil de resolver este problema. Mire los siguientes métodos:

Cadena de texto inverso con función definida por el usuario

Orden inverso de palabras separadas por un separador específico con código VBA

Invertir la cadena de texto o el orden de las palabras con Kutools para Excel de forma rápida y sencilla


flecha azul burbuja derecha Cadena de texto inverso con función definida por el usuario

Supongamos que tiene un rango de cadenas de texto que desea invertir, como "agregar ceros a la izquierda en Excel" a "lecxE ni sorez gnidael dda”. Puede invertir el texto con los siguientes pasos:

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Móduloventana.

Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))
End Function

3. Y luego guarde y cierre este código, vuelva a la hoja de trabajo e ingrese esta fórmula: = reversestr (A2) en una celda en blanco para poner el resultado, vea la captura de pantalla:

4. Luego, arrastre el controlador de relleno hacia abajo para copiar esta fórmula, y el texto en las celdas se venera a la vez, vea la captura de pantalla:


flecha azul burbuja derecha Orden inverso de palabras separadas por un separador específico con código VBA

Si tiene una lista de palabras de celda separadas por comas como esta "profesor, doctor, estudiante, trabajador, conductor", Y desea invertir el orden de las palabras como este"unidad, trabajador, estudiante, doctor, profesor”. También puede usar Follow VBA para resolverlo.

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Módulo ventana.

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

3. Entonces presione F5 , se muestra un cuadro de diálogo, seleccione un rango para trabajar. Ver captura de pantalla:

4. Y luego presione Ok, aparece otro cuadro de diálogo para que especifique el separador en el que desea invertir las palabras, vea la captura de pantalla:

5. A continuación, haga clic en OK, y puede ver que las palabras seleccionadas están invertidas, vea las capturas de pantalla:


flecha azul burbuja derecha Invertir la cadena de texto o el orden de las palabras con Kutools para Excel de forma rápida y sencilla

Programas de Kutools for Excel, Orden de texto inverso puede ayudarlo a invertir de manera rápida y conveniente varias cadenas de texto. Puede realizar las siguientes operaciones:

Invierta el texto de derecha a izquierda, como "toca algunas palabras" a "sdrow emos pat";

El texto inverso está separado por espacios u otros caracteres específicos, como "manzana naranja uva" a "manzana naranja uva";

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días

Invierta el texto de derecha a izquierda:

1. Seleccione el rango que desea invertir.

2. Hacer clic Kutools > Herramientas de texto > Orden de texto inverso, ver captura de pantalla:

3. En la Texto inverso cuadro de diálogo, seleccione la opción adecuada de Separador que se corresponden con los valores de la celda. Y puede obtener una vista previa de los resultados del Panel de vista previa. Ver captura de pantalla:

 ¡Descargue y pruebe Kutools para Excel ahora!


Invertir el texto están separados por espacios u otros caracteres específicos:

Esta función también puede ayudarlo a invertir las cadenas de texto que están separadas por caracteres específicos.

1. Seleccione las celdas y aplique esta utilidad haciendo clic en Kutools > Texto > Orden de texto inverso.

2. En primera Texto inverso cuadro de diálogo, elija el separador que separa los valores de celda en los que desea invertir las palabras, vea la captura de pantalla:

3. Luego haga clic Ok or Aplicar, las palabras de las celdas se han invertido a la vez. Ver capturas de pantalla:

Nota::Comprobación Omitir texto sin texto celdas para evitar que invierta los números en el rango seleccionado.

Para saber más sobre esta función, visite Orden de texto inverso.

¡Descargue y pruebe Kutools para Excel ahora!


flecha azul burbuja derecha Demostración: cadena de texto inversa basada en un separador específico con Kutools para Excel

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Artículo relacionado:

¿Cómo voltear el nombre y apellido en celdas en Excel?


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas 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 Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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

  • 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!
officetab parte inferior

 

Comentarios (19)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Esto es absurdo. ¿Tanto código para realizar solo una tarea simple de invertir la cadena? :o Solo se necesita agregar una función de 3 líneas en el módulo como se muestra a continuación: Función strrev (strValue As String) strrev = StrReverse (strValue) Función final Ahora la fórmula = strrev (A1) se puede usar en la hoja de Excel. Esto funciona ya que StrReverse es una función incorporada de VBA. :D
Este comentario fue minimizado por el moderador en el sitio
Otro... Función InvertText(str As String) 'Por Faseeh Muhammad Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m End Function
Este comentario fue minimizado por el moderador en el sitio
Disculpe un poco la función de edición InvertText(str As String) 'Por Faseeh Muhammad Dim curr As String Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m Inverttext función final
Este comentario fue minimizado por el moderador en el sitio
Hola a todos, probé esta función: Sub ReverseText() 'Updateby20131128 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" For i = 1 To xLen getChar = VBA.Right(xValue, 1) xValue = VBA.Left(xValue, xLen - i) xOut = xOut & getChar Next Rng.Value = xOut Next End Sub pero cuando lo ejecuté con números, borró todos los ceros. ¿Conoces una función que no borre ceros? ¡¡Gracias!!
Este comentario fue minimizado por el moderador en el sitio
Use el código de función de Vineet como un módulo y cuando use la fórmula, use este truco: =strrev(""&D9&"") donde D9 contiene el número. El código VBA de Vineet para esa función es: Function strrev(strValue As String) strrev = StrReverse(strValue) End Function
Este comentario fue minimizado por el moderador en el sitio
Use esto ... coloque su entrada en A1, luego la salida estará en B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Rango ("A1")) xvalue = Range ("A1").Value xoutput = "" For i = 1 To xlen GetText = VBA.Right(xvalue, 1) xvalue = VBA.Left(xvalue, xlen - i) xoutput = xoutput & GetText Next i Range("B1").Value = xoutput Range( "C1").Valor = xlen Rango("D1").Valor = valorx End Sub
Este comentario fue minimizado por el moderador en el sitio
Me doy cuenta de que mucha gente está reinventando la rueda haciendo comandos de izquierda a derecha, VB6 admite cadenas inversas SYNTAX: strRevese("String") eso es todo lo que necesita Dim stCellValue, i For i = 1 To 5 Range("A" & X).Seleccione stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Next i Otro truco ingenioso sería rellenar previamente ceros, si los valores menos de 10 pero debe estar en un formato de hora como "10:01:24" en lugar de "10:1:24" intMins = 1 stMinutes = right("00" & intMins, 2) resultado = 01
Este comentario fue minimizado por el moderador en el sitio
gracias me es muy util :roll:
Este comentario fue minimizado por el moderador en el sitio
Hola, me gustaría revertir las fechas. 20/11/2015 a 2015/11/20 ¿Alguna ayuda? Gracias
Este comentario fue minimizado por el moderador en el sitio
Para las fechas, todo lo que necesita hacer es cambiar el formato de la celda al formato necesario. Haga clic con el botón derecho en la celda que desea invertir y seleccione formato de celda. Seleccione Fecha en la sección de categoría y cambie la ubicación desde donde se encuentre a EE. UU., República Checa u otro país que pueda usar el formato que le interesa. Luego, elija el que se ajuste a sus requisitos.
Este comentario fue minimizado por el moderador en el sitio
hola a todos, no tengo Kutools para revertir un carácter de texto, si alguien tiene estas herramientas y quiere ayudarme, envíeme un correo electrónico para enviarle mi archivo para revertirlo. mi e-mail es: [b] [b] mohanned1@windowslive.com[/b][/b] Saludos,
Este comentario fue minimizado por el moderador en el sitio
siga las instrucciones proporcionadas por el sitio web de la oficina extendida después de buscar con google por cadena inversa en Excel.
Este comentario fue minimizado por el moderador en el sitio
Es posible invertir el texto usando la fórmula, es repetitivo y está limitado a lo lejos que esté preparado para llegar y sujeto a la cantidad de caracteres que Excel permitirá en la barra de fórmulas. La longitud máxima del texto será de 30 caracteres y se encuentra en la celda A1. La celda B1 diría: =RECORTAR(MEDIO(IZQUIERDA(A1&REPETIR(" ",31),31),30,1)&MEDIO(IZQUIERDA(A1&REPETIR(" ",31),31),29,1)&MEDIO(IZQUIERDA( A1&REPT(" ",31),31),28,1)&MEDIO(IZQUIERDA(A1&REPETIR(" ",31),31),27,1)&MEDIO(IZQUIERDA(A1&REPETIR(" ",31),31),26,1 ,1)&MEDIO(IZQUIERDA(A31&REPETIR(" ",31),25,1),1)&MEDIO(IZQUIERDA(A31&REPETIR(" ",31),24,1),1)&MEDIO(IZQUIERDA(A31&REPETIR(" ", 31),23,1),1)&MEDIO(IZQUIERDA(A31&REPETIR(" ",31),22,1),1)&MEDIO(IZQUIERDA(A31&REPETIR(" ",31),21,1),1)&MEDIO( IZQUIERDA(A31&REPT(" ",31),20,1),1)&MEDIO(IZQUIERDA(A31&REPT(" ",31),19,1),1)&MEDIO(IZQUIERDA(A31&REPT(" ",31),18,1) ,1)&MEDIO(IZQUIERDA(A31&REPETIR(" ",31),17,1),1)&MEDIO(IZQUIERDA(A31&REPETIR(" ",31),16,1),1)&MEDIO(IZQUIERDA(A31&REPETIR(" ",31),15,1),1)&MEDIO(IZQUIERDO(A31&REPETIR(" ",31),14,1),1)&MEDIO(IZQUIERDO(A31&REPETIR(" ",31),13,1),1) &MEDIO(IZQUIERDA(A31&REPT(" ",31),12,1),1)&MEDIO(IZQUIERDA(A31&REPT(" ",31),11,1),1)&MEDIO(IZQUIERDA(A31&REPT(" ",31), 10,1); (" ",1),31),31)&MEDIO(IZQUIERDA(A9,1&REPETIR(" ",1),31),31)&MEDIO(IZQUIERDA(A8,1&REPETIR(" ",1),31),31, 7,1) Y MEDIO (IZQUIERDA (A1 Y REPETIR (" ", 31), 31), 6,1) Y MEDIO (IZQUIERDA (A1 Y REPETIR (" ", 31), 31), 5,1) Y M ID (IZQUIERDA (A1&REPT(" ",31),31),4,1)&MEDIO(IZQUIERDA(A1&REPT(" ",31),31),3,1)) Resultado: A1: Duncan Sullivan-Shaw B31: wahS -navilluS nacnuD Básicamente, su texto en la celda A31 se vuelve de 2,1 caracteres al agregar suficientes espacios para habilitar esto, y cada carácter se lee individualmente de derecha a izquierda hasta llegar al primer carácter. Esto dará como resultado que su texto invertido contenga espacios iniciales, que el comando TRIM elimina por usted. Para reducir o aumentar la longitud, eliminaría o agregaría cada declaración. El número dentro de la declaración REPT debe ser 1 más que la longitud máxima con la que está trabajando y su primera declaración MID comenzará en la longitud máxima hasta llegar a 31.
Este comentario fue minimizado por el moderador en el sitio
Descubrí que el Sub original daba los resultados con un suspiro adicional al final de todas las celdas seleccionadas. Así que arreglé esta parte. For i = UBound(strList) a 0 Paso -1 Si i > 0 Entonces xOut = xOut & strList(i) & Sigh Else Else xOut = xOut & strList(i) Next Rng.Value = xOut
Este comentario fue minimizado por el moderador en el sitio
¿Es posible iniciar el reverso en una cierta longitud de caracteres (para la función definida por el usuario o el código VBA)? Por ejemplo, invierta los valores de celda A1 que comienzan después del recuento de caracteres igual al valor B1. Entonces, si B1 tiene 10 caracteres, el reverso comenzará en los caracteres 11+ en A1.
Este comentario fue minimizado por el moderador en el sitio
Muchísimas gracias. Este código ayudó a mi amigo de una manera muy buena.
Este comentario fue minimizado por el moderador en el sitio
genial muy útil gracias por compartir los detalles
Este comentario fue minimizado por el moderador en el sitio
Esto es realmente una gran ayuda... Muchas gracias
Este comentario fue minimizado por el moderador en el sitio
Ik zoek een manier om een ​​heleboel woorden en 'rijm-fabetische volgorde' te zetten. Dus de laatste letras van het woord moeten en alfabetische volgorde. ¿Idee enig enig? Amanda
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL