Ynhâldsopjefte
As jo it nedich binne, kinne jo in berik kopiearje fan it iene blêd nei in oar blêd of wurkboek. D'r binne ferskate soarten kopiearje en plakke. Nei dit artikel sille jo ferskate manieren leare om Excel VBA-kopyberik nei in oar blêd te brûken.
Om de útlis libbendich te meitsjen, sil ik in stekproef-dataset brûke dy't de persoanlike ynformaasje fan bepaalde persoanen fertsjintwurdiget . De dataset hat 4 kolommen. Dizze kolommen binne de Foarnamme, Efternamme, Folsleine namme, en E-post .
Wurkboek downloade om te oefenjen
VBA Kopiearje berik nei in oar blêd.xlsm
8 manieren om Excel VBA Kopiearje berik nei in oar blêd
1. Kopiearje in berik nei in oar blêd mei opmaak
Wannear't jo Kopiearje in berik fan it iene blêd nei in oar blêd wolle mei Opmaak kinne jo it gewoan dwaan troch de VBA .
Hjir sil ik Kopiearje in berik fan Dataset blêd nei WithFormat blêd.
Litte wy de proseduere begjinne,
Iepenje earst de ljepper ûntwikkelder >> selektearje Visual Basic
Jo kinne ek it ALT + F11 toetseboerd brûke om de VBA
Dêrnei sil it in nij finster iepenje mei de namme Microsoft Visual Basic for Applications.
Dêrwei iepen Ynfoegje >> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn it iepene >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makronamme de Copy_Range_BelowLastCell_AnotherSheets ek it wurkboek yn Makro's yn .
Uteinlik Unfiere de selektearre Makro .
Dêrtroch sil it Kopiearje it selektearre berik en sil it plakke fan de lêste rige fan in oar blêd .
8. VBA Kopiearje in berik nei de lêste rige fan in oar wurkboek
As jo wolle Kopiearje in berik nei de lêste rige fan in oar wurkboekblêd kinne jo ek de VBA brûke.
Hjir sil ik Kopiearje in berik fan Dataset2 blêd nei Blêd1 fan Boek2 mar fan 'e earste net-lege sel.
Om de proseduere te begjinnen,
Iepenje earst de ljepper Untwikkelder >> selektearje Visual Basic
Jo kinne ek it ALT + F11 toetseboerd brûke om de VBA bewurker te iepenjen.
Dêrnei sil it in nij finster iepenje fan Microsoft Visual Basic for Applications.
Dêrwei, iepenje Ynfoegje >> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn de iepene Module .
6652
Hjir haw ik de Subproseduere ferklearre Copy_Range_BelowLastCell_To_Another_Workbook wêr wsCopy en wsDestination binne Wurkblêd type, lCopyLastRow en lDestLastRow binne Lang type.
Earst brûkt Set om fariabelen yn te stellen foar it blêd om te kopiearjen en it bestimmingsblêd.
Folgjende, brûkte de Rij metoade om de lêste rige te finen op basis fan gegevens fan kolom A yn it kopyberik.
Opnij brûkte de Rij metoade om de earste lege rige te finen basearre op gegevens fan kolom A yn it bestimmingsberik ek brûkt Offset om ien eigenskip nei ûnderen te ferpleatsen.
Uteinlik, Kopiearre de gegevens fan Dataset2 blêd fan it Excel VBA Kopiearje berik nei in oar blêd.xlsm wurkboek nei de bestimming Sheet1 fan wurkboek Book2.xlsx .
No, Bewarje de koade en gean werom nei it wurkblêd.
Folgjende, iepenje de Besjoch ljepper >> fan Makro's >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makronamme it Copy_Range_BelowLastCell_To_Another_Workbook ek it wurkboek yn Makro's yn .
Uteinlik Unfiere de selektearre Makro .
Dêrtroch sil it Kopiearje it selektearre berik fan it besteande blêd nei de lêste rige fan in oar wurkboek.
Oefeningsdiel
Ik haw in praktykblêd yn it wurkboek levere om dizze útleine manieren fan Excel VBA kopiearjeberik te oefenjen nei in oar blêd.
Konklúzje
Yn dit artikel haw ik 8 ferskillende soarten maklike en rappe manieren útlein.Excel VBA kopiearje berik nei in oar blêd. Dizze ferskillende manieren sille jo helpe om in berik fan it iene blêd nei it oare te kopiearjen en ek fan it iene blêd nei it oare wurkboek. Last but not least, as jo in soarte fan suggestjes, ideeën en feedback hawwe, fiel jo frij om hjirûnder kommentaar te jaan.
Module.7904
Hjir haw ik de Subproseduere Copy_Range_withFormat_ToAnother_Sheet ferklearre
Ik haw berik B1:E10 nommen om te kopiearjen fan it besteande blêd nei de blêdnamme WithFormat .
Hjir brûkte ik de Kopie metoade om it selektearre berik te kopiearjen, Kopiearje metoade kopiearret elk berik mei Opmaak .
Lêst, Bewarje de koade en gean werom nei it wurkblêd .
Folgjende, iepenje de Besjoch ljepper >> fan Makro's >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makronamme de Copy_Range_withFormat_ToAnother_Sheet selektearje ek it wurkboek binnen Makro's yn .
Uteinlik, Utfiere de selektearre Makro .
Dêrtroch sil it It selektearre berik mei Opmaak kopiearje nei it nije blêd dat ik haw selektearre ( WithFormat) .
2. VBA Kopiearje in berik nei in oar blêd sûnder opmaak
It is ek mooglik Kopiearje in berik nei in oar blêd sûnder Opmaak troch de VBA te brûken.
Hjir sil ik Kopiearje in berik fan Dataset blêd oant WithoutFormat blêd.
Litte wy de proseduere begjinne,
Iepenje no de ûntwikkelder tab >> selektearje Visual Basic ( brûk de ALT + F11)
Folgjende, it sil iepenje Microsoft Visual Basic for Applications.
Dan, iepenje Ynfoegje >> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn de iepene Module .
2663
Hjir haw ik de Subproseduere ferklearre Copy_Range_WithoutFormat_Toanother_Sheet
Ik haw berik B1:E10 om te kopiearjen fan it besteande blêd nei de blêdnamme WithoutFormat .
Hjir brûkte ik de Kopiearje metoade om it selektearre berik te kopiearjen, mar ek neamde Paste:=xlPasteValues yn de PasteSpecial metoade sadat it allinich Wearden fan it selektearre berik plakke sil, net it formaat.
Uteinlik , Bewarje de koade en gean werom nei it wurkblêd.
Iepenje dêrnei de Besjoch ljepper >> fan Makro's >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makronamme de Copy_Range_WithoutFormat_Toanother_Sheet en selektearje ek it wurkboek binnen Makro's yn .
Uteinlik, Run de selektearre Makro .
Sa sil it Kopiearje it selektearre berik allinnich mei Wearden gjin Opmaak .
3. Kopiearje in berik nei in oar blêd mei opmaak en kolombreedte
Soms wolle jo miskien Kopiearje elk selektearre berik sa't it is, dêrfoar kinne jo Kopiearje in berik mei Opmaak en Kolombreedte .
Hjir, Ik sil Kopiearje in berik fan Dataset blêd nei Format & amp; Kolombreedte blêd.
Om de proseduere te sjen om de taak te dwaan mei VBA ,
Iepenje earst de ljepper ûntwikkelder >> selektearje Visual Basic
Jo kinne ek it ALT + F11 toetseboerd brûke om de VBA bewurker te iepenjen.
Dêrnei sil it in nij finster iepenje fan Microsoft Visual Basic for Applications.
Dêr, iepenje Ynfoegje >> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn de iepene Module .
5286
Hjir haw ik de Subproseduere ferklearre Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth
Ik haw berik B1: E10 om te kopiearjen fan de besteande blêd nei de bestimming blêd namme Format & amp; Kolombreedte .
Hjir haw ik de metoade Kopiearje brûkt om it selektearre berik te kopiearjen. Ik brûkte ek de metoade PasteSpecial wêr't ik Plakke:=xlPasteColumnWidths neamde sadat it it selektearre berik plakke tegearre mei Opmaak en Kolombreedte .
Op it lêst, Bewarje de koade en gean werom nei it wurkblêd.
Dernei iepenje de Besjoch ljepper >> fan Makro's >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makro-namme de Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth en selektearje ek it wurkboek binnen Makro's yn .
Uteinlik, Run de selektearre Makro .
As resultaat sil it Kopiearje it selektearre berik mei Opmaak en Kolombreedte .
4. VBA Kopiearje in berik nei in oar blêd mei formule
As jo in formule hawwe yn jo dataset dy't jo kopiearje wolle. Gjin soargen! Jo kinne it berik mei Formule kopiearje nei in oar blêd en de formule yntakt hâlde.
Hjir sil ik Kopiearje in berik fan Dataset blêd nei WithFormula blêd
Litte wy de proseduere begjinne,
Om te begjinnen, iepenje de Untwikkelder ljepper >> selektearje Visual Basic ( jo kinne ek it ALT + F11 toetseboerd brûke)
Dêrnei, it sil iepenje Microsoft Visual Basic foar applikaasjes.
Dêrwei iepen Ynfoegje >> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn de iepene Module .
8845
Hjir haw ik de Subproseduere ferklearre Copy_Range_withFormula_ToAnother_Sheet
Ik haw berik B1:E10 om te kopiearjen fan it besteande blêd nei de bestimmingsblêdnamme WithFormula .
Hjir haw ik de Kopieer metoade brûkt om it selektearre berik te kopiearjen. Ik brûkte ek de PasteSpecial -metoade wêr't ik Paste:=xlPasteFormulas neamde, sadat it de Formules tegearre mei it selektearre berik draacht.
Uteinlik , Bewarje de koade en gean werom nei it wurkblêd.
Dan iepenje de werjefte tab >> fan Makro's >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makronamme de Copy_Range_withFormula_ToAnother_Sheet selektearje ek it wurkboek binnen Makro's yn .
Uteinlik, Utfiere de selektearre Makro .
Sa sil it Kopiearje alle selektearre selberiken mei Formules .
Gelykbere lêzingen:
- Hoe kinne jo VBA-berikoffset brûke (11 manieren)
- VBA foar elke sel yn berik yn Excel (3 metoaden)
- Hoe kinne jo it berikobjekt fan VBA yn Excel brûke (5 eigenskippen)
5. Kopiearje in berik mei AutoFit nei in oar blêd
Wylst It kopiearjen fan in berik nei in oar blêd kinst ek de AutoFit -metoade brûke yn de VBA nei AutoFit it kopiearre berik yn it nije blêd.
Hjir sil ik Kopiearje in berik fan Dataset blêd nei AutoFit blêd
Litte wy de proseduere begjinne,
Earst iepenje de ljepper ûntwikkelder >> selektearje Visual Basic
Jo kinne ek it ALT + F11 toetseboerd brûke om de VBA bewurker te iepenjen.
Dêrnei sil it in finster iepenje fan Microsoft Visual Basic for Applications.
Dan iepenje Ynfoegje > ;> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn it iepene Module .
9178
Hjir haw ik de Subproseduere Copy_Range_withFormat_AutoFit
ferklearre Earst haw ik it wurkblêd Dataset selektearre. Dêrnei naam it berik B1:E10 om te kopiearjen fan it besteande blêd nei it bestimmingsblêd mei de namme AutoFit .
Hjir brûkte ik de Kopiearje metoade om it selektearre berik te kopiearjen en de AutoFit metoade sil de opjûne kolommen automatysk oanpasse B:E .
Lêst, Bewarje de koade en gean werom nei it wurkblêd.
Iepenje dêrnei de ljepper Besjoch >> fan Makro's >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makro-namme de Copy_Range_withFormat_AutoFit selektearje ek it wurkboek binnen Makro's yn .
Uteinlik, Utfiere de selektearre Makro .
Dêrtroch sil it It selektearre berik kopiearje nei in nij blêd en ek AutoFit de kolommen.
6. VBA Kopiearje in berik nei in oar wurkboek
As jo wolle kinne jo ek Kopiearje in berik fan it iene blêd nei in oar blêd fan in oar wurkboek.
Hjir sil ik Kopiearje in berik fan Dataset blêd nei Sheet1 fan Boek1 wurkboek.
Litte wy de proseduere begjinne,
Iepenje earst de ljepper ûntwikkelder >> selektearje Visual Basic (y jo kinne ek it ALT + F11 toetseboerd brûke)
Dan, it sil iepenje Microsoft VisualBasis foar applikaasjes.
Folgjende, iepenje Ynfoegje >> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn de iepene Module .
8346
Hjir haw ik de Subproseduere ferklearre Copy_Range_WithFormat_Toanother_WorkBook
Ik haw it berik B3:E10 fan blêdnamme Gegevensset om te kopiearjen fan it besteande blêd nei de nije wurkboeknamme Boek1 en blêdnamme blêd1 .
Hjir haw ik de Kopiearje metoade brûkt om it selektearre berik nei it nije wurkboek te kopiearjen.
Op it lêst Bewarje de koade en gean werom nei it wurkblêd.
Folgjende, Iepenje de Besjoch ljepper >> fan Makro's >> selektearje Makro's besjen
➤ In dialoochfinster sil ferskine.
Selektearje no út de Makro-namme de Copy_Range_WithFormat_Toanother_WorkBook ek it wurkboek yn Makro's yn .
Uteinlik, Utfiere de selektearre Makro .
No sil it It selektearre berik kopiearje fan it Dataset blêd nei in oar wurkboek.
7. Kopiearje in berik nei de lêste rige fan in oar blêd
Yn alle gefallen, as jo Kopiearje in berik nei in oar blêd wolle fan in bepaalde sel of de lêste sel kinne jo it dwaan mei de VBA .
Foardat ik de proseduere yngean, wol ik jo fertelle dat ik twa nije blêden nommen haw besteande Folsleine namme, e-post, en Adres .
Litte wy earst it Dataset2 blêd observearje.
Hjir is it blêd Below Last Cell .
Hjir sil ik Kopiearje in berik fan Dataset2 blêd nei Below Last Cell mar fan 'e earste net-lege sel.
Om te begjinnen, iepenje de ûntwikkelder ljepper >> selektearje Visual Basic
Dêrnei sil it iepenje Microsoft Visual Basic foar applikaasjes.
Dan, iepenje Foegje >> selektearje Module .
In Module sil iepenje en typ dan de folgjende koade yn de iepene Module .
2092
Hjir haw ik de Subproseduere ferklearre Copy_Range_BelowLastCell_AnotherSheets
Earst haw ik it blêd selektearre Dataset2 en brûkte dan de Rij metoade om de Lêste rige te tellen en hâlde de teldrige yn lr .
Dan nommen it berik A2: C & amp; lr om te kopiearjen fan it besteande blêd nei de bestimmingsblêdnamme Below Last Cell .
Opnij brûkte de Rij metoade om de Lêste te tellen Rige fan in oar blêd mei de namme Below Last Cell en hâlden de teld rige yn lrAnotherSheet .
Hjir brûkte ik de Kopiearje metoade om it selektearre berik te kopiearjen en de AutoFit metoade sil de opjûne kolommen automatysk oanpasse A:C .
Uteinlik, Bewarje de koade en gean werom nei it wurkblêd.
Iepenje dêrnei de Besjoch ljepper >> fan Makro's
