Перенос информации с нескольких листов в одну таблицу

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

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

Мир 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)

Ответить

Serge_007

Дата: Вторник, 15.06.2021, 15:59 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

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

Цитата Profan1, 15.06.2021 в 15:36, в сообщении № 1 (

)

перенести информацию с нескольких листов в один лист книги "сборка" при помощи макроса

Обязательно макросом? Power Qwery чем не подходит?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

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]

Код