Если вы получаете книги с идентично структурированными данными на каждом листе, вас может заинтересовать способ объединения нескольких листов в один большой лист.

Идея уплотнения довольно проста: вам просто нужно скопировать данные из второго и последующих листов в первую пустую строку на первом листе. В Excel нет инструмента, который позволяет делать это автоматически, но он является отличным кандидатом на роль макроса. Однако помните, что структура каждого сокращаемого рабочего листа должна быть одинаковой.

Следующий макрос проходит через все листы и объединяет данные в новый лист, который он добавляет в начало книги.

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

Когда макрос завершен, первый лист в книге с именем Combined содержит все данные из других листов. Остальные рабочие листы остаются без изменений.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (8884) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Condensing_Multiple_Worksheets_Into_One [Объединение нескольких рабочих листов в один].