Note: The other languages of the website are Google-translated. Back to English

¿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

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • 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.

flecha azul burbuja derecha 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:



flecha azul burbuja derecha 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:



Artículos relativos:

Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL