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