¿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

---

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

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

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

---

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.

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:

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:

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:

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: