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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос информации с нескольких листов в одну таблицу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос информации с нескольких листов в одну таблицу (Макросы/Sub)
Перенос информации с нескольких листов в одну таблицу
Profan1 Дата: Вторник, 15.06.2021, 15:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

Уважаемые коллеги, добры день!
Задача состоит в следующем: необходимо перенести информацию с нескольких листов (из книги "Исходник") в один лист книги "сборка" при помощи макроса (в примере указал связь между ячейками при помощи формул - для наглядности). Рабочие ячейки выделены красным цветом.
Особенности:
1 Листов в "Исходнике" может быть от 1 до 50
2 Количество строк в 17 ого пункта книги "Исходник" может быть от 1 до бесконечности (49 строка и вниз)

Заранее благодарен.
К сообщению приложен файл: 1753182.xlsx(20.6 Kb) · 4177719.xlsx(13.0 Kb)
 
Ответить
СообщениеУважаемые коллеги, добры день!
Задача состоит в следующем: необходимо перенести информацию с нескольких листов (из книги "Исходник") в один лист книги "сборка" при помощи макроса (в примере указал связь между ячейками при помощи формул - для наглядности). Рабочие ячейки выделены красным цветом.
Особенности:
1 Листов в "Исходнике" может быть от 1 до 50
2 Количество строк в 17 ого пункта книги "Исходник" может быть от 1 до бесконечности (49 строка и вниз)

Заранее благодарен.

Автор - Profan1
Дата добавления - 15.06.2021 в 15:36
Serge_007 Дата: Вторник, 15.06.2021, 15:59 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14333
Репутация: 2368 ±
Замечаний: ±

Excel 2010
Здравствуйте

перенести информацию с нескольких листов в один лист книги "сборка" при помощи макроса
Обязательно макросом? Power Qwery чем не подходит?


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

перенести информацию с нескольких листов в один лист книги "сборка" при помощи макроса
Обязательно макросом? Power Qwery чем не подходит?

Автор - Serge_007
Дата добавления - 15.06.2021 в 15:59
Profan1 Дата: Вторник, 15.06.2021, 16:09 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

Serge_007, Да, макросом. Так как это один из пунктов, который должен выполняться при активизации инструмента.
' обработка файла

[vba]
Код
Sub WorkFile(filename, s)

Set wbF = Workbooks.Open(filename, False, True)

Set sh1 = ThisWorkbook.Sheets("Реестр_рисков") ' лист книги приемника
[b][color=red]'Set sh2 = ThisWorkbook.Sheets("План_мероприятий") ' лист книги приемника[/color][/b] - вот в этом листе должна быть реализована эта функция
Set sh3 = ThisWorkbook.Sheets("Реализация") ' лист книги приемника

For Each shF In wbF.Sheets ' лист книги источника
' обработка листа
sh1.Cells(s, 2).Value = shF.Cells(5, 3).Value
sh1.Cells(s, 3).Value = shF.Cells(6, 3).Value
sh1.Cells(s, 4).Value = shF.Cells(7, 3).Value
sh1.Cells(s, 8).Value = shF.Cells(8, 3).Value
sh1.Cells(s, 10).Value = shF.Cells(9, 3).Value
sh1.Cells(s, 5).Value = shF.Cells(10, 3).Value
sh1.Cells(s, 6).Value = shF.Cells(11, 3).Value
sh1.Cells(s, 11).Value = shF.Cells(12, 3).Value
sh1.Cells(s, 7).Value = shF.Cells(13, 3).Value
sh1.Cells(s, 9).Value = shF.Cells(16, 3).Value
sh1.Cells(s, 13).Value = shF.Cells(18, 3).Value
sh1.Cells(s, 14).Value = shF.Cells(20, 5).Value
sh1.Cells(s, 15).Value = shF.Cells(21, 5).Value
sh1.Cells(s, 16).Value = shF.Cells(22, 5).Value
sh1.Cells(s, 17).Value = shF.Cells(23, 5).Value
sh1.Cells(s, 18).Value = shF.Cells(24, 5).Value
sh1.Cells(s, 19).Value = shF.Cells(25, 5).Value
sh1.Cells(s, 12).Value = shF.Cells(26, 5).Value
sh1.Cells(s, 20).Value = shF.Cells(27, 3).Value
sh1.Cells(s, 21).Value = shF.Cells(28, 3).Value
sh1.Cells(s, 22).Value = shF.Cells(29, 3).Value
sh1.Cells(s, 23).Value = shF.Cells(33, 4).Value
sh1.Cells(s, 24).Value = shF.Cells(33, 6).Value
sh1.Cells(s, 25).Value = shF.Cells(34, 6).Value
sh1.Cells(s, 26).Value = shF.Cells(35, 4).Value
sh1.Cells(s, 27).Value = shF.Cells(35, 6).Value
sh1.Cells(s, 28).Value = shF.Cells(36, 6).Value

sh3.Cells(s, 2).Value = shF.Cells(7, 3).Value
sh3.Cells(s, 3).Value = shF.Cells(12, 3).Value
sh3.Cells(s, 4).Value = shF.Cells(22, 5).Value
sh3.Cells(s, 5).Value = shF.Cells(25, 5).Value
sh3.Cells(s, 6).Value = shF.Cells(40, 2).Value
sh3.Cells(s, 7).Value = shF.Cells(40, 4).Value
sh3.Cells(s, 8).Value = shF.Cells(40, 6).Value
sh3.Cells(s, 9).Value = shF.Cells(40, 5).Value

s = s + 1
Next

wbF.Close SaveChanges:=False

End Sub
[/vba]


Сообщение отредактировал Serge_007 - Вторник, 15.06.2021, 16:29
 
Ответить
СообщениеSerge_007, Да, макросом. Так как это один из пунктов, который должен выполняться при активизации инструмента.
' обработка файла

[vba]
Код
Sub WorkFile(filename, s)

Set wbF = Workbooks.Open(filename, False, True)

Set sh1 = ThisWorkbook.Sheets("Реестр_рисков") ' лист книги приемника
[b][color=red]'Set sh2 = ThisWorkbook.Sheets("План_мероприятий") ' лист книги приемника[/color][/b] - вот в этом листе должна быть реализована эта функция
Set sh3 = ThisWorkbook.Sheets("Реализация") ' лист книги приемника

For Each shF In wbF.Sheets ' лист книги источника
' обработка листа
sh1.Cells(s, 2).Value = shF.Cells(5, 3).Value
sh1.Cells(s, 3).Value = shF.Cells(6, 3).Value
sh1.Cells(s, 4).Value = shF.Cells(7, 3).Value
sh1.Cells(s, 8).Value = shF.Cells(8, 3).Value
sh1.Cells(s, 10).Value = shF.Cells(9, 3).Value
sh1.Cells(s, 5).Value = shF.Cells(10, 3).Value
sh1.Cells(s, 6).Value = shF.Cells(11, 3).Value
sh1.Cells(s, 11).Value = shF.Cells(12, 3).Value
sh1.Cells(s, 7).Value = shF.Cells(13, 3).Value
sh1.Cells(s, 9).Value = shF.Cells(16, 3).Value
sh1.Cells(s, 13).Value = shF.Cells(18, 3).Value
sh1.Cells(s, 14).Value = shF.Cells(20, 5).Value
sh1.Cells(s, 15).Value = shF.Cells(21, 5).Value
sh1.Cells(s, 16).Value = shF.Cells(22, 5).Value
sh1.Cells(s, 17).Value = shF.Cells(23, 5).Value
sh1.Cells(s, 18).Value = shF.Cells(24, 5).Value
sh1.Cells(s, 19).Value = shF.Cells(25, 5).Value
sh1.Cells(s, 12).Value = shF.Cells(26, 5).Value
sh1.Cells(s, 20).Value = shF.Cells(27, 3).Value
sh1.Cells(s, 21).Value = shF.Cells(28, 3).Value
sh1.Cells(s, 22).Value = shF.Cells(29, 3).Value
sh1.Cells(s, 23).Value = shF.Cells(33, 4).Value
sh1.Cells(s, 24).Value = shF.Cells(33, 6).Value
sh1.Cells(s, 25).Value = shF.Cells(34, 6).Value
sh1.Cells(s, 26).Value = shF.Cells(35, 4).Value
sh1.Cells(s, 27).Value = shF.Cells(35, 6).Value
sh1.Cells(s, 28).Value = shF.Cells(36, 6).Value

sh3.Cells(s, 2).Value = shF.Cells(7, 3).Value
sh3.Cells(s, 3).Value = shF.Cells(12, 3).Value
sh3.Cells(s, 4).Value = shF.Cells(22, 5).Value
sh3.Cells(s, 5).Value = shF.Cells(25, 5).Value
sh3.Cells(s, 6).Value = shF.Cells(40, 2).Value
sh3.Cells(s, 7).Value = shF.Cells(40, 4).Value
sh3.Cells(s, 8).Value = shF.Cells(40, 6).Value
sh3.Cells(s, 9).Value = shF.Cells(40, 5).Value

s = s + 1
Next

wbF.Close SaveChanges:=False

End Sub
[/vba]

Автор - Profan1
Дата добавления - 15.06.2021 в 16:09
Serge_007 Дата: Вторник, 15.06.2021, 16:30 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 14333
Репутация: 2368 ±
Замечаний: ±

Excel 2010
Да, макросом

В инете куча готовых макросов (в т.ч. бесплатных), которые собирают данные с разных листов на один
Используйте любой


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Да, макросом

В инете куча готовых макросов (в т.ч. бесплатных), которые собирают данные с разных листов на один
Используйте любой

Автор - Serge_007
Дата добавления - 15.06.2021 в 16:30
Profan1 Дата: Вторник, 15.06.2021, 16:39 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 20% ±

Serge_007, а возможно продемонстрировать хотя бы один из столь большого количества?
 
Ответить
СообщениеSerge_007, а возможно продемонстрировать хотя бы один из столь большого количества?

Автор - Profan1
Дата добавления - 15.06.2021 в 16:39
Serge_007 Дата: Вторник, 15.06.2021, 17:00 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 14333
Репутация: 2368 ±
Замечаний: ±

Excel 2010
возможно продемонстрировать хотя бы один из столь большого количества?

Сведение данных из разных листов/файлов в единую таблицу

Сбор данных с нескольких листов макросом


Яндекс-деньги:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
возможно продемонстрировать хотя бы один из столь большого количества?

Сведение данных из разных листов/файлов в единую таблицу

Сбор данных с нескольких листов макросом

Автор - Serge_007
Дата добавления - 15.06.2021 в 17:00
RAN Дата: Вторник, 15.06.2021, 17:00 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 5443
Репутация: 1096 ±
Замечаний: 0% ±

2010


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеКАК СОБРАТЬ ДАННЫЕ С НЕСКОЛЬКИХ ЛИСТОВ ИЛИ КНИГ?

Автор - RAN
Дата добавления - 15.06.2021 в 17:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос информации с нескольких листов в одну таблицу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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