Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Сборка таблицы из разных листов книги - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
СообщениеДоброй ночи
Возникла необходимость собрать данные из разных листов книги. Честно пытался разобраться со всем сам постоянно натыкался на какие то проблемы с консолидацией, Power Query и макросами.
Подскажите пожалуйста как самым простым и быстрым способом. Получить таблицу в которой будут Имя, Субъект, Почтовый адрес, Номер сотового телефона, Номер домашнего телефона, Номер рабочего телефона, Адрес электронной почты.
На сколько я понял таблицу ещё нужно транспонировать. Листов около 300, выложил файл для примера.

Автор - fumufu86
Дата добавления - 28.02.2018 в 01:04
nilem Дата: Среда, 28.02.2018, 07:52 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1474
Репутация: 519 ±
Замечаний: 0% ±

Excel 2013
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]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщение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]

Автор - nilem
Дата добавления - 28.02.2018 в 07:52
Karataev Дата: Среда, 28.02.2018, 08:41 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1249
Репутация: 481 ±
Замечаний: 0% ±

Excel
Вариант, если данные находятся в одних и тех же строках.


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
СообщениеВариант, если данные находятся в одних и тех же строках.

Автор - Karataev
Дата добавления - 28.02.2018 в 08:41
fumufu86 Дата: Среда, 28.02.2018, 23:37 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо огромное за помощь.
 
Ответить
СообщениеСпасибо огромное за помощь.

Автор - fumufu86
Дата добавления - 28.02.2018 в 23:37
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сборка таблицы из разных листов книги (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!