Пример во вложении. Про PQ вкурсе , но пока что и экселя нет даже 2013-го с PQ и девочке которой будет передаю дела проще будет нажать накнопку, чем объяснять ей PQ.
Записал макрос, чтоб собрать определенные диапазоны из таблиц на листах в одну общую,шапки одинаковые. Но он похоже "одноразовый", тк при вставке выбирается конкретная ячейка.
А как указать , чтобы выбиралась при вставке пустая ячейка , следующая после последней строки предыдущей встваки.
Sub all_staff()
Dim sh As Worksheet
Dim staff As Worksheet
Dim i As Long
Dim lr As Long
Dim lr2 As Long
Application.ScreenUpdating = False
Set staff = Worksheets("ВЕСЬ ПЕРСОНАЛ")
For Each sh In Worksheets
If sh.Name <> "ВЕСЬ ПЕРСОНАЛ" And sh.Name <> "Оперативный отчет" Then
lr = sh.Cells(Rows.Count, 3).End(xlUp).Row
sh.Range("B2:L" & lr).Copy
lr2 = staff.Cells(Rows.Count, 3).End(xlUp).Row + 1
staff.Range("B" & lr2).PasteSpecial xlPasteValues
End If
Next sh
For i = 1 To staff.Cells(Rows.Count, 3).End(xlUp).Row
staff.Cells(i + 1, 1) = i
Next i
Application.ScreenUpdating = True
End Sub