Вопрос : Получите все листы row2 до конца данных до один лист. Одно после другого.

Hi,

Get все листы row2 пашет конец данных до один лист. Одно после того как other.

On каждое бегут ясно лист и получают новое set

Row 1 будут коллекторами и я не хотим их лист copied

One должен быть исключен своему имени будет «

Can любым полного списка " помощь с этим macro.

Regards
Sharath
class=

Ответ : Получите все листы row2 до конца данных до один лист. Одно после другого.

Sharath,

Я изменял макрос для того чтобы сделать его более легким добавить имена рабочий лист для того чтобы исключить - см. ниже. Оно находится в прикрепленном архиве.

Патрик

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:

Sub консолидатор () Тусклый ws как рабочий лист Тусклое rng как ряд Для каждого ws в рабочий лист Выберите случай LCase (ws. Имя) Случай = «sheet4», «полный список» 'добавляет другие имена рабочий лист в строчной букве на этой линии Случай еще Установите rng = ws. Ряд (ws. Клетки (2, «a»), ws. Клетки (ws. Rows.Count, «a»). Конец (xlUp). Смещение (0, 10)) С листами («Sheet4») rng. Экземпляр. Клетки (. Rows.Count, «a»). Конец (xlUp). Смещение (1, 0) Конец с Конец отборный Следующий ws Подводная лодка конца