Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2019, 09:17   #1
finik83
Новичок
Джуниор
 
Регистрация: 20.04.2019
Сообщений: 2
По умолчанию Как перенести данные таблиц в одну общую

Вопрос: товарищи, надо решить проблему.
Есть очень много листов одной книги. На каждом листе одинаковая таблица. Необходимо на последнем листе создать таблицу, в которую переносятся данные из всех листов. не хочу заниматься обезьяньей работой и кликать по разным листам неделю. Количество листов постоянно растёт, данные меняются, итоговые значения регулярно изменяются. Хотелось бы создать умную ссылку для протягивания. маленький пример вложил. За ранее огромное спасибо.
Вложения
Тип файла: xlsx 20.04.2019 Сергей .xlsx (10.8 Кб, 28 просмотров)
finik83 вне форума Ответить с цитированием
Старый 20.04.2019, 13:31   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub RUnMfcker()
    Dim sh As Worksheet
    Dim r As Integer
    Dim shA As Worksheet
    Set shA = ActiveSheet
    r = 10
    For Each sh In Sheets
        If sh.Name <> shA.Name Then
            shA.Cells(r, "A") = sh.Name
            shA.Cells(r, "B").Formula = "=" & sh.Name & "!B2"
            shA.Cells(r, "c").Formula = "=" & sh.Name & "!B3"
            shA.Cells(r, "d").Formula = "=" & sh.Name & "!B4"
            shA.Cells(r, "e").Formula = "=" & sh.Name & "!B5"
            shA.Cells(r, "f").Formula = "=" & sh.Name & "!B6"
            shA.Cells(r, "G").FormulaR1C1 = "=SUM(RC2:RC[-1])"
            r = r + 1
        End If
    Next sh
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 20.04.2019, 17:09   #3
finik83
Новичок
Джуниор
 
Регистрация: 20.04.2019
Сообщений: 2
По умолчанию

Александр, огромное спасибо. Решение работает.
finik83 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
всё тот же SQL ) нужно разом влить данные в 4 таблицы и вывести в одну общую SanekWK БД в Delphi 1 08.09.2016 01:12
Из двух таблиц сделать общую eugene222 Microsoft Office Excel 1 21.11.2014 07:56
Данные из двух таблиц в одну reihtmonbern БД в Delphi 1 15.01.2013 23:25
копирование ячеек из книг в одну(общую) DEsh Microsoft Office Excel 3 12.11.2010 12:38
Через запрос перенести данные с 6 таблиц Таня84 БД в Delphi 5 22.03.2007 15:46