Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo dividir una columna cada dos filas en Excel?

doc dividir cada dos filas 1

Por ejemplo, tengo una larga lista de datos, y ahora, quiero dividir la columna en dos listas por igual en cada una de las filas como se muestra a continuación. ¿Hay alguna forma de lidiar con esta tarea en Excel?

Dividir una columna cada dos filas con Fórmulas

Dividir una columna cada dos filas con código VBA

Divida una columna cada dos filas con Kutools para Excel


Divida una sola columna en cada otra o enésima fila:

Con Kutools for Excel's Transform Range utilidad, puede convertir rápidamente una sola fila o columna en un rango de celdas o viceversa.

doc dividir cada dos filas 11


flecha azul burbuja derecha 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 otra fila, por favor 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), mira la captura de pantalla:

doc dividir cada dos filas 2

2. A continuación, arrastre el controlador de relleno hacia abajo hasta que se muestren los errores en las celdas, consulte la captura de pantalla:

doc dividir cada dos filas 3

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 hasta las celdas hasta que aparezcan los valores de error, y los valores de la columna se hayan dividido en dos columnas cada dos filas, consulte la captura de pantalla:

doc dividir cada dos filas 4


flecha azul burbuja derecha Dividir 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 presionado el ALT + F11 teclas en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: divida una columna en dos columnas cada dos filas

Sub SplitEveryOther()
'Updateby20150813
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 tecla 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:

doc dividir cada dos filas 5

4. Y haga clic en OK, aparece otro cuadro de aviso para que pueda seleccionar una celda para poner el resultado, vea la captura de pantalla:

doc dividir cada dos filas 6

5. Luego haga clic OK, y la columna se ha dividido en dos columnas por cada otra fila. Ver captura de pantalla:

doc dividir cada dos filas 7


flecha azul burbuja derecha Divida una columna cada dos filas con Kutools para Excel

Si quieres aprender más cosas nuevas, puedo recomendarte una herramienta poderosa:Kutools for Excel, Con su Transform Range 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 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, haz lo siguiente :( Descarga gratuita Kutools for Excel Now )

1. Seleccione los datos de columna que desea dividir en dos columnas por cada otra fila.

2. Luego haga clic Kutools > Rango > Transform Range, mira la captura de pantalla:

doc dividir cada dos filas 8

3. En la Transform Range cuadro de diálogo, seleccione Una columna a rango bajo la 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:

doc dividir cada dos filas 9

4. Luego haga clic Ok y aparecerá un cuadro emergente para recordarle que seleccione una celda en la que desea generar el resultado, vea la captura de pantalla:

doc dividir cada dos filas 10

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 Transformar rango.

Descarga gratuita Kutools for Excel Now


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jas · 3 months ago
    How to do the opposite of this? Get two column info in one row ?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hi, Jas,
      To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

      Sub ConvertRangeToColumn()
      Dim Range1 As Range, Range2 As Range, Rng As Range
      Dim rowIndex As Integer
      xTitleId = "KutoolsforExcel"
      Set Range1 = Application.Selection
      Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
      Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
      rowIndex = 0
      Application.ScreenUpdating = False
      For Each Rng In Range1.Rows
      Rng.Copy
      Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
      rowIndex = rowIndex + Rng.Columns.Count
      Next
      Application.CutCopyMode = False
      Application.ScreenUpdating = True
      End Sub

      Please try, hope it can help you!
  • To post as a guest, your comment is unpublished.
    Jeff · 2 years ago
    As a workaround, you can do the following:

    Using the above example,

    1. Type "=a2" in c2 and "=a3" in d3.

    2. Now select c2 through d3.

    3. Drag the fill handle parallel to all the data.

    4. Now delete cell a2 and shift cells up.

    5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself.

    6. Now you can simply sort any of the column alphabetically to bring all the data up.