¿Cómo dividir por delimitador y transponer celdas en Excel?
En este artículo, presento las formas de dividir un rango por delimitador específico y luego transponerlo en Excel como se muestra a continuación. Si está interesado en esta tarea, vaya a los detalles a continuación.
Dividir y transponer con Kutools para Excel
Dividir y transponer con VBA
No hay una forma directa de dividir y transponer datos mediante un delimitador específico, pero puedo introducir un código VBA para ayudarlo a resolver este problema rápidamente.1. Prensa Alt + F11 teclas para mostrar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el siguiente código en el nuevo Módulo ventana.
VBA: dividir y transponer
Sub Vertical()
'UpdatebyExtendoffice20161125
Dim i As Long, strTxt As String
Dim startP As Range
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox _
(Prompt:="Range Selection...", _
Title:="Kutools For Excel", Type:=8)
i = 1
Application.ScreenUpdating = False
For Each yRg In xRg
If i = 1 Then
strTxt = yRg.Text
i = 2
Else
strTxt = strTxt & "," & yRg.Text
End If
Next
Application.ScreenUpdating = True
Set startP = Application.InputBox _
(Prompt:="paste range...", _
Title:="Kutools For Excel", Type:=8)
ary = Split(strTxt, ",")
i = 1
Application.ScreenUpdating = False
For Each a In ary
startP(i, 1).Value = a
i = i + 1
Next a
Application.ScreenUpdating = True
End Sub
3. Prensa F5 para ejecutar el código, aparece un cuadro de diálogo para que seleccione un rango para dividir y transponer.
4. Hacer clic en OK. Aparece un cuadro de diálogo para seleccionar una ubicación para colocar los datos.
5. Hacer clic en OK, y la selección se ha dividido y transpuesto por coma.
Dividir y transponer con Kutools para Excel
Con Kutools for Excel, puedes aplicar su Células partidas primero para dividir las celdas por delimitador, y luego aplicar el Transformar rango utilidad para convertir las celdas en una columna.
Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
Después de instalar Kutools para Excel, haga lo siguiente :(Descarga gratis Kutools para Excel ahora!)
1. Seleccione las celdas que desea dividir y haga clic en Kutools > Fusionar y dividir > Células partidas. Ver captura de pantalla:
2. En el Células partidas diálogo, comprobar Dividir en columnas opción, luego especifique el delimitador que desea dividir, haga clic en Ok. Y seleccione una celda en blanco para colocar el resultado en el segundo Células partidas diálogo. Ver captura de pantalla:
3. Hacer clic en OK, luego las celdas se han dividido en columnas, y luego haga clic en Kutools > Gama de Colores > Transformar rango. Ver captura de pantalla:
4. En el Transformar rango diálogo, comprobar Rango a una sola columna, haga clic Oky seleccione una celda para colocar el resultado. Ver captura de pantalla:
5. Hacer clic en OK, ahora el rango se ha transpuesto a una columna.
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!