¿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.
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:
2. En el Células partidas cuadro de diálogo, marque el tipo de división que desee en el Tipo de Propiedad 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:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!