Бірнеше Excel парақтарымен жұмыс істегенде, кейде деректерді бір электрондық кестеден екіншісіне көшіруге тура келеді. VBA енгізу Excel бағдарламасындағы кез келген операцияны орындаудың ең тиімді, жылдам және қауіпсіз әдісі болып табылады. Бұл мақалада біз Excel бағдарламасында VBA макросы көмегімен бір жұмыс парағынан екіншісіне деректерді көшіру және қою жолын көрсетеміз.

Жұмыс кітабын жүктеп алу

Тегін тәжірибе Excel жұмыс кітабын осы жерден жүктеп алуға болады.

Бір жұмыс парағынан екіншісіне көшіру және қою.xlsm

Excel бағдарламасында деректерді бір жұмыс парағынан екіншісіне көшіруге және қоюға арналған VBA көмегімен 15 әдіс

Бұл бөлімде сіз деректерді көшіруге болатын 15 әдісті үйренесіз. бір жұмыс парағын және оны Excel бағдарламасындағы VBA көмегімен басқа парағына қойыңыз.

Жоғарыда осы мақала мысал ретінде қарастырылатын деректер жинағы берілген.

1. Бір жұмыс парағынан екіншісіне деректер ауқымын көшіру және қою үшін VBA макросын ендіру

VBA көмегімен бір жұмыс парағынан екіншісіне деректер ауқымын көшіру және қою қадамдары сипатталған. төменде.

Қадамдар:

• Басында пернетақтада Alt + F11 пернелерін басыңыз немесе қойындысына өтіңіз. Әзірлеуші ​​-> Visual Basic Visual Basic өңдегішін ашу үшін.

• Қалқымалы кодта терезеде мәзір жолағынан Кірістіру -> Модуль .

• Енді келесі кодты көшіріңіз жәнеExcel бағдарламасындағы сүзілген ұяшықтар (4 әдіс)
• Орындалу уақыты қатесі 1004: диапазон сыныбының Paste арнайы әдісі сәтсіз аяқталды
• Сілтемені қою және ауыстыру әдісі Excel (8 жылдам әдіс)

12. Көшірілген формуланы жоғары диапазоннан сақтай отырып, жолды диапазонның төменгі жағына қойыңыз

мәнді көшіріп, формуланы оның ішінде сақтағыңыз келгенде оны қою кезінде басқа жол, содан кейін VBA коды арқылы тапсырманы оңай орындауға болады.

Қадамдар:

• Біріншіден, Көрнекі Негізгі өңдегіш Әзірлеуші қойындысынан және код терезесінде Кірістіру Модуль .
• Екіншіден, төмендегіні көшіріңіз коды және оны код терезесіне қою .

4556

Сіздің кодыңыз енді іске қосуға дайын.

• Келесі, осы кодты Іске қосу және төмендегі суретке қараңыз.

соңғы жол дәл осылай көшіріледі. ол оның жанындағы жолда.

Толығырақ: Деректерді Excel бағдарламасында бір ұяшықтан екінші ұяшыққа автоматты түрде көшіру жолы

13. Басқа ашық, бірақ сақталмаған жұмыс кітабындағы деректерді бір парақтан екінші параққа көшіру үшін VBA

Мысалы жұмыс кітабымыздың атауына назар аударыңыз, Дереккөз жұмыс кітабы . Біз осы жұмыс кітабындағы Деректер жинағы парағынан деректерді көшіреміз және оны Тағайындалған жұмыс кітабы деп аталатын басқа жұмыс кітабындағы басқа жұмыс парағына қоямыз. ашық, бірақ сақталмағанәлі .

Қадамдар:

• Алдымен Visual Basic редакторын ашыңыз Әзірлеуші қойындысын және код терезесінде Кірістіру а Модуль .
• Екіншіден, келесі кодты көшіріңіз және оны код терезесіне қойыңыз.

4579

Кодыңыз енді іске қосуға дайын.

• Келесі, Бұл кодты іске қосыңыз .

ішіндегі Деректер жинағы парағындағы деректер Негізгі жұмыс кітабы енді 1-парақ парағында Тағайындалған жұмыс кітабы ішіне көшірілді.

Толығырақ оқу: Excel VBA: ұяшық мәнін көшіріп, басқа ұяшыққа қою

14. Басқа ашық және сақталған жұмыс кітабындағы деректерді бір парақтан екінші параққа көшіруге арналған макрос

Бұл жолы біз деректерді Деректер жиынынан<19 көшіреміз. Көзі жұмыс кітабынан> парағын және қою 2-парақ жұмыс парағына > Тағайындалған жұмыс кітабы . Бірақ қазір жұмыс кітабы ашық және сақталған .

Қадамдар:

• Алдымен Visual Basic редакторын<2 ашыңыз> Әзірлеуші қойындысынан және код терезесінде Кірістіру Модуль .
• Екіншіден, келесі кодты көшіріңіз және оны код терезесіне қою .

9001

Сіздің кодыңыз енді іске қосуға дайын.

• Одан кейін осы кодты Іске қосу .

<ішіндегі Деректер жинағы парағындағы деректер 1> ДереккөзЖұмыс кітабы енді 2-парақ парағына Тағайындалған жұмыс кітабы көшірілді. Ал атына қараңызшы, бұл жолы жұмыс кітабы сақталды .

Толығырақ: Excel-де пішімді өзгертпей көшіру және қою жолы

15. Басқа жабық жұмыс кітабындағы деректерді бір жұмыс парағынан екінші жұмыс парағына көшіру және қою үшін VBA қолдану

Алдыңғы екі бөлімде біз басқа жұмыс кітабында деректерді бір жұмыс парағынан екіншісіне көшіру және қою жолын үйрендік. ашық. Бұл бөлімде біз жұмыс кітабы жабылған кезде деректерді көшіру және қою әдісі туралы кодты үйренеміз.

Қадамдар:

• Біріншіден, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және код терезесінде Кірістіру Модуль тармағын ашыңыз.
• Екіншіден, келесі кодты көшіріп, оны код терезесіне қою .

5371

Кодыңыз енді іске қосуға дайын.

• Кейін, осы кодты Іске қосу .

Дегенмен, бұл жолы жұмыс кітабы жабық, бірақ әлі де код орындалғаннан кейін, Деректер жинағы парағындағы деректер Деректер жинағы енді <-ге көшіріледі. 18>парақ3 Тағайындалған жұмыс кітабындағы .

Толығырақ оқу: Деректерді көшіру үшін Excel VBA Ашылмаған басқа жұмыс кітабынан

Есте сақтау керек нәрселер

• 1-14-әдістер жұмыс кітаптарыңыздың болуын талап етеді.ашылды . Осы әдістерде көрсетілген макрокодтарды орындаған кезде бастапқы және тағайындалған жұмыс кітаптарының екеуін де ашық ұстауды ұмытпаңыз.
• жұмыс кітаптарыңыз сақталған кезде, файл атауын файл түрімен жазыңыз. кодтың ішінде. жұмыс кітаптары сақталмаған кезде, файл түрінсіз тек файл атын жазыңыз. Мысалы, жұмыс кітабыңыз сақталса , " Тағайындалған жер. xlsx " деп жазыңыз, бірақ жұмыс кітабы сақталмады , содан кейін код ішіне “ Тағайындалған жер ” деп жазыңыз.

Қорытынды

Бұл мақала Excel бағдарламасында VBA көмегімен бір жұмыс парағынан екіншісіне деректерді көшіру және қою жолын көрсетті. Бұл мақала сізге өте пайдалы болды деп үміттенемін. Тақырыпқа қатысты сұрақтарыңыз болса, қоя аласыз.

3627

Кодыңыз енді іске қосуға дайын.

Бұл код бөлігі В2-ден F9 аралығындағы диапазонды Деректер жинағы деп аталатын парақтан көшіреді және B2 диапазонындағыларды қояды. CopyPaste аталған парақта .

• Одан кейін пернетақтада немесе мәзірден F5 пернесін басыңыз. жолақ таңдау Іске қосу -> Sub/UserForm іске қосыңыз. Сондай-ақ макросты іске қосу үшін ішкі мәзір жолағындағы кіші Ойнату белгішесін басуға болады.

Келесі суретке қараңыз. .

Соңында, Деректер жинағы парағындағы барлық деректер енді CopyPaste<ішіне көшірілді. Excel жұмыс кітабындағы 19> парағы.

Толығырақ оқу: Excel VBA: ауқымды басқа жұмыс кітабына көшіру

2 . Excel бағдарламасындағы бір белсенді жұмыс парағынан екіншісіне деректерді көшіруге және қоюға арналған VBA макросы

Алдыңғы бөлімде біз жұмыс парағын белсендіруді талап етпедік. Бірақ бұл бөлімде біз белсенді жұмыс парағындағы деректерді көшіру және қоюды үйренеміз.

Қадамдар:

• Дәл солай бұрынғыдай, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және код терезесінде Кірістіру Модуль .
• . Код терезесінде келесі кодты көшіріңіз және қою .

8175

Кодыңыз енді іске қосылуға дайын.

• Кейін, жоғарыда көрсетілгендей кодты Іске қосу және нәтижені келесіден қараңызсурет.

Бұл жолы Деректер жинағы парағындағы барлық деректер енді парағына көшірілді. Деректерді көшірмес бұрын белсендірілген парақты қою .

Толығырақ оқу: Мәтінді бір ұяшықтан екінші параққа көшіруге арналған Excel формуласы

3. Excel бағдарламасында VBA макросымен бір ұяшықты бір жұмыс парағынан екіншісіне көшіру және қою

Жоғарыдағы бөлімдерде сіз бір жұмыс парағынан екіншісіне деректер ауқымын көшіріп, қоюды үйрендіңіз. Енді Excel электрондық кестесінде деректердің бір бөлігі болғанда көшіру және қою жолын көресіз.

Келесі суретке қараңыз, Ауқым парағы тек бір мәннен тұрады.

Осы бір ұяшықты басқа ұяшыққа көшіру және қою жолын көреміз. парақ Excel бағдарламасында VBA .

Қадамдар:

• Жоғарыда көрсетілгендей, Visual Basic өңдегішін<ашыңыз. 2> Әзірлеуші қойындысынан және код терезесінде Кірістіру Модуль .
• Код терезесінде төмендегіні көшіріңіз код және қою

6575

Кодыңыз енді іске қосуға дайын.

• Келесі, Бұл код бөлігін іске қосыңыз және келесі кескінге назар аударыңыз.

Бұл жалғыз деректер « Осы ұяшықты көшіріңіз<19 Деректер жинағы парағындағы B4 ұяшығындағы> ” енді CopyRange парағына көшірілді B2 ұяшығы .

Толығырақ оқу: Тек көшіру үшін Excel VBAМақсатты мәндер (Макрос, UDF және UserForm)

4. Excel макросындағы PasteSpecial әдісімен көшірілген деректерді бір жұмыс парағынан екіншісіне қою

Сіз бір жұмыс парағынан деректерді көшіріп, оларды Excel бағдарламасының PasteSpecial<2 арқылы әртүрлі тәсілдермен қоюға болады> әдісі VBA . Оны орындау қадамдары төменде берілген.

Қадамдар:

• Алдымен Әзірлеушіден Visual Basic редакторын ашыңыз. қойындысын және код терезесінде Кірістіру Модуль .
• Екіншіден, келесі кодты көшіріп және қою оны код терезесіне енгізіңіз.

8197

Сіздің кодыңыз енді іске қосуға дайын.

• Келесі Іске қосу осы код бөлігі.

Жоғарыдағы суретке қараңыз. Деректер жинағы парағындағы деректер енді Excel бағдарламасындағы Арнайы қою парағына тасымалданады.

Толығырақ оқу : VBA Excel бағдарламасындағы мәндер мен пішімдерді көшіру үшін арнайы қою (9 мысал)

5. Excel бағдарламасындағы бір жұмыс парағынан екіншісіне соңғы ұяшықтың астындағы деректерді көшіруге және қоюға арналған макрос

Бізде Деректер жинағы парағында кейбір деректер бар (суретте көрсетілген кіріспе бөлімі). Енді осы бөлімнің алдағы бөлігін қараңыз. Бізде енді Соңғы ұяшық деп аталатын басқа парақта бірнеше жаңа деректер бар.

Мұнда біз не істегіміз келеді: арнайы деректерді (B5 - F9 ұяшықтары) Деректер жинағы парағынан көшіріңіз және ішіндегілерді қойыңызосы Соңғы ұяшық парақтың соңғы ұяшығының астында.

Қадамдар:

• Біріншіден, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және код терезесінде Кірістіру Модуль .
• Екіншіден, келесі кодты көшіріңіз және оны код терезесіне қойыңыз .

3176

Кодыңыз енді іске қосуға дайын.

• Келесі, осы кодты Іске қосу . Төмендегі суретке қараңыз.

Мұнда Деректер жинағы парақ ішінен таңдалған деректер енді Excel бағдарламасындағы Соңғы ұяшық парағының соңғы ұяшығының астына көшірілді.

Толығырақ оқу: Excel бағдарламасындағы мәндерді көшіру және қою формуласы ( 5 Мысалдар)

6. Алдымен жұмыс парағын тазалау үшін VBA макросы, содан кейін басқа жұмыс парағына көшіру және қою

Егер сізде бұрыннан бар парақта деректер қате болса және сол жерден бастапқы деректерді шығарып алғыңыз келсе не болады?

Келесі суретке қараңыз. Біз Деректерді тазалау парағындағы деректерді тазалаймыз және мұнда Деректер жинағы парағындағы деректерді VBA кодымен сақтаймыз.

Қадамдар:

• Біріншіден, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және Кірістіру код терезесінде Модуль .
• Екіншіден, келесі кодты көшіріп, қою код терезесіне.

6109

Сіздің кодыңыз енді іске қосуға дайын.

• Келесі, осы код бөлігін Іске қосу . Қаракелесі сурет.

Таза ауқым парағындағы алдыңғы деректер енді < ден алынған деректермен ауыстырылды. 1> Деректер жинағы парағы.

Толығырақ оқу: Шарттар негізінде деректерді бір жұмыс кітабынан екіншісіне көшіруге арналған макрос

7. Range.Copy функциясы арқылы деректерді бір жұмыс парағынан екіншісіне көшіруге және қоюға арналған макро

Енді біз VBA кодын ден деректерді көшіру және қою жолын үйренеміз. Excel бағдарламасындағы Арақым.Көшіру функциясы бар бір жұмыс парағын екіншісіне .

Қадамдар:

• Біріншіден, <1 ашыңыз>Visual Basic редакторы Әзірлеуші қойындысынан және код терезесінде Кірістіру Модуль .
• Екіншіден, көшіру келесі кодты және оны код терезесіне қою .

3079

Сіздің кодыңыз енді іске қосуға дайын.

• Келесі, осы код бөлігін Іске қосу және келесі суретті қараңыз.

Біз деректерді сәтті көшірдік. Деректер жинағы парағы Көшіру ауқымы парағында Ауқым.Көшіру функциясы бар.

Толығырақ: Ұяшық мәнін басқа ұяшыққа көшіруге арналған Excel формуласы

Ұқсас көрсеткіштер

• Шарттар негізінде басқа жұмыс парағына жолдарды көшіру үшін Excel VBA
• Мәндерді қою үшін тек VBA пайдаланыңыз y Excel бағдарламасында пішімдеу жоқ
• Көрінетін ұяшықтарды тек Excel бағдарламасында қалай көшіруге және қоюға болады (3 оңай әдіс)
• Көшіру және қоюExcel бағдарламасында жұмыс істемейді (9 себеп және шешімдер)
• Макросты пайдаланып Excel бағдарламасындағы бірнеше жолдарды қалай көшіруге болады (4 мысал)

8. USEDRANGE қасиетімен бір жұмыс парағынан екіншісіне деректерді көшіру үшін макрокодты іске қосыңыз

Бұл жолы біз VBA кодын бір парақтан деректерді көшіру және қою жолын үйренеміз. жұмыс парағын Excel бағдарламасындағы UsedRange төлсипаты бар басқа парақшаға ауыстырыңыз.

Қадамдар:

• Біріншіден, Visual Basic бағдарламасын ашыңыз. Әзірлеуші қойындысынан редактор және код терезесінде Кірістіру Модуль .
• Екіншіден, келесі кодты көшіріңіз және оны код терезесіне қою .

2734

Сіздің кодыңыз енді іске қосуға дайын.

• Келесі, осы код бөлігін Іске қосу .

Жоғарыдағы суретте көріп отырғанымыздай, біз сәтті көшіріп, қойдық. USEDRANGE сипаты бар UsedRange парағындағы Деректер жинағы парақтағы деректер.

Толығырақ: Excel бағдарламасындағы бірнеше ұяшықтарға бірдей мәнді көшіру жолы (4 әдіс)

9. Excel бағдарламасында таңдалған деректерді бір парақтан екіншісіне көшіруге және қоюға арналған VBA макросы

VBA<көмегімен бір жұмыс парағынан екіншісіне кейбір таңдалған деректерді ғана көшіріп, қоюға болады 2>. Оны орындау қадамдары төменде көрсетілген.

Қадамдар:

• Алдымен Әзірлеушіден Visual Basic өңдегішін ашыңыз. 2> қойындысын және Кірістіру a Модуль ішінекод терезесі.
• Екіншіден, келесі кодты көшіріп және қою код терезесіне.

7315

Сіздің кодыңыз қазір іске қосуға дайын.

Бұл код тек Деректер жинағы парағынан B4-тен F7-ге дейінгі диапазонды көшіреді және оларды мына жерге қояды. B2 ауқымы PasteSelected аталған парақ .

• Келесі, Орындау осы код.

Соңында, Деректер жинағы парағынан таңдалған деректер ғана Excel жұмыс кітабындағы Таңдалғандарды қою парағына сәтті көшірілді және қойылды.

Толығырақ оқу: VBA PasteSpecial және қолдану әдісі Excel бағдарламасында бастапқы пішімдеуді сақтаңыз

10. Бірінші бос жолда деректерді бір жұмыс парағынан екіншісіне көшіруге арналған макрокод

Мұнда біз Деректер жинағы <19 деректерді көшіру жолын көреміз> парақ және VBA бар Excel бағдарламасындағы басқа жұмыс парағындағы бірінші бос ұяшықтағы оларды қойыңыз.

Қадамдар:

• Біріншіден, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және Кірістіру Модуль код терезесінде.
• Екіншіден, келесі кодты көшіріп және қою код терезесіне.

8964

Сіздің кодыңыз енді іске қосуға дайын.

• Келесі, кодтың осы бөлігін Іске қосу .

Жоғарыдағы суретті қараңыз. 13-парақ толығымен бос болды. Нәтижесінде орындалған код қойылдыExcel бағдарламасындағы парақ13 парағындағы бірінші ұяшықтағы Деректер жинағы парағынан көшірілген деректер.

Толығырақ оқу: Мәндерді Excel VBA бағдарламасымен келесі бос жолға көшіру және қою (3 мысал)

11. Автоматты түрде сүзілген деректерді бір Excel парағынан екіншісіне көшіру және қою үшін VBA ендіру

Біз бастапқы деректер жинағын сүзіп, басқа жұмыс парағына сүзілген деректерді ғана көшіріп, қоюға болады Excel. VBA арқылы мұны кезең-кезеңмен жасауды үйрену үшін осы мақаланы орындаңыз.

Қадамдар:

• Біріншіден, ашыңыз. Visual Basic өңдегішін Әзірлеуші қойындысынан және код терезесінде Кірістіру Модуль .
• Екіншіден, көшіріңіз. келесі кодты және оны код терезесіне қою .

6091

Сіздің кодыңыз енді іске қосуға дайын.

• Келесі, осы кодты Іске қосу . Тек « Декан » бар жол ғана сүзгіден өтіп, басқа параққа көшіріледі.

Жоғарыдағы суретке назар аударыңыз. Енді В бағанынан сүзілген « Декан » ғана енді Sheet15 парағына көшіріледі және қойылады .

Толығырақ оқу: VBA (7 әдіс) арқылы Excel бағдарламасында қалай көшіру және қою керек

Ұқсас оқулар

• Excel VBA көмегімен көрінетін жолдарды автосүзгілеу және көшіру
• Бірегей мәндерді Excel бағдарламасындағы басқа жұмыс парағына көшіру (5 әдіс)
• Біріктірілген және көшіру жолы