Cómo mover cada dos filas a columnas en Excel
¿Alguna vez ha intentado mover cada dos filas de datos a una columna en Excel, como mover cada fila impar a una columna y cada fila par a la otra columna, que se muestran en la siguiente captura de pantalla? Aquí encuentro algunos trucos que pueden solucionar este problema.
Mover cada dos filas a columnas con fórmula
Mover cada dos filas a columnas con VBA
Mueva cada dos filas a columnas con Kutools para Excel
Mover cada dos filas a columnas con fórmula
Para la mayoría de los usuarios de Excel, usar fórmulas para resolver problemas en Excel es la forma más sencilla.
1. Seleccione una celda junto a sus datos y escriba esta fórmula = SI (ISEVEN (FILA (B2)), B2, "") (B2 indica los datos que desea obtener) en él y presione Participar luego arrastre el autocompletar para llenar el rango que desea usar esta fórmula. Ahora se han obtenido datos de cada segunda fila en esta columna.
2. Luego seleccione la otra celda junto a la columna anterior y escriba esta fórmula = SI (ISODD (FILA (B3)), B3, "") (B3 son los datos que desea obtener) en él y presione Participar luego arrastre el autocompletar para llenar el rango que desea usar esta fórmula. Ahora se han obtenido datos de cada tres filas en esta columna.
Mover cada dos filas a columnas con VBA
El siguiente VBA también puede mover cada dos filas a columnas.
1. Prensa F11 + Alt teclas juntas en el teclado para abrir la Microsoft Visual Basic para aplicaciones ventana.
2. Luego haga clic recuadro > Módulo para insertar una nueva ventana de módulo. Y luego copie el siguiente código VBA en la ventana.
VBA: mueva cada dos filas a la columna.
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
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 InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. Hacer clic en Ejecutar botón o F5 en el teclado, y aparece un cuadro de diálogo para que seleccione un rango para mover. Ver captura de pantalla:
4. Luego haga clic OK para mostrar el otro cuadro de diálogo para seleccionar una celda para generar el resultado. Ver captura de pantalla:
5. Hacer clic en OK, y puede ver el resultado que se muestra a continuación:
Mueva cada dos filas a columnas con Kutools para Excel
Además de fórmulas y VBA, si ha instalado Kutools for Excel, puedes usar su Transformar rango función para mover rápidamente cada dos filas a columnas.
Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora
1. Seleccione el rango que desea mover cada dos filas y haga clic en Kutools > Convertidor de rango > Transformar rango. Ver captura de pantalla:
2. En el Transformar rango diálogo, comprobar Columna única para rango in Tipo de transformación sección y comprobar Valor fijo luego seleccione o ingrese 2 en la lista en Filas por registro sección. Ver captura de pantalla:
3. Hacer clic en Ok para abrir un cuadro de diálogo para seleccionar una sola celda para mostrar el resultado, vea la captura de pantalla:
4. Luego haga clic OK. Puede ver el resultado como se muestra a continuación:
Para obtener más información sobre Transform Range.
Artículos relativos:
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!
