Макрас для капіравання і ўстаўкі з аднаго аркуша на іншы (15 метадаў)

Hugh West

11-06-2023 Макрасы & Excel VBA
  • Падзяліцца Гэтым
Hugh West

Змест

Калі мы маем справу з некалькімі аркушамі Excel, часам даводзіцца капіраваць даныя з адной электроннай табліцы ў іншую. Укараненне VBA з'яўляецца найбольш эфектыўным, хуткім і бяспечным метадам выканання любой аперацыі ў Excel. У гэтым артыкуле мы пакажам вам, як скапіяваць і ўставіць дадзеныя з аднаго аркуша ў іншы ў Excel з дапамогай макраса VBA .

Спампаваць кнігу

Вы можаце спампаваць бясплатную вучэбную кнігу Excel адсюль.

Капіруйце і ўстаўляйце з аднаго аркуша на іншы.xlsm

15 метадаў з дапамогай VBA для капіравання і ўстаўкі даных з аднаго працоўнага ліста ў іншы ў Excel

У гэтым раздзеле вы даведаецеся 15 метадаў таго, як скапіяваць даныя з адзін аркуш і ўстаўце яго ў іншы з дапамогай VBA у Excel.

Вышэй прыведзены набор даных, які ў гэтым артыкуле будзе разглядацца як прыклад.

1. Убудаваць макрас VBA для капіявання і ўстаўкі дыяпазону даных з аднаго аркуша ў іншы

Апісаны крокі для капіравання і ўстаўкі дыяпазону даных з аднаго аркуша ў іншы з дапамогай VBA ніжэй.

Крокі:

  • У пачатку націсніце Alt + F11 на клавіятуры або перайдзіце на ўкладку Распрацоўшчык -> Visual Basic , каб адкрыць Рэдактар ​​Visual Basic .

  • Ва ўсплывальным кодзе у радку меню націсніце Уставіць -> Модуль .

  • Цяпер скапіруйце наступны код іАдфільтраваныя вочкі ў Excel (4 метады)
  • Памылка падчас выканання 1004: Памылка спецыяльнага метаду класа дыяпазону PasteSpecial
  • Як уставіць спасылку і транспанаваць у Excel (8 хуткіх спосабаў)

12. Уставіць радок унізе дыяпазону, захоўваючы скапіраваную формулу з вышэйшага дыяпазону

Калі вы хочаце скапіяваць значэнне і захаваць формулу ўнутры яго , устаўляючы яго іншы радок, затым з кодам VBA вы можаце лёгка выканаць задачу.

Крокі:

  • Спачатку адкрыйце Visual Базавы рэдактар з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступнае код і ўстаўце яго ў акно кода. 
3167

Цяпер ваш код гатовы да выканання.

  • Далей, запусціце гэты код і паглядзіце на малюнак ніжэй.

Апошні радок скапіяваны дакладна так гэта ў радку побач з ім.

Больш падрабязна: Як аўтаматычна скапіяваць даныя з адной ячэйкі ў іншую ў Excel

13. VBA для рэплікацыі даных з аднаго аркуша на іншы аркуш у іншай адкрытай, але не захаванай працоўнай кнізе

Звярніце ўвагу на назву нашага прыкладу працоўнай кнігі, Зыходная рабочая кніга . Мы скапіруем даныя з аркуша Набор даных з гэтай кнігі і ўставім іх у іншы аркуш іншай кнігі пад назвай Кніга прызначэння , г.зн. адкрыты, але не захаваныпакуль .

Крокі:

  • Спачатку адкрыйце Visual Basic Editor з укладку Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступны код і устаўце яго ў акно кода. 
3350

Цяпер ваш код гатовы да выканання.

  • Далей, Запусціце гэты код.

Даныя з аркуша Набор даных у Зыходны працоўны сшытак цяпер скапіраваны на аркушы Sheet1 у Destination Workbook .

Дадатковая інфармацыя: Excel VBA: скапіруйце значэнне ячэйкі і ўстаўце ў іншую ячэйку

14. Макрас для прайгравання даных з аднаго аркуша на іншы ў іншай адкрытай і захаванай рабочай кнізе

На гэты раз мы скапіруем даныя з набору даных з Зыходны сшытак і ўстаўце яго ў Аркуш2 у Працоўны сшытак па прызначэнні . Але зараз рабочая кніга адкрыта і захавана .

Крокі:

  • Спачатку адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
1958

Цяпер ваш код гатовы да выканання.

  • Далей Запусціце гэты код.

Даныя з аркуша Набор даных у КрыніцаРабочая кніга цяпер скапіравана на аркушы Sheet2 у Destination Workbook . І паглядзіце на назву, гэтая рабочая кніга была захавана на гэты раз.

Дадатковая інфармацыя: Як скапіяваць і ўставіць у Excel без змены фармату

15. Ужывайце VBA для капіравання і ўстаўкі даных з аднаго аркуша на іншы аркуш у іншай закрытай кнізе

У папярэдніх двух раздзелах мы даведаліся, як капіяваць і ўстаўляць даныя з аднаго аркуша ў іншы ў іншай кнізе, якая ёсць адкрыты. У гэтым раздзеле мы даведаемся код таго, як капіраваць і ўстаўляць даныя, калі працоўная кніга закрыта .

Крокі:

  • Спачатку адкрыйце Рэдактар ​​Visual Basic на ўкладцы Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
8112

Цяпер ваш код гатовы да выканання.

  • Далей запусціце гэты код.

Нягледзячы на ​​тое, што на гэты раз рабочая кніга была зачынены, але ўсё яшчэ пасля выканання кода, даныя з аркуша Набор даных у Зыходная кніга зараз капіююцца ў Sheet3 ліст у Destination Workbook .

Дадатковая інфармацыя: Excel VBA для капіравання даных з іншага працоўнага сшытка, не адкрываючы

Што трэба памятаць

  • Метады з 1 па 14 патрабуюць, каб вашы працоўныя сшыткі быліадкрыты . Пры выкананні макракодаў, паказаных у гэтых метадах, не забывайце трымаць адкрытымі зыходную і мэтавую працоўныя кнігі.
  • Пакуль вашыя рабочыя кнігі захоўваюцца, упішыце імя файла з тыпам файла ўнутры кода. Калі рабочыя кнігі не захаваны, упішыце толькі імя файла без тыпу файла. Напрыклад, калі ваша працоўная кніга захавана , напішыце « Пункт прызначэння. xlsx », але калі рабочая кніга не захавана , затым напішыце « Пункт прызначэння » ўнутры кода.

Выснова

У гэтым артыкуле было паказана, як скапіяваць і ўставіць даныя з аднаго аркуша ў іншы ў Excel з дапамогай VBA . Я спадзяюся, што гэты артыкул быў для вас вельмі карысным. Не саромейцеся пытацца, калі ў вас ёсць якія-небудзь пытанні па тэме.

Устаўцеяго ў акно кода.
9283

Цяпер ваш код гатовы да выканання.

Гэты фрагмент кода скапіруе дыяпазон ад B2 да F9 з ліста з назвай Набор даных і ўставіць іх у дыяпазон B2 на аркушы з назвай CopyPaste .

  • Затым націсніце F5 на клавіятуры або з меню панэль выбару Выканаць -> Запусціце Sub/UserForm . Вы таксама можаце проста націснуць на маленькі значок Play у радку падменю, каб запусціць макрас.

Паглядзіце на наступны малюнак .

Нарэшце, усе даныя з аркуша Набор даных цяпер скапіраваны ў CopyPaste аркуш у нашай працоўнай кнізе Excel.

Дадатковая інфармацыя: Excel VBA: капіраванне дыяпазону ў іншую працоўную кнігу

2 . Макрас VBA для капіравання і ўстаўкі даных з аднаго актыўнага аркуша ў іншы ў Excel

У папярэднім раздзеле нам не патрабавалася актывацыя аркуша. Але ў гэтым раздзеле мы даведаемся, як скапіяваць і ўставіць даныя ў актыўны аркуш .

Крокі:

  • Такім жа чынам як і раней, адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
  • У акне кода скапіруйце наступны код і ўстаўце яго. 
6377

Цяпер ваш код гатовы да выканання.

  • Далей запусціце код, як паказана вышэй, і паглядзіце вынік у наступнымвыява.

На гэты раз усе даныя з аркуша Набор даных зараз скапіраваны ў Уставіць аркуш, які мы актывавалі перад капіяваннем даных.

Больш падрабязна: Формула Excel для капіравання тэксту з адной ячэйкі ў іншую аркуш

3. Скапіруйце і ўстаўце адну ячэйку з аднаго працоўнага аркуша ў іншы ў Excel з дапамогай макраса VBA

У прыведзеных вышэй раздзелах вы даведаліся, як капіяваць і ўстаўляць дыяпазон даных з аднаго аркуша на іншы. Цяпер вы ўбачыце, як скапіяваць і ўставіць, калі ў вас ёсць адзін фрагмент даных у вашай электроннай табліцы Excel.

Паглядзіце на наступны малюнак, Дыяпазон ліст складаецца толькі з аднаго значэння.

Мы паглядзім, як мы можам скапіяваць і ўставіць гэтую адну ячэйку ў іншую аркуш у Excel з VBA .

Крокі:

  • Як паказана вышэй, адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акне кода.
  • У акне кода скапіруйце наступнае code і paste 
9404

Цяпер ваш код гатовы да запуску.

  • Далей, Запусціце гэты фрагмент кода і звярніце ўвагу на наступны відарыс.

Гэтыя адзінкавыя дадзеныя « Скапіруйце гэту ячэйку ” у ячэйцы B4 на аркушы Набор даных цяпер скапіраваны ў CopyRange лісце ў Ячэйка B2 .

Дадатковая інфармацыя: Excel VBA толькі для капіраванняЗначэнні для прызначэння (макрас, UDF і форма карыстальніка)

4. Устаўце скапіраваныя даныя з аднаго працоўнага аркуша ў іншы з дапамогай метаду PasteSpecial у Excel Macro

Вы можаце скапіяваць даныя з аднаго працоўнага аркуша і ўставіць іх рознымі спосабамі з дапамогай Excel PasteSpecial метад з VBA . Крокі для гэтага прыведзены ніжэй.

Крокі:

  • Спачатку адкрыйце Visual Basic Editor з Developer і Устаўце Модуль у акне кода.
  • Па-другое, скапіруйце наступны код і ўстаўце у акно кода. 
2937

Цяпер ваш код гатовы да запуску.

  • Далей, Выканаць гэты фрагмент кода.

Паглядзіце на малюнак вышэй. Дадзеныя з аркуша Набор даных цяпер пераносяцца ў аркуш PasteSpecial у Excel.

Чытаць далей : VBA Paste Special для капіравання значэнняў і фарматаў у Excel (9 прыкладаў)

5. Макрас для капіравання і ўстаўкі даных ніжэй апошняй ячэйкі з аднаго працоўнага ліста ў іншы ў Excel

У нас ужо ёсць некаторыя даныя на аркушы Набор даных (паказана ў уводзіны). А цяпер паглядзіце на будучую частку гэтага раздзела. Зараз у нас ёсць некаторыя новыя даныя ў іншым аркушы пад назвай Апошняя ячэйка .

Тое, што мы хочам зрабіць тут, мы будзем скапіруйце пэўныя даныя (ячэйкі B5 да F9) з аркуша набору даных і ўстаўце іх у пад апошняй ячэйкай гэтага Апошняя ячэйка ліста.

Крокі:

  • Па-першае, адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
8028

Цяпер ваш код гатовы да выканання.

  • Далей, Запусціце гэты код. Паглядзіце на малюнак ніжэй.

Тут толькі выбраныя даныя з набору даных ліста цяпер скапіявана пад апошняй ячэйкай на апошняй ячэйцы лісце ў Excel.

Больш падрабязна: Формула для капіравання і ўстаўкі значэнняў у Excel ( 5 прыкладаў)

6. Макрас VBA для ачысткі працоўнага аркуша, затым капіявання і ўстаўкі ў іншы аркуш

Што рабіць, калі ў вас ёсць няправільныя даныя ў існуючым аркушы і вы хочаце атрымаць зыходныя даныя туды.

Паглядзіце на наступны малюнак. Мы ачысцім даныя з аркуша Ачысціць дыяпазон і захаваем тут даныя з аркуша Набор даных з кодам VBA .

Крокі:

  • Спачатку адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце a Module у акне кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
8667

Цяпер ваш код гатовы да запуску.

  • Далей, запусціце гэты фрагмент кода. Паглядзіце нанаступны відарыс.

Папярэднія даныя ў аркушы Ачысціць дыяпазон цяпер заменены данымі з Набор даных ліст.

Больш падрабязна: Макрас для капіравання даных з адной працоўнай кнігі ў іншую на аснове крытэрыяў

7. Макрас для капіравання і ўстаўкі даных з аднаго аркуша ў іншы з дапамогай функцыі Range.Copy

Цяпер мы даведаемся код VBA аб тым, як капіяваць і ўстаўляць даныя з адзін аркуш на другі з дапамогай функцыі Range.Copy у Excel.

Крокі:

  • Спачатку адкрыйце Visual Basic Editor з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
2780

Цяпер ваш код гатовы да выканання.

  • Далей запусціце гэты фрагмент кода і паглядзіце на наступны відарыс.

Мы паспяхова дубліравалі даныя з аркуш Набор даных у аркушы Капіяваць дыяпазон з функцыяй Дыяпазон.Капіяваць .

Дадатковая інфармацыя: Формула Excel для капіравання значэння ячэйкі ў іншую ячэйку

Падобныя паказанні

  • Excel VBA для капіравання радкоў у іншы аркуш на аснове крытэрыяў
  • Выкарыстоўвайце VBA для ўстаўкі толькі значэнняў y без фарматавання ў Excel
  • Як скапіяваць і ўставіць бачныя вочкі толькі ў Excel (3 простых спосабу)
  • Капіяваць і ўставіцьне працуе ў Excel (9 прычын і рашэнняў)
  • Як скапіяваць некалькі радкоў у Excel з дапамогай макраса (4 прыклады)

8. Рэалізуйце код макраса для дубліравання даных з аднаго аркуша на другі з дапамогай уласцівасці USEDRANGE

На гэты раз мы даведаемся код VBA аб тым, як капіяваць і ўстаўляць даныя з аднаго працоўны аркуш на іншы з атрыбутам UsedRange у Excel.

Крокі:

  • Спачатку адкрыйце Visual Basic Рэдактар з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
7496

Цяпер ваш код гатовы да выканання.

  • Далей, Запусціце гэты фрагмент кода.

Як мы бачым на малюнку вышэй, мы паспяхова скапіявалі і ўставілі даныя з аркуша Набор даных у аркушы UsedRange з уласцівасцю USEDRANGE .

Дадатковая інфармацыя: Як скапіяваць адно і тое ж значэнне ў некалькіх ячэйках у Excel (4 метады)

9. Макрас VBA для капіравання і ўстаўкі выбраных даных з аднаго аркуша на іншы ў Excel

Вы можаце скапіяваць і ўставіць толькі некаторыя выбраныя даныя з аднаго аркуша ў іншы з дапамогай VBA . Крокі для гэтага паказаны ніжэй.

Крокі:

  • Спачатку адкрыйце Visual Basic Editor з Developer і Уставіць Модуль акно кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
7382

Ваш код цяпер гатовы да запуску.

Гэты код скапіруе толькі дыяпазон ад B4 да F7 з аркуша Набор даных і ўставіць іх у дыяпазон B2 у названым аркушы PasteSelected .

  • Далей, Запусціце гэты код.

Нарэшце, толькі выбраныя даныя з аркуша Набор даных паспяхова скапіраваны і ўстаўлены ў аркуш Уставіць выбранае у кнізе Excel.

Дадатковая інфармацыя: Як прымяніць VBA PasteSpecial і Захоўвайце зыходнае фарматаванне ў Excel

10. Макракод для дубліравання даных з аднаго аркуша ў другі ў першым пустым радку

Тут мы паглядзім, як капіяваць даныя з набору даных ліст і ўстаўце гэта ў першую пустую ячэйку ў іншы аркуш у Excel з VBA .

Этапы:

  • Спачатку адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акне кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
6930

Ваш код цяпер гатовы да запуску.

  • Далей, Запусціце гэты фрагмент кода.

Глядзіце на малюнку вышэй. Аркуш13 быў цалкам пусты. У выніку выкананы код устаўленыскапіраваныя даныя з аркуша Набор даных у самай першай ячэйцы на аркушы Ліст13 у Excel.

Дадаткова: Скапіруйце і ўстаўце значэнні ў наступны пусты радок з дапамогай Excel VBA (3 прыклады)

11. Убудаваць VBA для капіявання і ўстаўкі аўтаматычна адфільтраваных даных з аднаго аркуша Excel на іншы

Мы можам фільтраваць зыходны набор даных і скапіяваць і ўставіць толькі адфільтраваныя даныя ў іншы аркуш у Excel. Выканайце гэты артыкул, каб даведацца, як зрабіць гэта крок за крокам з VBA .

Крокі:

  • Спачатку адкрыйце Рэдактар ​​Visual Basic з укладкі Распрацоўшчык і Устаўце Модуль у акно кода.
  • Па-другое, скапіруйце наступны код і ўстаўце яго ў акно кода. 
9985

Цяпер ваш код гатовы да выканання.

  • Далей Запусціце гэты код. Толькі радок, у якім ёсць « Дын », будзе адфільтраваны і скапіраваны на іншы аркуш.

Звярніце ўвагу на малюнак вышэй. Толькі адфільтраваныя даныя « Дын » з Слупка B цяпер скапіраваны і ўстаўлены ў аркуш Аркуш15 .

Дадатковая інфармацыя: Як скапіяваць і ўставіць у Excel з дапамогай VBA (7 метадаў)

Падобныя паказанні

  • Як зрабіць аўтафільтр і скапіяваць бачныя радкі з дапамогай Excel VBA
  • Капіяваць унікальныя значэнні на іншы працоўны ліст у Excel (5 метадаў)
  • Як скапіяваць аб'яднаныя і
Папярэдняя публікацыя Як аўтаматычна пераўтварыць формулу ў значэнне ў Excel (6 эфектыўных спосабаў)
Наступны пост Як аб'яднаць некалькі радкоў у адну ячэйку ў Excel

Х'ю Уэст з'яўляецца вельмі дасведчаным трэнерам і аналітыкам Excel з больш чым 10-гадовым вопытам работы ў галіны. Ён мае ступень бакалаўра ў галіне бухгалтарскага ўліку і фінансаў і ступень магістра дзелавога адміністравання. Х'ю захапляецца навучаннем і распрацаваў унікальны падыход да навучання, які лёгка прытрымлівацца і зразумець. Яго экспертныя веды Excel дапамаглі тысячам студэнтаў і спецыялістаў па ўсім свеце палепшыць свае навыкі і атрымаць поспех у сваёй кар'еры. Праз свой блог Х'ю дзеліцца сваімі ведамі з усім светам, прапаноўваючы бясплатныя падручнікі па Excel і онлайн-трэнінгі, каб дапамагчы прыватным асобам і прадпрыемствам цалкам раскрыць свой патэнцыял.