Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Krez88
0 / 0 / 0
Регистрация: 19.04.2017
Сообщений: 2
1

Сборка данных с нескольких листов в один, копируя только значения

19.04.2017, 11:27. Просмотров 802. Ответов 2
Метки нет (Все метки)

Добрый день!

Помогите пожалуйста с макросом:

Необходимо собрать данные с нескольких листов книги в один ("архивный"), шапки на всех листах и структура данных идентичны.

Проблема в том что 1 столбец каждого листа содержит формулу счета номера строки и при переносе в архив, формулы также копируются и получается бред.


Код
Sub sborka()
Sheets(1).Range("a1").CurrentRegion.Clear
Cells.Clear
s_ = Sheets.Count
Sheets(2).Range("1:1").Copy Sheets(1).Range("a1")
For i = 2 To s_ - 1
    r_ = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row + 1
    Sheets(i).Range("a1").CurrentRegion.Offset(1).Copy Sheets(1).Range("a" & r_)
Next
    r_ = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
        ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1").CurrentRegion, , xlYes).Name = "Таблица"
End Sub
0
Вложения
Тип файла: rar Сборка.rar (22.2 Кб, 8 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2017, 11:27
Ответы с готовыми решениями:

Обьединение нескольких листов данных в один макросом
Здравствуйте, подскажите пожалуйста. У меня есть 30 листов с данными Мне...

Собрать в один лист содержимое конкретной строки из нескольких листов одной книги
Добрый вечер Всем! Уважаемые господа, подскажите пожалуйста ....Что и На Что...

Выборка данных из нескольких листов в отдельный файл
Здравствуйте, прошу помочь со следующим макросом: есть довольно большая база...

Копирование данных с нескольких листов с по двойному клику мыши
Помогите написать макрос для копирования данных в лист "Заказ" по двойному...

Копирование данных с определённого массива с несколько листов в один
Помогите исправить ошибку в макросе: значит есть несколько листов в 1 файле,...

2
Kubuntovod
933 / 111 / 24
Регистрация: 14.01.2013
Сообщений: 524
19.04.2017, 19:37 2
Так устроит?
0
Krez88
0 / 0 / 0
Регистрация: 19.04.2017
Сообщений: 2
20.04.2017, 12:12  [ТС] 3
Kubuntovod,

Это помогло решить часть проблемы, формулы действительно пропали, но пустые строки как были так и есть (они появились тк протянуты формулы и макрос воспринимает такие ячейки как ячейки с информацией).


КодSub sborka()
Sheets(1).Range("a1").CurrentRegion.Clear
Cells.Clear
s_ = Sheets.Count
Sheets(2).Range("1:1").Copy
Sheets(1).Range("a1").PasteSpecial Paste:=xlPasteValues

For i = 2 To s_ - 1
r_ = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row + 1
Sheets(i).Range("a1").CurrentRegion.Offset(1).Copy
Sheets(1).Range("a" & r_).PasteSpecial Paste:=xlPasteValues
Next
r_ = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1").CurrentRegion, , xlYes).Name = "Таблица"
End Sub


И еще возник вопрос по ходу решения:

На выходе получается таблица Excel с именем "Таблица", я хотел привязать ее к сводной и настроить сводную под определенные параметры (срезы, оформление и тд) и по мере обновления данных на листах просто обновлять архив и как следствие сводную, но очевидно, в моей логике что то не так (при выполнении макроса таблица трется вместе со сводной).

Добавлено через 1 час 16 минут
Цитата Сообщение от Krez88 Посмотреть сообщение
Это помогло решить часть проблемы, формулы действительно пропали, но пустые строки как были так и есть (они появились тк протянуты формулы и макрос воспринимает такие ячейки как ячейки с информацией).
нужно копировать только те строки, где первая ячейка заполнена.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.04.2017, 12:12

Написание скрипта в Google Drive: выборка дубликатов (данных) с листов в один общий лист
Это должно быть очень просто, но у меня не получается и требуется помощь ((( ...

Вывод в один файл данных из нескольких Excel файлов
столкнулся со следующей проблемкой... в папке находится несколько однородных...

Импорт данных из нескольких файлов excel в один файл
Моя проблема состоит вот в чем. Есть, например, три файла в них расчет зарплаты...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru