Si obtiene libros de trabajo que tienen datos estructurados de manera idéntica en cada hoja de trabajo, es posible que le interese combinar las múltiples hojas de trabajo en una sola hoja de trabajo grande.

El concepto detrás de hacer la condensación es bastante fácil: simplemente necesita copiar los datos de la segunda hoja de trabajo y las siguientes a la primera fila vacía en la primera hoja de trabajo. Excel no incluye una herramienta que le permita hacer esto automáticamente, pero es un gran candidato para una macro. Sin embargo, recuerde que la estructura de cada hoja de trabajo que está condensando debe ser idéntica.

La siguiente macro recorre todas las hojas de trabajo y combina los datos en una nueva hoja de trabajo que agrega al principio del libro.

Sub Combine()

Dim J As Integer     Dim s As Worksheet

On Error Resume Next     Sheets(1).Select     Worksheets.Add ' add a sheet in first place     Sheets(1).Name = "Combined"



' copy headings     Sheets(2).Activate     Range("A1").EntireRow.Select     Selection.Copy Destination:=Sheets(1).Range("A1")



For Each s In ActiveWorkbook.Sheets         If s.Name <> "Combined" Then             Application.GoTo Sheets(s.Name).[a1]

Selection.CurrentRegion.Select             ' Don't copy the headings             Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select             Selection.Copy Destination:=Sheets("Combined"). _               Cells(Rows.Count, 1).End(xlUp)(2)

End If     Next End Sub

Cuando finaliza la macro, la primera hoja del libro de trabajo, denominada Combinada, tiene todos los datos de las otras hojas de trabajo. Las otras hojas de trabajo permanecen sin cambios.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (8884) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Condensing_Multiple_Worksheets_Into_One [Condensing Multiple Worksheets into One].