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

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

19.04.2017, 11:27. Просмотров 667. Ответов 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

http://www.cyberforum.ru/vba/thread784061.html
0
Вложения
Тип файла: rar Сборка.rar (22.2 Кб, 6 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2017, 11:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сборка данных с нескольких листов в один, копируя только значения (VBA):

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

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

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

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

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

2
Kubuntovod
933 / 111 / 24
Регистрация: 14.01.2013
Сообщений: 521
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
Привет! Вот еще темы с решениями:

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

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

Сводная таблица из нескольких листов
Всем доброго времени суток! Делаю макрос который копирует все данные с...

Удалить повторяющиеся строки из нескольких листов
как удалить повторяющиеся строки из нескольких листов? Например есть лист1 со...


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

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

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