¿Cómo dividir una columna cada dos filas en Excel?
Por ejemplo, tengo una lista larga de datos y ahora quiero dividir la columna en dos listas por igual en cada fila, como se muestra en la siguiente captura de pantalla. ¿Existen buenas formas de lidiar con esta tarea en Excel?
Dividir una columna cada dos filas con fórmulas
Dividir una columna cada dos filas con fórmulas
Las siguientes fórmulas pueden ayudarlo a dividir rápidamente una columna en dos columnas por cada dos filas, haga lo siguiente:
1. Ingrese esta fórmula en una celda en blanco, C2, por ejemplo, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), ver captura de pantalla:
2. Luego, arrastre el controlador de relleno hacia abajo hasta que se muestren los errores en las celdas, vea la captura de pantalla:
3. Luego ingrese otra fórmula en la celda D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), y arrastre el controlador de relleno hacia las celdas hasta que aparezcan los valores de error y los valores de las columnas se hayan dividido en dos columnas cada dos filas, vea la captura de pantalla:
Divide una columna cada dos filas con código VBA
Si está interesado en el código VBA, aquí puedo hablar sobre un código para que resuelva este problema.
1. Mantenga pulsado el ALT + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: divida una columna en dos columnas cada dos filas
Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
If index Mod 2 = 1 Then
OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
num1 = num1 + 1
Else
OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
num2 = num2 + 1
End If
Next
End Sub
3. Entonces presione F5 para ejecutar este código, y aparecerá un cuadro emergente para recordarle que seleccione el rango de datos que desea dividir, vea la captura de pantalla:
4. Y haga clic en OK, se abre otro cuadro de aviso para permitirle seleccionar una celda para poner el resultado, vea la captura de pantalla:
5. Luego haga clic OK, y la columna se ha dividido en dos columnas cada dos filas. Ver captura de pantalla:
Divida una columna cada dos filas con Kutools para Excel
Si desea aprender más cosas nuevas, puedo recomendar una herramienta poderosa:Kutools for Excel, Con su Transformar rango utilidad, puede convertir rápidamente una sola fila o columna en un rango de celdas y viceversa.
| Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratis Kutools para Excel ahora )
1. Seleccione los datos de la columna que desea dividir en dos columnas por filas.
2. Luego haga clic Kutools > Gama de Colores > Transformar rango, ver captura de pantalla:
3. En la Transformar rango cuadro de diálogo, seleccione Columna única para rango bajo el Tipo de transformación, A continuación, elija Valor fijo e introduzca 2 en la caja en el Filas por registro sección, ver captura de pantalla:
4. Luego haga clic Ok y aparecerá un cuadro emergente para recordarle que seleccione una celda donde desea generar el resultado, vea la captura de pantalla:
5. Hacer clic OK, los datos de la lista se han dividido en dos columnas cada dos filas.
Haga clic para obtener más información sobre esta utilidad Transform Range.
Descarga gratis Kutools para Excel ahora
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!
