Сбор выделенных листов

Пользователь

Сообщений: 1 Регистрация: 06.11.2018

06.11.2018 22:22:43

Доброго времени суток, господа.
Есть такой вот макрос. Он собирает ВСЕ листы книги в один. А есть потребность собирать только выделенные листы. Помогите допилить.
Мб такая тема уже и есть, но я не нашел.

Код

Sub Sbor()
s_ = Sheets.Count
Sheets.Add After:=Sheets(s_)
For i = 1 To s_
    r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row
    Sheets(i).Range("A1", Sheets(i).Cells.SpecialCells(xlLastCell)).Copy Sheets(s_ + 1).Range("a" & n_ + 1)
    n_ = n_ + r_
Next
End Sub

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#2 06.11.2018 22:25:35 Подсказка. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

Inexsu

Пользователь

Сообщений: 760 Регистрация: 29.06.2017

07.11.2018 06:35:54

Привет!
Файла нет, поэтому не тестировал

Код

Sub REName_()

Dim Sheets_Selected As Collection, sh As Worksheet
    Set Sheets_Selected = ActiveWorkbook.Windows(1).SelectedSheets

    s_ = Sheets.Count
    Sheets.Add After:=Sheets(s_)

    For Each sh In Sheets_Selected
        r_ = Sheets(i).Cells.SpecialCells(xlLastCell).Row
        Sheets(i).Range("A1", Sheets(i).Cells.SpecialCells(xlLastCell)).Copy sh.Range("a" & n_ + 1)
        n_ = n_ + r_
    Next

End Sub

Сравнение прайсов, таблиц - без настроек

PowerBoy Пользователь Сообщений: 141 Регистрация: 13.01.2014	#4 07.11.2018 09:02:19 Ссылка Excel + SQL = Activetables