Копирование строк в n-раз с помощью VBA или формулы

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Копирование строк в n-раз с помощью VBA или формулы (Макросы/Sub)

n-ergash

Дата: Пятница, 08.01.2016, 10:02 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Уважаемые знатоки VBA прошу вашей помощи и поддержку в решении задачи
ест таблица "отчет склада" (расход материалов) и на другом листе готовится "сводный акт" этих материалов
в отчете склада ежедневно вводятся данные расхода материалов более 1000 строк и затем в конце месяца
данные собравшиеся за месяц вводятся в сводный акт (вручную) Возможно ли автоматизировать этот процесс с помощью макроса
я только начал изучать VBA поэтому пока не смогу сделать такое , пробовал с формулами реализовать но пака желаемого результата не достиг
Привожу при мер отчета
Заранее БЛАГОДАРЮ за ваше внимание и поддержку

К сообщению приложен файл: 5565166.xlsx (13.5 Kb)

Сообщение отредактировал n-ergash - Пятница, 08.01.2016, 10:05

Ответить

Nic70y

Дата: Пятница, 08.01.2016, 10:48 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

Цитата n-ergash, 08.01.2016 в 10:02, в сообщении № 1

пробовал с формулами

тож попробовал.
в столбце ИМЯ САЙТА/SITE NAME массивные

К сообщению приложен файл: 7520424.xlsx (16.7 Kb)

ЮMoney 41001841029809

Ответить

buchlotnik

Дата: Пятница, 08.01.2016, 11:21 | Сообщение № 3

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

у меня аналогично вышло (формулами)

Оборудование

Код

=ЕСЛИ(СЧЁТЕСЛИ($I$2:I2;I2)=ИНДЕКС('отчет склада'!$D$2:$J$2;ПОИСКПОЗ(I2;'отчет склада'!$D$1:$J$1;0));ИНДЕКС('отчет склада'!$D$1:$J$1;ПОИСКПОЗ(I2;'отчет склада'!$D$1:$J$1;0)+1);I2)

Сайт (массивка):

Код

=ИНДЕКС('отчет склада'!$A$3:$A$10;НАИМЕНЬШИЙ(ЕСЛИ(ЕЧИСЛО(ИНДЕКС('отчет склада'!$D$3:$J$10;;ПОИСКПОЗ(I3;'отчет склада'!$D$1:$J$1;0)));СТРОКА($D$1:$D$8);"");СЧЁТЕСЛИ($I$2:I2;I3)+1))

Количество:

Код

=ИНДЕКС('отчет склада'!$D$3:$J$10;ПОИСКПОЗ(H3;'отчет склада'!$A$3:$A$10;0);ПОИСКПОЗ(I3;'отчет склада'!$D$1:$J$1;0))

К сообщению приложен файл: 4825369.xlsx (16.9 Kb)

Сообщение отредактировал buchlotnik - Пятница, 08.01.2016, 11:23

Ответить

Nic70y

Дата: Пятница, 08.01.2016, 11:28 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 9223

Репутация: 2478 ±

Замечаний: 0% ±

Excel 2010

buchlotnik, сотрите d3:d10 на листе отчет склада

ЮMoney 41001841029809

Ответить

n-ergash

Дата: Пятница, 08.01.2016, 12:37 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

Nic70y, Спасибо огромное

Ответить

n-ergash

Дата: Пятница, 08.01.2016, 12:38 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2013

buchlotnik, Спасибо за ваш ответ
вариант с макросом был бы к стати и за тоже Спасибо

Ответить

Hugo

Дата: Пятница, 08.01.2016, 17:24 | Сообщение № 7

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

Репутация: 819 ±

Замечаний: 0% ±

365

Вариант с макросом есть на планете:
http://planetaexcel.ru/forum....f_fid=1
Но если кто желает разнообразия/оптимизации (там ещё с форматами возможно нужно поработать) - может написать что-то своё. Кстати и профиль ветки призывает