¿Cómo dividir rápidamente una cadena de texto por mayúsculas y minúsculas en Excel?

En Excel, normalmente dividimos el texto por un ancho fijo o delimitador con la función Texto en Columnas, pero ¿has intentado alguna vez dividir el texto por mayúsculas y minúsculas? Por ejemplo, si tienes una lista de datos y necesitas dividirla en dos columnas según las mayúsculas y minúsculas: una columna contiene cadenas en minúsculas y la otra contiene cadenas en mayúsculas, como se muestra en la captura de pantalla a continuación. La función Texto en Columnas no admite esta operación; sin embargo, puedo presentarte un truco para dividir rápidamente una cadena de texto por mayúsculas y minúsculas en Excel.

Dividir texto por mayúsculas y minúsculas con VBA

Dividir texto en filas/columnas por separador con Kutools para Excel

Dividir texto por mayúsculas y minúsculas con VBA

En Excel, solo hay código macro para dividir rápidamente una cadena basada en minúsculas y mayúsculas.

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

2. Haz clic en Insertar > Módulo, y pega el siguiente código en el script del Módulo en blanco.

VBA: Dividir cadena por mayúsculas y minúsculas.

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. Presiona F5 y aparecerá un cuadro de diálogo que te recordará que selecciones los textos que deseas dividir. Ver captura de pantalla:

4. Haz clic en Aceptar, y los textos seleccionados se habrán dividido en dos columnas, una contiene minúsculas y la otra contiene mayúsculas.

Dividir texto en filas/columnas por separador con Kutools para Excel

En muchos casos, es posible que desees dividir una celda en varias filas o columnas basadas en un carácter específico. En Excel, la función integrada Texto en Columnas solo puede ayudarte a convertir una celda en columnas directamente, pero no funciona para la conversión en filas. Sin embargo, con Kutools para Excel – una herramienta práctica y útil, puedes aplicar su utilidad Dividir Celdas para dividir rápidamente una cadena en filas o columnas basadas en un separador o un ancho especificado.

Después de instalar gratuitamente Kutools para Excel, por favor haz lo siguiente:

1. Selecciona la celda que deseas dividir y haz clic en Kutools > Combinar y Dividir > Dividir Celdas. Ver captura de pantalla:

2. En el Dividir Celdas cuadro de diálogo, selecciona el tipo de división que deseas en la sección Tipo y ve a marcar el delimitador específico en el que deseas dividir en la sección Dividir por Ver captura de pantalla:

3. Haz clic en Aceptar, aparecerá un cuadro de diálogo que te recordará que selecciones una celda para colocar los contenidos divididos. Ver captura de pantalla:

4. Después de seleccionar, haz clic en Aceptar, y la celda seleccionada se habrá dividido en filas basadas en el espacio. Ver captura de pantalla: