Понекад постаје рутински посао копирање података са више листова за исту колону. Овај корак се може избећи коришћењем аутоматизације. Ако желите да направите обједињени лист након копирања података из колоне сваког листа у један лист, требало би да прочитате овај чланак.
У овом чланку ћемо створити макро за копирање података из одређене колоне и лепљење у нови лист.
Сирови подаци за овај пример састоје се од података о запосленима у облику Екцел радне свеске која садржи три листа са подацима о одељењима, личним подацима и контактима запослених.
Да бисмо копирали податке са различитих листова у нови лист, креирали смо макро „ЦопиЦолумнс“. Овај макро се може покренути кликом на дугме „Покрени макро“ на листу „Главни“.
Макро „ЦопиЦолумнс“ ће уметнути нови лист назван „Мастер“ након листа „Маин“. „Главни“ лист ће садржати обједињене податке са свих листова.
Објашњење кода
Ворксхеетс.Адд (афтер: = Ворксхеетс ("Маин"))
Горњи код се користи за уметање нових радних листова иза радног листа „Главни“.
Ако Соурце.Наме "Мастер" И Соурце.Наме "Маин" Затим
Крај Ако
Горњи код се користи за ограничавање копирања података са листа „Главни“ и „Главни“.
Соурце.УседРанге.Цопи Дестинатион.Цолумнс (Ласт)
Горњи код се користи за копирање података са изворног листа на одредишни лист.
За сваки извор у овој радној свесци.Радни листови
Ако је Соурце.Наме = "Мастер" Онда
МсгБок "Главни лист већ постоји"
Екит Суб
Крај Ако
Следећи
Горњи код се користи за проверу да ли лист „Мастер“ већ постоји у радној свесци. Макро ће зауставити извршавање ако лист „Мастер“ већ постоји у радној свесци.
Молимо следите доле за код
Опција Експлицитна подкопијаКолумне () Затамни извор као радни лист Одредиште затамњивања Као радни лист затамни као последња Апплицатион.СцреенУпдатинг = Фалсе 'Провера да ли лист "Мастер" већ постоји у радној свесци за сваки извор у овој радној књизи. Радни листови Ако Соурце.Наме = "Мастер" Затим МсгБок "Главни лист већ постоји" Излаз из подзавршетка Ако је следеће 'Уметање нових радних листова у радну свеску Постави одредиште = Радни листови.Додај (после: = Радни листови ("Главни"))' Преименовање радног листа Дестинатион.Наме = "Мастер" 'Понављање кроз радне листове у радној свесци За сваки извор у овој радној свесци.Радни листови Ако извор.име "Мастер" и извор.име "Главни" Затим "Проналажење последње колоне са одредишног листа Ласт = Дестинатион.Ранге (" А1 "). СпециалЦеллс ( клЦеллТипеЛастЦелл) .Цолумн Иф Ласт = 1 Тхен 'Пастинг тхе дата ин тхе дестинатион схеет Соурце.УседРанге.Цопи Дестинатион.Цолумнс (Ласт) Елсе Соурце.УседРанге.Цопи Дестинатион.Цолумнс (Ласт + 1) Енд Иф Енд Иф Нект Цолумнс.АутоФит Апплицатион.СцреенУпдатинг = Труе Енд Суб
Ако вам се допао овај блог, поделите га са пријатељима на Фацебооку. Такође, можете нас пратити на Твиттер -у и Фацебоок -у.
Волели бисмо да чујемо од вас, јавите нам како можемо побољшати наш рад и учинити га бољим за вас. Пишите нам на веб локацији е -поште