Как объединить несколько листов в 1?

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Как объединить несколько листов в 1? - Мир MS Excel

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Как объединить несколько листов в 1? (Формулы/Formulas)

Как объединить несколько листов в 1?

AdwordsDirect

Дата: Воскресенье, 28.01.2018, 20:42 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 148

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте,
подскажите пожалуйста как объединить несколько листов воедино, чтоб когда заканчивалось содержимое 1-го листа, после него сразу шло содержимое 2-го листа.
И если не затруднит, покажите сразу пожалуйста на этом примере (файл прикрепил) как сделать чтоб содержимое бралось только определенного диапазона.
Спасибо.

К сообщению приложен файл: 7564282.xlsx (99.9 Kb)

Ответить

AdwordsDirect

Дата: Воскресенье, 28.01.2018, 21:13 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 148

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Вот пожалуйста.
Создаём лист "Общий"
Вставляем макрос и активируем его.
[vba]

Код

Sub m()
    For i = 1 To Sheets.Count
        If Sheets(i).Name <> "Общий" Then
           myR_Total = Sheets("Общий").Range("A" & Sheets("Общий").Rows.Count).End(xlUp).Row
           myR_i = Sheets(i).Range("A" & Sheets(i).Rows.Count).End(xlUp).Row
           Sheets(i).Rows("1:" & myR_i).Copy Destination:=Sheets("Общий").Range("A" & myR_Total + 1)
        End If
    Next
End Sub

[/vba]

Ответить

Как объединить несколько листов в 1? (Формулы/Formulas)

Страница 1 из 1
1