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

Када манипулишете подацима у програму Мицрософт Екцел, наредба Премести или копирај лист је брз и једноставан начин за премјештање или копирање цијелих листова на друге локације у истој датотеци или у другој радној књизи. Алтернативно, можете користити ВБА (Висуал Басиц за апликације) за аутоматизацију задатка и учинити га много мање заморним.

Овај чланак ће вас упознати са оба начина копирања података у другу радну свеску у програму Мицрософт Екцел.

• Преместите или копирајте податке у исту радну свеску
• Преместите или копирајте податке у различите радне свеске
• Премештање или копирање података помоћу ВБА

Преместите или копирајте податке у исту радну свеску

Први корак је да одаберете листове које желите да преместите или копирате. Да бисте изабрали више листова, једноставно изаберите први лист, а затим држите притиснут тастер Цонтрол док кликате на додатне листове које желите да копирате.

На картици Почетак горње траке са алаткама пронађите групу Ћелије и кликните на Формат . У одељку Организе Схеетс, кликните на Мове ор Цопи Схеет .

Отвориће се оквир за дијалог. На листи Пре можете да кликнете на лист који желите да убаците премештене или копиране листове или да кликнете на прелазак на крај да бисте убацили листове после последњег листа у радној свесци.

Да бисте копирали листове уместо да их премјестите, потврдите поље Направи копију које се налази у дијалошком оквиру Премјести или копирај .

Преместите или копирајте податке у различите радне свеске

Ако желите да преместите или копирате Екцел радне листове у другу радну свеску, прво морате бити сигурни да је циљна радна књига отворена у истој верзији програма Мицрософт Екцел.

Изаберите листове које желите да преместите или копирате. Затим идите на картицу Почетак на траци са алаткама и кликните на групу Ћелије > Формат . У одељку Организе Схеетс, кликните на Мове ор Цопи Схеет .

Отвориће се оквир за дијалог. На листи За књигу изаберите или да преместите или копирате изабране листове у постојећу радну свеску или да преместите или копирате листове у нову радну свеску.

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

Премештање или копирање података помоћу ВБА

Суб ЦопиОпенИтемс ()
'
'ЦопиОпенИтемс Мацро
'Копирајте отворене ставке на лист.
'
Тастерска пречица: Цтрл + Схифт + О
'
Дим вбТаргет Ас Воркбоок 'радна свеска у којој ће се подаци залијепити
Дим вбТхис Ас Воркбоок 'радна свеска одакле се подаци копирају
Дим стрНаме Ас Стринг 'име изворног листа / циљне радне књиге
'поставите на тренутну активну радну књигу (изворна књига)
Поставите вбТхис = АцтивеВоркбоок
'преузмите активни назив књиге
стрНаме = АцтивеСхеет.Наме
'отворите радну књигу која има исто име као и име листа
Сет вбТаргет = Воркбоок.Опен ("Ц: филе патх") & стрНаме & ".клск")
'изаберите ћелију А1 на циљној књизи
вбТаргет.Ранге ("А1")
'јасне постојеће вриједности из циљне књиге
вбТаргет.Ранге ("А1: М51")
'активирајте изворну књигу
вбТхис.Ацтивате
'очистите било коју ствар у међуспремнику да бисте максимално повећали доступну меморију
Апплицатион.ЦутЦопиМоде = Фалсе
'копирајте распон из изворне књиге
вбТхис.Ранге ("А12: М62")
'Залијепите податке у циљну књигу
вбТаргет.Ранге ("А1")
'очистите било коју ствар у међуспремнику да бисте максимално повећали доступну меморију
Апплицатион.ЦутЦопиМоде = Фалсе
'спремите циљну књигу
вбТаргет.Саве
'затворите радну свеску
вбТаргет.Цлосе
'поново активирајте изворну књигу
вбТхис.Ацтивате
'јасно памћење
Постави вбТаргет = Ништа
Постави вбТхис = Ништа
Енд Суб