Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос данных из одного листа в другой с раздвоением строк по условию в ячейках
 
#1
26.09.2016 10:11:29
Доброго дня!
Прошу помощи... Мне необходимо тянуть данные с одного листа в другой, но обязательно каждую строку (если ячейки в столбцах C и E не пустые) необходимо раздвоить. Группировать нужно по уникальности C&E, чтобы можно потом подводить итоги. Прикладываю пример для наглядности. Сейчас все таблицы обрабатываю вручную (кое где при помощи PLEX, спасибо разработчику), но понимаю что можно обработать макросом (в котором я абсолютно не силен). Буду рад если вы мне поможете.
 
 
 
#2
26.09.2016 14:11:28
Цитата
можно обработать макросом (в котором я абсолютно не силен).
Это значит все сделать за вас?
Лист Результат с шапкой уже есть, или его нужно создавать?
Почему в полном наименовании нет кода 2 на Лист Результат?
 
 
 
#3
26.09.2016 14:29:49
Да, кода 2 нет, он не нужен.
Листа нет, шаблона на этом лиcте тоже нет, я его привел для примера - что и откуда подтягиваю.
Таблица очень большая, я указал основные моменты... по поводу макроса, да, совсем не силен, но доделать его смогу, нужны основные моменты по раздвоению строк и раздвоению только тех, в ячейках которых  в столбцах C и E не пустые... Спасибо заранее)  
 
 
 
#4
26.09.2016 14:38:13
А кто мешает сразу создать Лист Результат с шапкой и в него подтягивать данные?
 
 
 
#5
26.09.2016 15:50:55
Лист с шапкой может и быть, это не принципиально. Проблема в том, что я не знаю как раздвоить одну строку и тянуть в них только определенные данные...
 
 
 
#6
26.09.2016 20:51:14
Цитата
Проблема в том, что я не знаю как раздвоить одну строку и тянуть в них только определенные данные...
У вас в данных три диапазона (Функция 1, Функция 2 и Функция 3)
Надо определить начало и конец каждого диапазона и пройтись по нему циклом.
Каждую из строк, где в столбце С есть данные, надо будет делить на две строки
и переносить на лист Результат
Код
With Worksheets("Результат")
          .Cells(n, 1) = Cells(i, 3)          'номер договора
          .Cells(n + 1, 1) = Cells(i, 3)

'         и т.д.

End With
 
 
 
#7
29.09.2016 23:51:07
Получилось ли раздвоить строку?
 
 
 
Страницы: 1
Наверх