Екцел - Копирајте редове на укупну страницу

Питање

Имам Екцел табелу са 13 радних листова. Првих 12 радних листова су од јануара до децембра. 13. радни лист је укупно. Сваки радни лист има идентичне колоне и редове.

На свим радним листовима има око 10 ступаца као што су датум, име, адреса, број рачуна, одјел, име запосленика, итд ...

Оно што покушавам да урадим је да унесем информације у сваки месечни радни лист и да податке које уносим аутоматски копирам на укупан радни лист. Укупан радни лист садржи све унете податке. Имао бих месечни преглед, али укупна страница садржи све трансакције.

Поставио сам све радне листове, али не могу смислити код за копирање. Имате ли каквих сугестија?

Решење

Пробајте ово. Наравно, обавезно направите резервну копију оригиналне датотеке пре тестирања

Претпоставке.

  • 1. Листови су имена Јан, Феб, ....
  • 2. Главни лист се зове Мастер
  • 3. Колона 1 нема празну вредност (користи се за проналажење максималног броја редова)
  • 4. Не постоји више од 11 колона
  • 5. Главни лист већ има ред заглавља.

 Суб цопиДата () Дим макРовс Ас Лонг Дим макЦолс Као Интегер Дим цонСхеет Ас Стринг 'име консолидованог листа Дим лЦонРов Ас Лонг Дим макРовЦол Ас Интегер' користи се за проналажење максималног броја редова макЦолс = 11 монтхс = Арраи ("Јан", "Феб"), "Мар", "Апр", "Мај", "Јун", "Јул", "Ауг", "Сеп", "Оцт", "Нов", "Дец") макРовЦол = 1 цонСхеет = "Мастер" листови (ЦонСхеет) .Селецт Ранге ("А2") .Одаберите ћелије (65536, 256) .Селецт Селецтион.Енд (клДовн) .Селецт макРовс = Селецтион.Ров Ранге ("А2", Селецтион) .Селецт Селецтион.ЦлеарЦонтентс лЦонРов = 2 За к = 0 до Схеетс.Цоунт - 2 листова (месеци (к)) .Одаберите Ако АцтивеСхеет.АутоФилтерМоде онда Целлс.Селецт Селецтион.АутоФилтер Енд Ако ћелије.Изаберите Дим ластРов Ас Лонг ластРов = Целлс (макРовс, макРовЦол). клУп) .Ров Иф (ластРов> 1) Затим Ранге (Целлс (2, 1), Целлс (ластРов, макЦолс)) Изаберите Селецтион.Цопи Схеетс (цонСхеет) .Селецт Целлс (лЦонРов, 1) .Селецт Селецтион.ПастеСпециал лЦонРов = Целлс (макРовс, макРовЦол) .Енд (клУп) .Ров лЦонРов = лСуммариРов + 1 Енд Иф Иф АцтивеСхеет.Наме = "Дец "Затим Екит Суб Нект Енд Суб 

Белешка

Захваљујући ризвиса1 за овај тип на фору.

Претходни Чланак Sledeći Чланак

Топ Савети