Þegar þú þarft geturðu afritað svið frá einu blaði yfir á annað blað eða vinnubók. Það eru mismunandi gerðir af afritun og límingu. Í kjölfar þessarar greinar muntu kynnast mismunandi leiðum til að nota Excel VBA afritasvið yfir á annað blað.

Til að gera útskýringarnar líflegar ætla ég að nota sýnishorn gagnasafns sem táknar persónulegar upplýsingar tiltekinna einstaklinga . Gagnapakkningin hefur 4 dálka. Þessir dálkar eru Fornafn, Eftirnafn, Fullt nafn, og Netfang .

Sæktu vinnubók til að æfa þig

8 leiðir til að Excel VBA afrita svið yfir á annað blað

1. Afrita svið í annað blað með sniði

Þegar þú vilt Afrita svið frá einu blaði yfir á annað blað með sniði geturðu einfaldlega gert það með því að nota VBA .

Hér mun ég Afrita bil frá Dataset blaði yfir í WithFormat blað.

Hefjum málsmeðferðina,

Opnaðu fyrst Hönnuði flipann >> veldu Visual Basic

Þú getur líka notað ALT + F11 lyklaborðið til að opna VBA ritstjóri.

Næst opnast nýr gluggi sem heitir Microsoft Visual Basic for Applications.

Þaðan opnarðu Insert >> veldu Eining .

A Eining opnast og sláðu síðan inn eftirfarandi kóða í opnuðu >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, úr Macro heiti velurðu Copy_Range_BelowLastCell_AnotherSheets veldu líka vinnubókina í Macros in .

Að lokum, Keyra valið Macro .

Þess vegna mun það Afrita valið svið og líma það úr síðustu línu annars blaði .

8. VBA afrita svið í síðustu röð annarrar vinnubókar

Ef þú vilt Afrita bil í síðustu röð annars vinnubókarblaðs, þú getur líka notað VBA .

Hér skal ég afrita svið frá Dataset2 blað í Blað1 af Bók2 en úr fyrsta óauðu reitnum.

Til að hefja ferlið skaltu

Opnaðu fyrst flipann Hönnuði >> veldu Visual Basic

Þú getur líka notað ALT + F11 lyklaborðið til að opna VBA ritilinn.

Næst opnast nýr gluggi í Microsoft Visual Basic for Applications.

Þaðan opnarðu Insert >> veldu Eining .

A Eining mun opnast og sláðu síðan inn eftirfarandi kóða í opnaða Eining .

7867

Hér lýsti ég yfir Sub málsmeðferð Copy_Range_BelowLastCell_To_Another_Workbook þar sem wsCopy og wsDestination eru Vinnublað gerð, lCopyLastRow og lDestLastRow eru Löng gerð.

Í fyrsta lagi notuð Setja til að stilla breytur fyrir blaðið sem á að afrita og áfangablaðið.

Næst, notaði Row aðferðina til að finna síðustu línu byggða á gögnum í dálki A á afritunarsviðinu.

Aftur notaði Row aðferðina til að finna fyrstu auðu línuna byggða á gögnum í dálki A á áfangastaðnum er einnig notað Offset til að færa niður eina eign.

Að lokum, Afritað gögn Dataset2 blaðs úr Excel VBA Copy Range to Another Sheet.xlsm vinnubók á áfangastað Sheet1 vinnubók Book2.xlsx .

Nú, Vista kóðann og farðu aftur í vinnublaðið.

Næst skaltu opna flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, úr Macro heiti velurðu Copy_Range_BelowLastCell_To_Another_Workbook veldu líka vinnubókina í Macros in .

Að lokum, Keyra valið Macro .

Þess vegna mun það Afrita valið svið frá núverandi blaði í síðustu línu annarrar vinnubókar.

Æfingahluti

Ég hef lagt fram æfingablað í vinnubókinni til að æfa þessar útskýrðu aðferðir við Excel VBA afritunarsvið á annað blað.

Niðurstaða

Í þessari grein hef ég útskýrt 8 mismunandi gerðir af auðveldum og fljótlegum leiðum til aðExcel VBA afritaðu svið á annað blað. Þessar mismunandi leiðir munu hjálpa þér að afrita svið frá einu blaði til annars og einnig frá einu blaði í aðra vinnubók. Síðast en ekki síst, ef þú hefur einhverjar uppástungur, hugmyndir og athugasemdir skaltu ekki hika við að skrifa athugasemdir hér að neðan.

6763

Hér lýsti ég yfir Sub aðferð Copy_Range_withFormat_ToAnother_Sheet

Ég hef notað svið B1:E10 til að afrita úr núverandi blaði yfir í blaðnafnið Með sniði .

Hér notaði ég Afrita aðferð til að afrita valið svið, Copy aðferðin afritar hvaða svið sem er með Format .

Að lokum, Vista kóðann og fara aftur í vinnublaðið .

Næst skaltu opna flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, úr Macro heiti veljið Copy_Range_with Format_ToAnother_Sheet veljið einnig vinnubókina í Macros in .

Að lokum, Keyra valið Macro .

Þess vegna mun það afrita valið svið með Format í nýja blaðið sem ég hef valið ( WithFormat) .

2. VBA afrita svið yfir á annað blað án sniðs

Það er líka mögulegt að Afrita svið yfir á annað blað án Format með því að nota VBA .

Hér skal ég Afrita bil frá Gagnasetti blaði til Án sniðs blaðs.

Við skulum hefja málsmeðferðina,

Nú, opnaðu hönnuðinn flipi >> veldu Visual Basic ( notaðu ALT + F11)

Næst opnast það Microsoft Visual Basic for Applications.

Opnaðu síðan Insert >> veldu Eining .

A Eining mun opnast og sláðu síðan inn eftirfarandi kóða í opnaða Eining .

7776

Hér lýsti ég yfir Sub aðferð Copy_Range_WithoutFormat_Toanother_Sheet

Ég hef tekið svið B1:E10 til að afrita úr núverandi blaði yfir á blaðnafnið Án sniðs .

Hér notaði ég aðferðina Copy til að afrita valið svið en einnig nefnd Paste:=xlPasteValues ​​ í PasteSpecial aðferðinni þannig að það lími aðeins Values á valnu sviði, ekki sniðinu.

Að lokum , Vista kóðann og farðu aftur í vinnublaðið.

Næst skaltu opna flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, úr Macro heiti velurðu Copy_Range_WithoutFormat_Toanother_Sheet og veldu líka vinnubókina í Macros in .

Að lokum, Keyrðu valið Macro .

Þannig afritar það valið svið aðeins með gildum ekki sniði .

3. Afritaðu svið yfir á annað blað með sniði og dálkabreidd

Stundum gætirðu viljað Afritaðu hvaða valið svið sem það er, til þess geturðu Afritað svið með sniði og dálkabreidd .

Hér, Ég skal Afrita bil frá gagnasetti blaði yfir í Format & Dálkbreidd blað.

Til að sjá aðferðina til að gera verkefnið með VBA ,

Opnaðu fyrst Þróunaraðila flipann >> veldu Visual Basic

Þú getur líka notað ALT + F11 lyklaborðið til að opna VBA ritilinn.

Næst opnast nýr gluggi af Microsoft Visual Basic for Applications.

Þarna opnaðu Setja inn >> veldu Eining .

A Eining mun opnast og sláðu síðan inn eftirfarandi kóða í opnaða Eining .

6341

Hér lýsti ég yfir Sub aðferð Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth

Ég hef tekið svið B1:E10 til að afrita úr núverandi blaði yfir á áfangablaðsnafnið Format & Dálkabreidd .

Hér notaði ég Copy aðferðina til að afrita valið svið. Ég notaði líka PasteSpecial aðferðina þar sem ég nefndi Paste:=xlPasteColumnWidths svo að það límir valið svið ásamt Format og ColumnWidths .

Að lokum, Vista kóðann og farðu aftur í vinnublaðið.

Næst skaltu opna flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, frá Macro nafni velurðu Copy_Range_to_Another_Sheet_with_FormatAndColumnWidth og veldu einnig vinnubókina í Macros in .

Að lokum, Keyrðu valið Macro .

Þar af leiðandi mun það afrita valið svið með sniði og dálkabreidd .

4. VBA Afritaðu svið yfir á annað blað með formúlu

Ef þú ert með einhverja formúlu í gagnasafninu þínu sem þú vilt afrita. Engar áhyggjur! Þú getur afritað svið sem inniheldur formúlu í annað blað og haldið formúlunni ósnortinni.

Hér skal ég afrita svið af gagnasetti blaði til Með Formúlu blaði

Við skulum hefja málsmeðferðina,

Til að byrja með, opnaðu flipann Hönnuði >> veldu Visual Basic ( þú getur líka notað ALT + F11 lyklaborðið)

Næst, það mun opna Microsoft Visual Basic for Applications.

Þaðan opnarðu Insert >> veldu Eining .

A Eining mun opnast og sláðu síðan inn eftirfarandi kóða í opnaða Eining .

6639

Hér lýsti ég yfir Sub málsmeðferð Copy_Range_withFormula_ToAnother_Sheet

Ég hef tekið svið B1:E10 til að afrita úr núverandi blaði yfir á áfangablaðsnafnið WithFormula .

Hér notaði ég Copy aðferðina til að afrita valið svið. Ég notaði líka PasteSpecial aðferðina þar sem ég nefndi Paste:=xlPasteFormulas svo að hún beri Formúlurnar ásamt valnu sviðinu.

Að lokum , Vista kóðann og farðu aftur í vinnublaðið.

Opnaðu síðan View flipi >> frá fjölva >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, úr Macro heiti veljið Copy_Range_withFormula_ToAnother_Sheet veljið einnig vinnubókina í Macros in .

Að lokum, Keyra valið Macro .

Þannig mun það Afrita öll valin hólfasvið með Formúlum .

Svipuð aflestrar:

• Hvernig á að nota VBA Range Offset (11 Ways)
• VBA fyrir hverja reit í svið í Excel (3 aðferðir)
• Hvernig á að nota sviðshlut VBA í Excel (5 eiginleikar)

5. Afritaðu svið með AutoFit á annað blað

Á meðan Afritar svið á annað blað geturðu líka notað AutoFit aðferðina í VBA til AutoFit afritaða sviðið í nýja blaðinu.

Hér mun ég Afrita svið frá gagnasetti blað í AutoFit blað

Við skulum hefja málsmeðferðina,

Opnaðu fyrst flipann Hönnuði >> veldu Visual Basic

Þú getur líka notað ALT + F11 lyklaborðið til að opna VBA ritilinn.

Næst opnast gluggi Microsoft Visual Basic for Applications.

Opnaðu síðan Setja inn > ;> veldu Eining .

A Eining opnast og sláðu síðan inn eftirfarandi kóða í opnuðu Eining .

7523

Hér lýsti ég yfir Sub aðferð Copy_Range_with Format_AutoFit

Fyrst valdi ég vinnublaðið Gagnasett . Síðan tók við bilið B1:E10 til að afrita úr núverandi blaði yfir á áfangablaðið sem heitir AutoFit .

Hér notaði ég Copy aðferð til að afrita valið svið og AutoFit aðferðin mun passa sjálfkrafa tiltekna dálka B:E .

Að lokum, Vista kóðann og farðu aftur í vinnublaðið.

Næst skaltu opna flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, úr Macro heiti velurðu Copy_Range_with Format_AutoFit veljið einnig vinnubókina í Macros in .

Að lokum, Keyra valið Macro .

Þess vegna mun það Afrita valið svið yfir á nýtt blað og einnig AutoFit dálkana.

6. VBA afrita svið yfir í aðra vinnubók

Ef þú vilt geturðu líka Afrita svið frá einu blaði yfir í annað blað af annarri vinnubók.

Hér mun ég afrita bil frá gagnasetti blaði yfir í blað1 af bók1 vinnubók.

Hefjum málsmeðferðina,

Opnaðu fyrst Hönnuði flipann >> veldu Visual Basic (y þú getur líka notað ALT + F11 lyklaborðið)

Þá, það mun opna Microsoft VisualBasic for Applications.

Næst skaltu opna Insert >> veldu Eining .

A Eining mun opnast og sláðu síðan inn eftirfarandi kóða í opnaða Eining .

7349

Hér lýsti ég yfir Sub málsmeðferð Copy_Range_WithFormat_Toanother_WorkBook

Ég hef tekið bilið B3:E10 frá nafni blaðs Gagnamengi til að afrita úr núverandi blaði yfir í nýja vinnubókarheitið Bók1 og nafn blaðs Blað1 .

Hér notaði ég Afrita aðferðina til að afrita valið svið yfir í nýju vinnubókina.

Að lokum, Vista kóðann og fara aftur í vinnublaðið.

Næst skaltu opna flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

➤ valgluggi opnast.

Nú, úr Macro heiti velurðu Copy_Range_WithFormat_Toanother_WorkBook veldu líka vinnubókina í Macros in .

Að lokum, Keyra valið fjölva .

Nú mun það afrita valið svið úr gagnagrunnsblaðinu í aðra vinnubók.

7. Afritaðu svið í síðustu línu annars blaðs

Í öllum tilvikum, ef þú vilt Afrita svið á annað blað frá tilteknu hólfinu eða síðasta hólfinu geturðu gert það með VBA .

Áður en ég fer inn í ferlið vil ég segja þér að ég hef tekið tvö ný blöð sem samanstanda af Fullt nafn, tölvupóstur, og Heimilisfang .

Við skulum fyrst athuga Dataset2 blaðið.

Hér er blaðið Below Last Cell .

Hér skal ég afrita bil frá Gagnasett2 blað í Neðan síðasta hólfs en frá fyrsta reitnum sem ekki er auða.

Til að byrja með skaltu opna Hönnuði flipann >> veldu Visual Basic

Næst mun það opna Microsoft Visual Basic for Applications.

Þá opnarðu Setja inn >> veldu Eining .

A Eining mun opnast og sláðu síðan inn eftirfarandi kóða í opnaða Eining .

8581

Hér lýsti ég yfir Sub aðferð Copy_Range_BelowLastCell_AnotherSheets

Fyrst valdi ég blaðið Dataset2 og notaði síðan Row aðferðina til að telja Last Row og hélt talinni röð í lr .

Síðan tekin bilið A2:C & lr til að afrita úr núverandi blaði yfir á áfangablaðsnafnið Below Last Cell .

Aftur notaðu Row aðferðina til að telja Síðasta Röð af öðru blaði sem heitir Below Last Cell og geymdi talna röð í lrAnotherSheet .

Hér notaði ég Copy aðferðina til að afrita valið svið og AutoFit aðferðin mun passa sjálfkrafa tiltekna dálka A:C .

Að lokum, Vista kóðann og farðu til baka í vinnublaðið.

Næst skaltu opna flipann Skoða >> frá fjölva