¿Cómo combinar cada segunda fila o celda en Excel?
Si tiene una lista de datos y desea combinar cada fila o celda alternativa, como se muestra a continuación, ¿sabe cómo hacerlo? En Excel, puede usar una fórmula o VBA para lograrlo.
Usar una fórmula para combinar cada segunda fila o celda en Excel
Usar código VBA para combinar cada segunda fila o celda en Excel
Usar una fórmula para combinar cada segunda fila o celda en Excel
Seleccione una celda vacía, introduzca la siguiente fórmula y pulse la tecla Intro.
=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)A continuación, arrastre el controlador de relleno hacia abajo para aplicar esta fórmula al rango deseado.
Usar código VBA para combinar cada segunda fila o celda en Excel
Si está acostumbrado a usar VBA, también puede ejecutar el siguiente código para combinar cada fila alternativa.
1. Mantenga pulsada la tecla «ALT» y presione "F11" en el teclado para abrir la ventana de «Microsoft Visual Basic para Aplicaciones».
2. Haga clic en «Insertar» > «Módulo» y copie el código VBA en el módulo.
VBA: Combinar cada fila o celda alternativa
Sub CombineCells()
'Updateby20140314
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)
For i = 1 To InputRng.Rows.Count Step 2
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
Set OutRng = OutRng.Offset(0, 1)
Next
Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub
3. Haga clic en «Ejecutar» para ejecutar el código VBA y aparecerá un cuadro de diálogo de «Kutools for Excel» que le permitirá seleccionar el rango de celdas del que desee combinar cada fila alternativa. Vea la captura de pantalla:
4. Haga clic en «Aceptar» y aparecerá otro cuadro de diálogo para que seleccione una única celda donde colocar el resultado combinado. Vea la captura de pantalla:
5. Haga clic en «Aceptar» y podrá ver el resultado:
Artículos relacionados:
- Seleccionar cada fila alternativa o cada enésima fila en Excel
- Copiar cada fila alternativa
- Eliminar cada fila alternativa
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos