Bir ishchi varaqdan boshqasiga nusxalash va joylashtirish uchun makro (15 usul)

Hugh West

11-06-2023 Makroslar va amp; Excel VBA
  • Buni Baham Ko'Ring
Hugh West

Mundarija

Biz bir nechta Excel varaqlari bilan ishlayotganimizda, ba'zida biz ma'lumotlarni bir elektron jadvaldan ikkinchisiga ko'chirishga to'g'ri keladi. VBA ni amalga oshirish Excelda har qanday operatsiyani bajarishning eng samarali, eng tez va xavfsiz usuli hisoblanadi. Ushbu maqolada biz sizga Excel dasturida VBA makrosi yordamida bir ishchi varaqdan boshqasiga ma'lumotlarni nusxalash va joylashtirish ni ko'rsatamiz.

Ishchi kitobni yuklab olish

Bu yerdan bepul Excel ish kitobini yuklab olishingiz mumkin.

Bir ish varaqidan boshqasiga nusxalash va joylashtirish.xlsm

VBA yordamida Excelda bir ishchi varaqdan ikkinchisiga ma'lumotlarni nusxalash va joylashtirishning 15 ta usullari

Ushbu bo'limda siz ma'lumotlarni nusxalashning 15 usulini bilib olasiz. bitta ishchi varaqni boshqasiga qo'ying VBA bilan Excelda.

Yuqorida ushbu maqola bizning misolimiz sifatida ko'rib chiqiladigan ma'lumotlar to'plamidir.

1. Bir ish varag'idan boshqasiga ma'lumotlar oralig'ini nusxalash va joylashtirish uchun VBA makrosini o'rnatish

VBA yordamida ma'lumotlarni bir varaqdan ikkinchisiga nusxalash va joylashtirish bosqichlari tasvirlangan. quyida.

Qadamlar:

  • Boshida klaviaturada Alt + F11 tugmalarini bosing yoki yorlig'iga o'ting. Dasturchi -> Visual Basic Visual Basic Editor -ni ochish uchun.

  • Qalqib chiquvchi kodda oynasida, menyu satridan Qo'shish -> Modul .

  • Endi quyidagi koddan nusxa oling vaExcelda filtrlangan katakchalar (4 usul)
  • Ishlash vaqti xatosi 1004: diapazon sinfining PasteMaxsus usuli bajarilmadi
  • Qanday qilib havolani joylashtirish va koʻchirish kerak Excel (8 ta tezkor usul)

12. Nusxalangan formulani yuqori diapazondan ushlab turganda qatorni diapazonning pastki qismiga qo'ying

Siz qiymatdan nusxa ko'chirish va formulani uning ichida saqlamoqchi bo'lganingizda uni joylashtirishda yana bir qator, keyin VBA kodi bilan vazifani osongina bajarishingiz mumkin.

Qadamlar:

  • Birinchi, Visualni oching. Dasturchi yorlig'idan asosiy muharrir va kod oynasiga Moduli qo'shing .
  • Ikkinchidan, quyidagilardan nusxa oling. kodni va uni kod oynasiga qo'ying . 
9793

Sizning kodingiz endi ishlashga tayyor.

  • Keyin, ushbu kodni Ishga tushirish va quyidagi rasmga qarang.

oxirgi qator aynan shunday nusxalanadi. u yonidagi qatorda joylashgan.

Batafsil o'qing: Ma'lumotlarni Excelda avtomatik ravishda bir katakdan ikkinchi katakka qanday nusxalash mumkin

13. VBA bir varaqdan boshqa varaqga boshqa ochiq, lekin saqlanmagan ish kitobida ma'lumotlarni takrorlash uchun

Misol ish kitobimizning nomiga e'tibor bering, Manba ish kitobi . Biz ushbu ish kitobidagi Ma'lumotlar to'plami varaqidagi ma'lumotlarni ko'chirib olamiz va uni Ma'lumotlar to'plami nomli boshqa ish kitobidagi boshqa ish varag'iga joylashtiramiz, ya'ni ochiq, lekin saqlanmaydihali .

Qadamlar:

  • Avval Visual Basic Editor -ni oching Dasturchi yorlig'ini va Qo'shish a Moduli kod oynasida.
  • Ikkinchidan, quyidagi kodni nusxalash va uni kod oynasiga qo'ying. 
3549

Sizning kodingiz endi ishlashga tayyor.

  • Keyingi, Ishga tushirish bu kod.

-dagi Ma'lumotlar to'plami varaqidagi ma'lumotlar Manba ish kitobi endi Vaqqat1 varaqda Maqsad ish kitobi ga ko'chiriladi.

Batafsil o'qing: Excel VBA: Hujayra qiymatini nusxalash va boshqa hujayraga joylashtirish

14. Boshqa ochiq va saqlangan ish kitobida ma'lumotlarni bir varaqdan ikkinchi varaqga ko'paytirish uchun makro

Bu safar biz ma'lumotlardan Ma'lumotlar to'plamidan<19 nusxa olamiz> varaqni Manba ish kitobi va qo'ying Varaq2 ish varag'iga > Maqsad ish kitobi . Ammo endi ish kitobi ochiq va saqlanadi .

Qadamlar:

  • Avval Visual Basic Editor<2-ni oching> Dasturchi yorlig'idan va Qo'shish kod oynasida Moduli .
  • Ikkinchidan, quyidagi koddan nusxa oling va uni kod oynasiga qo'ying . 
4038

Sizning kodingiz endi ishlashga tayyor.

  • Keyin ushbu kodni Ishga tushirish .

Ma'lumotlar to'plami varaqidagi ma'lumotlar ManbaIshchi kitobi endi Varaq2 varaqda Maqsad ish kitobi ga ko'chiriladi. Va nomiga qarang, bu ish kitobi bu safar saqlandi .

Ko'proq o'qing: Formatni o'zgartirmasdan Excelda qanday nusxa ko'chirish va joylashtirish

15. Boshqa yopiq ish kitobida bitta ishchi varaqdan boshqa varaqga ma'lumotlarni nusxalash va joylashtirish uchun VBA-ni qo'llash

Oldingi ikki bo'limda biz boshqa ish kitobida ma'lumotlarni bir varaqdan ikkinchisiga nusxalash va joylashtirishni o'rgangan edik. ochiq. Ushbu bo'limda biz Ish kitobi yopilganda ma'lumotlarni nusxalash va joylashtirish kodini o'rganamiz .

Qadamlar:

  • Birinchi, Dasturchi yorlig'ida Visual Basic Editor -ni oching va kod oynasida Qo'shish Moduli -ni oching.
  • Ikkinchidan, quyidagi koddan nusxa oling va uni kod oynasiga qo'ying . 
7901

Sizning kodingiz endi ishlashga tayyor.

  • Keyin, Ishga tushirish ushbu kod.

Garchi bu safar ish kitobi yopiq, lekin kod bajarilgandan keyin ham, Ma'lumotlar to'plami varaqidagi ma'lumotlar Manba ish kitobi endi <-ga ko'chiriladi. 18>Shart3 varaq Maqsad ish kitobi .

Batafsil o'qing: Ma'lumotlarni nusxalash uchun Excel VBA Ochilmagan boshqa ish kitobidan

Eslash kerak bo'lgan narsalar

  • 1-14-usullar sizning ish daftarlaringiz bo'lishini talab qiladi.ochildi . Ushbu usullarda ko'rsatilgan so'l kodlarni bajarayotganda, manba va maqsad ish kitoblarini ham ochiq saqlashni unutmang.
  • Ishchi kitoblaringiz saqlangan paytda fayl nomini fayl turi bilan yozing kod ichida. Agar ish kitoblari saqlanmasa, unda fayl turisiz faqat fayl nomini yozing . Misol uchun, agar ish kitobingiz saqlangan bo'lsa , u holda “ Maqsad. xlsx ” deb yozing, lekin agar Ish kitobi saqlanmadi , keyin kod ichiga “ Maqsad ” deb yozing.

Xulosa

Ushbu maqola Excelda VBA yordamida ma'lumotlarni bir ish varag'idan boshqasiga nusxalash va joylashtirishni ko'rsatdi. Umid qilamanki, ushbu maqola siz uchun juda foydali bo'ldi. Mavzu bo'yicha savollaringiz bo'lsa bemalol so'rang.

kod oynasigaqo'ying.
5934

Kodingiz endi ishga tayyor.

Ushbu kod qismi B2 dan F9 oralig'idagi diapazonni Ma'lumotlar to'plami nomli varaqdan ko'chiradi va B2 diapazoniga joylashtiradi. CopyPaste nomli varaqda .

  • Keyin klaviaturangizda yoki menyudan F5 tugmasini bosing satrini tanlang Ishga tushirish -> Sub/UserForm ni ishga tushiring. Shuningdek, makrosni ishga tushirish uchun pastki menyu satridagi kichik Play belgisini bosishingiz mumkin.

Quyidagi rasmga qarang. .

Nihoyat, Ma'lumotlar to'plami varaqdagi barcha ma'lumotlar endi CopyPaste<-ga nusxalanadi. Excel ish kitobimizdagi 19> varaq.

Batafsil o'qing: Excel VBA: diapazonni boshqa ish kitobiga nusxalash

2 . Excelda bir faol ish varag'idan ikkinchisiga ma'lumotlarni nusxalash va joylashtirish uchun VBA makrosi

Oldingi bo'limda biz ishchi varaqni faollashtirishni talab qilmadik. Ammo bu bo'limda biz faol ishchi varaqdagi ma'lumotlarni nusxalash va joylashtirishni o'rganamiz.

Qadamlar:

  • Xuddi shunday avvalgidek, Developer yorlig'idan Visual Basic Editor -ni oching va kod oynasida Qo'shish Moduli ni oching.
  • Kod oynasida quyidagi koddan nusxa oling va qo'ying . 
9947

Sizning kodingiz endi ishlashga tayyor.

  • Keyin, yuqorida ko'rsatilgandek kodni Ishga tushirish va natijani quyidagi rasmda ko'ringrasm.

Bu safar Ma'lumotlar to'plami varaqidagi barcha ma'lumotlar endi -ga ko'chiriladi. Ma'lumotlarni nusxalashdan oldin faollashtirilgan varaqni joylashtirish .

Batafsil o'qing: Matnni bitta katakdan boshqa varaqga nusxalash uchun Excel formulasi

3. VBA makrosi yordamida Excelda bitta yacheykani bitta ishchi varaqdan ikkinchisiga nusxalash va joylashtirish

Yuqoridagi bo'limlarda siz bir varaqdan ikkinchisiga bir qator ma'lumotlarni nusxalash va joylashtirishni o'rgandingiz. Endi siz Excel elektron jadvalida bitta ma'lumot bo'lagiga ega bo'lganingizda nusxalash va joylashtirishni ko'rasiz.

Quyidagi rasmga qarang, Diapazon varaq faqat bitta qiymatdan iborat.

Ushbu katakni boshqasiga qanday qilib nusxalash va joylashtirish mumkinligini ko'rib chiqamiz. varaq Excelda VBA bilan.

Qadamlar:

  • Yuqorida ko'rsatilganidek, Visual Basic Editor Dasturchi yorlig'idan va Qo'shish kod oynasida Moduli .
  • Kod oynasida quyidagilardan nusxa oling. kod va qo'yib qo'ying 
6380

Kodingiz endi ishga tayyor.

  • Keyingi, Ushbu kod qismini ishga tushiring va quyidagi rasmga e'tibor bering.

Ushbu bitta ma'lumot " Ushbu katakdan nusxa oling<19" Ma'lumotlar to'plami varaqidagi B4 katakchasidagi> ” endi CopyRange varag'ida ko'chiriladi B2 uyasi .

Batafsil o'qing: Faqat nusxa ko'chirish uchun Excel VBABelgilangan joyga qiymatlar (Makro, UDF va UserForm)

4. Excel makrosida PasteSpecial usuli yordamida nusxalangan ma'lumotlarni bir ishchi varaqdan boshqasiga joylashtirish

Siz bitta ishchi varaqdan ma'lumotlarni nusxalashingiz va ularni Excelning PasteSpecial<2 yordamida turli yo'llar bilan joylashtirishingiz mumkin> usuli bilan VBA . Buni amalga oshirish uchun qadamlar quyida keltirilgan.

Qadamlar:

  • Birinchi, Dasturchidan Visual Basic Editor ni oching. yorlig'ini va Qo'yish a Moduli kod oynasiga.
  • Ikkinchidan, quyidagi koddan nusxa oling va qo'ying uni kod oynasiga kiriting. 
7843

Kodingiz endi ishga tushirishga tayyor.

  • Keyingi, Ishga tushirish ushbu kod qismi.

Yuqoridagi rasmga qarang. Ma'lumotlar to'plami varaqidagi ma'lumotlar endi Exceldagi Maxsus Paste varaqiga uzatiladi.

Batafsil o'qish : VBA Excelda qiymatlar va formatlarni nusxalash uchun maxsus joylashtirish (9 ta misol)

5. Excelda bir ishchi varaqdan ikkinchisiga oxirgi katak ostidagi ma'lumotlarni nusxalash va joylashtirish uchun so'l

Bizda allaqachon Ma'lumotlar to'plami varaqida (bo'limda ko'rsatilgan) ba'zi ma'lumotlar mavjud. kirish bo'limi). Endi ushbu bo'limning kelgusi qismiga qarang. Endi bizda Oxirgi katak nomli boshqa varaqda bir nechta yangi ma'lumotlar bor.

Bu erda nima qilmoqchimiz: ma'lum ma'lumotlarni nusxalash (B5 - F9 katakchalari) Ma'lumotlar to'plami varaqdan quyidagilarni joylashtirish Ushbu Oxirgi katakcha varaqning oxirgi katakchasi ostida.

Qadamlar:

  • Birinchidan, Developer yorlig'idan Visual Basic Editor -ni oching va kod oynasida Qo'shish Moduli .
  • Ikkinchidan, quyidagi koddan nusxa oling va qo'ying kod oynasiga. 
9816

Sizning kodingiz endi ishga tayyor.

  • Keyingi, ushbu kodni Ishga tushirish . Quyidagi rasmga qarang.

Bu yerda Ma'lumotlar to'plami varaq dan faqat tanlangan ma'lumotlar endi Excel'dagi oxirgi katak varaq oxirgi katakchasi ostiga koʻchirildi.

Batafsil oʻqing: Excelda qiymatlarni nusxalash va joylashtirish formulasi ( 5 ta misol)

6. VBA makrosi avval ishchi varaqni tozalash uchun, keyin boshqa ish varag'iga nusxa ko'chiring va joylashtiring

Agar sizda mavjud varaqda noto'g'ri ma'lumotlar mavjud bo'lsa va u erdan asl ma'lumotlarni chiqarmoqchi bo'lsangiz nima bo'ladi?

Quyidagi rasmga qarang. Biz ma'lumotlarni Tozalash diapazoni varaqidagi ma'lumotlarni tozalaymiz va bu erda Ma'lumotlar to'plami varaqidagi ma'lumotlarni VBA kodi bilan saqlaymiz.

Qadamlar:

  • Birinchidan, Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish Module kod oynasida.
  • Ikkinchidan, quyidagi koddan nusxa oling va qo'ying kod oynasiga. 
1969

Sizning kodingiz endi ishlashga tayyor.

  • Keyin, ushbu kod qismini Ishga tushirish . ga qarangquyidagi rasm.

Tozalash diapazoni varaqidagi oldingi ma'lumotlar endi Ma'lumotlar to'plami varag'i.

Batafsil o'qing: Kriteriyalar asosida bir ish kitobidan ikkinchisiga ma'lumotlarni nusxalash uchun makro

7. Range.Copy funktsiyasi bilan bir ishchi varaqdan boshqasiga ma'lumotlarni nusxalash va joylashtirish uchun makro

Endi biz VBA kodni dan ma'lumotlarni nusxalash va joylashtirishni o'rganamiz. Excelda Range.Copy funksiyasi bilan bir varaqdan boshqasiga .

Qadamlar:

  • Birinchidan, <1-ni oching>Visual Basic Editor Developer yorlig'idan va Insert a Module kod oynasida.
  • Ikkinchidan, nusxalash. quyidagi kodni va qo'ying uni kod oynasiga. 
8242

Sizning kodingiz endi ishlashga tayyor.

  • Keyin, ushbu kod qismini Ishga tushirish va quyidagi rasmga qarang.

Biz ma'lumotlarni muvaffaqiyatli takrorladik. Range.Copy funksiyasi bilan Copy Range varaqidagi Ma'lumotlar to'plami varaqasi.

Batafsil o'qing: Yacheyka qiymatini boshqa hujayraga nusxalash uchun Excel formulasi

O'xshash o'qishlar

  • Kriteriyalar asosida boshqa ishchi varaqga satrlarni nusxalash uchun Excel VBA
  • Qiymatlarni faqat joylashtirish uchun VBA dan foydalaning y Excelda formatlashsiz
  • Faqat Excelda ko'rinadigan kataklardan qanday nusxa ko'chirish va joylashtirish (3 oson usul)
  • Nusxalash va joylashtirishExcelda ishlamayapti (9 sabab va yechimlar)
  • Makro yordamida Excelda bir nechta qatorlarni qanday nusxalash mumkin (4 ta misol)

8. USEDRANGE xususiyati bilan bir ishchi varaqdan ikkinchisiga ma'lumotlarni takrorlash uchun makrokodni amalga oshiring

Bu safar biz VBA kodini bir varaqdan ma'lumotlarni nusxalash va joylashtirishni o'rganamiz. ishchi varaqni Excelda UsedRange atributiga ega boshqasiga.

Qadamlar:

  • Avval Visual Basic-ni oching Dasturchi yorlig'idan muharrir va kod oynasiga Modul qo'shing .
  • Ikkinchidan, quyidagi koddan nusxa oling. va uni kod oynasiga qo'ying . 
7415

Sizning kodingiz endi ishga tayyor.

  • Keyin, Ishga tushirish ushbu kod qismini.

Yuqoridagi rasmda ko'rib turganimizdek, biz muvaffaqiyatli nusxa ko'chirdik va joylashtirdik. UsedRange varaqidagi Ma'lumotlar to'plami varaqdagi ma'lumotlar USEDRANGE xususiyatiga ega.

Batafsil o'qing: Excel dasturida bir nechta katakchalarda bir xil qiymatni qanday nusxalash mumkin (4 usul)

9. Tanlangan ma'lumotlarni Excelda bir varaqdan ikkinchisiga nusxalash va joylashtirish uchun VBA makrosi

Siz VBA faqat tanlangan ma'lumotlarni bir varaqdan boshqasiga nusxalashingiz va joylashtirishingiz mumkin 2>. Buni amalga oshirish uchun qadamlar quyida ko'rsatilgan.

Qadamlar:

  • Avval Ishlab chiquvchidan Visual Basic Editor -ni oching. 2> yorlig'i va Qo'shish a Moduli kod oynasi.
  • Ikkinchidan, quyidagi koddan nusxa oling va qo'ying kod oynasiga. 
9640

Sizning kodingiz hozir ishga tayyor.

Ushbu kod faqat B4 dan F7 gacha boʻlgan diapazonni Maʼlumotlar toʻplami varaqidan koʻchiradi va ularni quyidagiga qoʻyadi. B2 diapazoni PasteSelected nomli varaq .

  • Keyingi, Ishga tushirish bu kod.

Nihoyat, faqat Ma'lumotlar to'plami varaqidan tanlangan ma'lumotlar muvaffaqiyatli nusxalandi va Excel ish kitobidagi Tanlanganlarni joylashtirish varaqiga joylashtirildi.

Batafsil o'qing: VBA PasteSpecial-ni qanday qo'llash va Excelda manba formatlashni davom ettiring

10. Birinchi bo'sh qatorda ma'lumotlarni bir ishchi varaqdan ikkinchisiga ko'paytirish uchun so'l kod

Bu erda biz ma'lumotlar to'plamidan ma'lumotlarni qanday nusxalashni ko'rib chiqamiz> varaq va VBA bilan Excelda boshqa ish varag'idagi birinchi bo'sh katakdagi larni joylashtiring.

Qadamlar:

  • Birinchi, Dasturchi yorlig'idan Visual Basic Editor -ni oching va Qo'shish Moduli kod oynasida.
  • Ikkinchidan, quyidagi koddan nusxa oling va qo'ying kod oynasiga. 
4504

Sizning kodingiz endi ishga tayyor.

  • Keyin, Ishga tushirish ushbu kod boʻlagi.

Yuqoridagi rasmga qarang. 13-varaq butunlay bo'sh edi. Natijada, bajarilgan kod joylashtirildiExcel dasturidagi Sheet13 varaqidagi birinchi katakdagi Ma'lumotlar to'plami varaqdan ko'chirilgan ma'lumotlar.

Batafsil o'qing: Qiymatlarni Excel VBA yordamida keyingi bo'sh qatorga nusxalash va joylashtirish (3 ta misol)

11. Avtomatik filtrlangan ma'lumotlarni bitta Excel varag'idan boshqasiga nusxalash va joylashtirish uchun VBA-ni joylashtiring

Biz manba ma'lumotlar to'plamini filtrlashimiz va faqat filtrlangan ma'lumotlarni boshqa ish varag'iga nusxalashimiz va joylashtirishimiz mumkin Excel. Buni bosqichma-bosqich bajarish uchun VBA bilan tanishish uchun ushbu maqolaga rioya qiling.

Qadamlar:

  • Avval -ni oching. Visual Basic Editor Developer yorlig'idan va Insert a Module kod oynasiga.
  • Ikkinchidan, nusxalash quyidagi kodni kiriting va uni kod oynasiga qo'ying . 
9664

Sizning kodingiz endi ishlashga tayyor.

  • Keyingi, ushbu kodni Ishga tushirish . Faqat “ Dean ” boʻlgan qator filtrlanadi va boshqa varaqga koʻchiriladi.

Yuqoridagi rasmga e'tibor bering. Endi B ustunidan faqat filtrlangan “ Dekan ” maʼlumotlari koʻchiriladi va Sheet15 varaqiga joylashtiriladi. .

Batafsil o'qing: VBA (7 usul) yordamida Excelda qanday nusxa ko'chirish va joylashtirish

Shunga o'xshash o'qishlar

  • Qanday qilib Excel VBA-da ko'rinadigan qatorlarni avtomatik filtrlash va nusxalash
  • Excel dasturining boshqa ish varag'iga noyob qiymatlarni nusxalash (5 usul)
  • Qanday qilib birlashtirilgan va
Oldingi xabar Excelda formulani avtomatik qiymatga qanday aylantirish mumkin (6 samarali usul)
Keyingi post Excelda bir nechta qatorlarni bitta katakka qanday birlashtirish mumkin

Hugh West - bu sohada 10 yildan ortiq tajribaga ega bo'lgan yuqori tajribali Excel treneri va tahlilchisi. Buxgalteriya hisobi va moliya yo‘nalishi bo‘yicha bakalavr va biznes boshqaruvi bo‘yicha magistr darajasiga ega. Xyu o'qitishga ishtiyoqi bor va unga amal qilish va tushunish oson bo'lgan o'ziga xos o'qitish usulini ishlab chiqdi. Uning Excel bo'yicha ekspert bilimlari butun dunyo bo'ylab minglab talabalar va mutaxassislarga o'z malakalarini oshirishga va o'z martabalarida muvaffaqiyat qozonishlariga yordam berdi. Xyu o'z blogi orqali o'z bilimlarini dunyo bilan baham ko'radi, jismoniy shaxslar va korxonalarga o'z salohiyatini to'liq ro'yobga chiqarishga yordam berish uchun bepul Excel darsliklari va onlayn treninglarni taklif qiladi.