¿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
- Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
- Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
- Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
- Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
- Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
- Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
- Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.
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 KutoolsforExcel 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:
