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

¿Cómo dividir rápidamente una cadena de texto por caso en Excel?

En Excel, generalmente dividimos el texto por ancho fijo o delimitador con la función Texto a columnas, pero ¿alguna vez ha intentado dividir el texto en mayúsculas y minúsculas? Por ejemplo, tiene una lista de datos y debe dividirlos en dos columnas según el caso: una columna contiene una cadena en minúsculas y la otra contiene una cadena en mayúsculas como se muestra a continuación. La función Text to Columns no admite esta operación, sin embargo, puedo introducir trucos para dividir rápidamente cadenas de texto por caso en Excel.

Dividir texto por caso con VBA

Divida el texto en filas / columnas por separador con Kutools para Excel


flecha azul burbuja derecha Dividir texto por caso con VBA

En Excel, solo hay un código de macro para dividir rápidamente cadenas en minúsculas y mayúsculas.

1. Prensa Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Móduloy pegue el código siguiente en el espacio en blanco Módulo guión.

VBA: cadena dividida por caso.

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

doc dividido por caso 1

3. Prensa F5 y aparece un cuadro de diálogo para recordarle que seleccione los textos para dividir. Ver captura de pantalla:
doc dividido por caso 2

4. Hacer clic en OK, y los textos seleccionados se han dividido en dos columnas, una contiene minúsculas y la otra, mayúsculas.
doc dividido por caso 3


flecha azul burbuja derecha Divida el texto en filas / columnas por separador con Kutools para Excel

En muchos casos, es posible que desee dividir una celda en varias filas o columnas según un carácter específico. En Excel, la función integrada Texto a columnas solo puede ayudarlo a convertir una celda en columnas directamente, pero no funciona en la conversión de filas. Sin embargo, con Kutools for Excel - una herramienta útil y práctica, puede aplicar su Células partidas utilidad para dividir rápidamente la cadena en filas o columnas según un separador o ancho fijo.

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Seleccione la celda que desea dividir y haga clic en Kutools > Fusionar y dividir > Células partidas. Ver captura de pantalla:
doc dividido por caso 4

2. En el Células partidas cuadro de diálogo, marque el tipo de división que desee en el Tipo sección, y vaya a comprobar el delimitador específico que desea dividir en función de la Dividido por sección. Ver captura de pantalla:
doc dividido por caso 5

3. Hacer clic en Ok, aparece un cuadro de diálogo para recordarle que seleccione una celda para colocar el contenido dividido. Ver captura de pantalla:
doc dividido por caso 6

4. Después de seleccionar, haga clic en OKy la celda seleccionada se ha dividido en filas según el espacio. Ver captura de pantalla:
doc dividido por caso 7


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 (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
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