¿Cómo combinar todas las demás filas / celdas en Excel?
Si tiene una lista de datos y desea combinar todas las demás filas o celdas como se muestra a continuación, ¿sabe cómo hacerlo? En Excel, puede usar fórmulas o VBA para fusionar cada dos filas o celdas.
Combinar todas las demás filas / celdas con la fórmula en Excel
Fusionar todas las demás filas / celdas con VBA
Combinar todas las demás filas / celdas con la fórmula en Excel
Seleccione una celda en blanco y escriba =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (Un $ 1 indica los primeros datos en su lista, puede cambiarlos cuando lo necesite) y presione la tecla Enter. Luego, arrastre el controlador de relleno para completar el rango que necesita para aplicar esta fórmula. Ver captura de pantalla:
Fusionar todas las demás filas / celdas con VBA
Si está acostumbrado a usar VBA, también puede ejecutar el siguiente VBA para fusionar cada dos filas.
1. Sostener ALT botón y prensa F11 en el teclado para abrir un Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy copie el VBA en el módulo.
VBA: fusionar todas las demás filas / celdas
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. Hacer clic en Ejecutar para ejecutar el código VBA, y un KutoolsparaExcel aparece un cuadro de diálogo para que seleccione un rango de celdas que desea fusionar cada dos filas. Ver captura de pantalla:
4. Hacer clic en OK, se muestra otro cuadro de diálogo para que seleccione una sola celda para mostrar el resultado combinado. Ver captura de pantalla:
5. Hacer clic en OK, y puedes ver el resultado: