Сборка таблицы из разных листов книги

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сборка таблицы из разных листов книги (Макросы/Sub)

fumufu86

Дата: Среда, 28.02.2018, 01:04 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2016

Доброй ночи
Возникла необходимость собрать данные из разных листов книги. Честно пытался разобраться со всем сам постоянно натыкался на какие то проблемы с консолидацией, Power Query и макросами.
Подскажите пожалуйста как самым простым и быстрым способом. Получить таблицу в которой будут Имя, Субъект, Почтовый адрес, Номер сотового телефона, Номер домашнего телефона, Номер рабочего телефона, Адрес электронной почты.
На сколько я понял таблицу ещё нужно транспонировать. Листов около 300, выложил файл для примера.

К сообщению приложен файл: chleny_SRO2.xls (82.5 Kb)

Сообщение отредактировал fumufu86 - Среда, 28.02.2018, 01:13

Ответить

nilem

Дата: Среда, 28.02.2018, 07:52 | Сообщение № 2

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

fumufu86, привет
Попробуйте так: вставляем в книгу еще один лист "Свод" и запускаем макрос:
[vba]

Код

Sub ertert()
Dim wsh As Worksheet, x
Sheets("Свод").Activate
For Each wsh In ThisWorkbook.Sheets
    If Not wsh Is ActiveSheet Then
        x = wsh.Range("A1").CurrentRegion.Value
        Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(, 7).Value = _
        Array(x(1, 1), x(2, 2), x(13, 2), x(14, 2), x(15, 2), x(16, 2), x(17, 2))
    End If
Next wsh
End Sub

[/vba]