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

Вход

Регистрация

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

 

= Мир MS Excel/Сбор данных из однотипных таблиц в одну - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сбор данных из однотипных таблиц в одну (Макросы/Sub)
Сбор данных из однотипных таблиц в одну
Dodgem Дата: Среда, 05.06.2019, 21:04 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Добрый день.

Есть необходимость в формировании общей таблицы из аналогичных таблиц в файлах.
Процесс следующий - работникам отправляется шаблон таблицы, они в соответствии со своим городом присутствия заполняют свою строку, затем файл возвращается мне с заполненной одной или несколькими строками. Из этих файлов необходимо сформировать единую таблицу.

На просторах сети нашел некоторые решения, в итоге получилось, что данные из каждого файла вставляются в виде диапазонов друг под другом, мне же необходимо чтобы из файла копировались только те строки, когда в диапазоне AA:AG содержатся данные, т.е. если там пусто, то не копируем, если есть хоть одно значение, значит такую строку копируем. При этом строка должна записываться в сводной таблице по тому же адресу, где был взята.
Надеюсь задачу описал понятно.
Расположение ячеек именно такое как в файлах исходниках.
Двух одинаковых файлов быть не должно, но человеческий фактор никто не отменяет (т.е. могут быть заполнены данные за один и тот же город в двух разных файлах). В таком случае желательно отобразить ошибку или как то отметить.
Сделал простой пример:
В файле "Сборщик файлов" две вкладки, первая с макросом и как он сейчас собирает, вторая с тем что хотелось бы получить
Также приложил в качестве примера три файла "исходного материала"

Хотелось бы понять как реализовать данную задачу, возможно кто то направит на похожую тему, я в течении недели не нашел.
Предполагаю что необходимо данные записывать в массив,где будет значение города и значений ячеек в той же строке, а потом массив переносить в сводный файл, но реализовать пока не удалось из за нехватки знаний.
К сообщению приложен файл: 1531338.zip(62.3 Kb)


Сообщение отредактировал Dodgem - Четверг, 06.06.2019, 09:30
 
Ответить
СообщениеДобрый день.

Есть необходимость в формировании общей таблицы из аналогичных таблиц в файлах.
Процесс следующий - работникам отправляется шаблон таблицы, они в соответствии со своим городом присутствия заполняют свою строку, затем файл возвращается мне с заполненной одной или несколькими строками. Из этих файлов необходимо сформировать единую таблицу.

На просторах сети нашел некоторые решения, в итоге получилось, что данные из каждого файла вставляются в виде диапазонов друг под другом, мне же необходимо чтобы из файла копировались только те строки, когда в диапазоне AA:AG содержатся данные, т.е. если там пусто, то не копируем, если есть хоть одно значение, значит такую строку копируем. При этом строка должна записываться в сводной таблице по тому же адресу, где был взята.
Надеюсь задачу описал понятно.
Расположение ячеек именно такое как в файлах исходниках.
Двух одинаковых файлов быть не должно, но человеческий фактор никто не отменяет (т.е. могут быть заполнены данные за один и тот же город в двух разных файлах). В таком случае желательно отобразить ошибку или как то отметить.
Сделал простой пример:
В файле "Сборщик файлов" две вкладки, первая с макросом и как он сейчас собирает, вторая с тем что хотелось бы получить
Также приложил в качестве примера три файла "исходного материала"

Хотелось бы понять как реализовать данную задачу, возможно кто то направит на похожую тему, я в течении недели не нашел.
Предполагаю что необходимо данные записывать в массив,где будет значение города и значений ячеек в той же строке, а потом массив переносить в сводный файл, но реализовать пока не удалось из за нехватки знаний.

Автор - Dodgem
Дата добавления - 05.06.2019 в 21:04
krosav4ig Дата: Среда, 05.06.2019, 23:19 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2192
Репутация: 916 ±
Замечаний: 0% ±

Excel 2007,2010,2013
тут ответил


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениетут ответил

Автор - krosav4ig
Дата добавления - 05.06.2019 в 23:19
Dodgem Дата: Четверг, 06.06.2019, 07:32 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Решение не совсем подходящее насколько я поня, буду благодарен за решение средствами VBA
 
Ответить
СообщениеРешение не совсем подходящее насколько я поня, буду благодарен за решение средствами VBA

Автор - Dodgem
Дата добавления - 06.06.2019 в 07:32
Pelena Дата: Четверг, 06.06.2019, 08:44 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 14721
Репутация: 3218 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Файл покажете?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеФайл покажете?

Автор - Pelena
Дата добавления - 06.06.2019 в 08:44
Dodgem Дата: Четверг, 06.06.2019, 09:32 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Файл покажете?


Хм, прикладывал изначально, согласно правил :) но куда то пропал прикрепленный файл, закрепил повторно в шапке
 
Ответить
Сообщение
Файл покажете?


Хм, прикладывал изначально, согласно правил :) но куда то пропал прикрепленный файл, закрепил повторно в шапке

Автор - Dodgem
Дата добавления - 06.06.2019 в 09:32
Dodgem Дата: Понедельник, 10.06.2019, 23:04 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Форумчане, все еще нужна помощь...

Может кто подскажет, как выделить или получить адрес строки, в диапазоне, если в строке есть хотя бы одна непустая ячейка (но заполнены могут быть не все)?
 
Ответить
СообщениеФорумчане, все еще нужна помощь...

Может кто подскажет, как выделить или получить адрес строки, в диапазоне, если в строке есть хотя бы одна непустая ячейка (но заполнены могут быть не все)?

Автор - Dodgem
Дата добавления - 10.06.2019 в 23:04
_Boroda_ Дата: Вторник, 11.06.2019, 11:05 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15577
Репутация: 6079 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Добавьте вниз макроса еще кусок (это не самый лучший по быстродействию вариант)
[vba]
Код
    With shd
        r1_ = .Cells(.Rows.Count, 2).End(3).Row
        r0_ = 2
        If r1_ > r0_ Then
            For i = r1_ To r0_ Step -1
                If .Cells(i, .Columns.Count).End(1).Column < 3 Then
                    .Rows(i).Delete
                End If
            Next i
        End If
    End With
[/vba]
К сообщению приложен файл: __1.xlsb(72.8 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеДобавьте вниз макроса еще кусок (это не самый лучший по быстродействию вариант)
[vba]
Код
    With shd
        r1_ = .Cells(.Rows.Count, 2).End(3).Row
        r0_ = 2
        If r1_ > r0_ Then
            For i = r1_ To r0_ Step -1
                If .Cells(i, .Columns.Count).End(1).Column < 3 Then
                    .Rows(i).Delete
                End If
            Next i
        End If
    End With
[/vba]

Автор - _Boroda_
Дата добавления - 11.06.2019 в 11:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сбор данных из однотипных таблиц в одну (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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