Kiam vi bezonas, vi povas kopii gamon de unu folio al alia folio aŭ librolibro. Estas malsamaj specoj de kopio kaj algluado. Sekvante ĉi tiun artikolon, vi ekkonos malsamajn manierojn uzi Excel VBA-kopian gamon al alia folio.

Por ke la klarigo vigla, mi uzos ekzemplan datumaron kiu reprezentas la personajn informojn de apartaj personoj. . La datumaro havas 4 kolumnojn. Ĉi tiuj kolumnoj estas la Nomo, Familia Nomo, Plena Nomo, kaj Retpoŝto .

Elŝutu Laborlibron por Praktiki

8 Manieroj por Excel VBA Kopi Gamon al Alia Folio

1. Kopiu Gamon al Alia Folio kun Formato

Kiam vi volas Kopii gamon de unu folio al alia folio per Formato vi povas simple fari ĝin uzante la VBA .

Ĉi tie, mi kopios gamon de Dataset folio al WithFormat folio.

Ni komencu la proceduron,

Unue, malfermu la langeton Programisto >> elektu Visual Basic

Vi ankaŭ povas uzi la ALT + F11 klavaron por malfermi la VBA redaktilo.

Sekva, ĝi malfermos novan fenestron nomitan Microsoft Visual Basic for Applications.

De tie, malfermu Enmeti >> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita >> elektu Vidi Makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopii_Range_BelowLastCell_AnotherSheets ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Run. la elektita Makro .

Tial ĝi Kopios la elektitan gamon kaj Algluos ĝin de la lasta vico de alia folio .

8. VBA Kopiu Gamon al la Lasta Vico de Alia Laborlibro

Se vi volas Kopii intervalon al la lasta vico de alia laborlibro-folio vi ankaŭ povas uzi la VBA .

Ĉi tie, mi kopios intervalon de Dataset2 folio al Folio1 de Libro2 sed de la unua neblanka ĉelo.

Por komenci la proceduron,

Unue, malfermu la langeton Programisto >> elektu Visual Basic

Vi ankaŭ povas uzi la ALT + F11 klavaron por malfermi la VBA redaktilon.

Sekva, ĝi malfermos novan fenestron de Microsoft Visual Basic for Applications.

De tie, malfermu Enmeti >> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita Modulo .

7724

Ĉi tie, mi deklaris la Subproceduron Kopiu_Range_BelowLastCell_To_Another_Workbook kie wsCopy kaj wsDestination estas Laborfolio tipo, lCopyLastRow kaj lDestLastRow estas Longa tipo.

Unue, uzata Agordu por agordi variablojn por la kopiota folio kaj la celfolio.

Sekva, uzis la metodon Vico por trovi la lastan vicon surbaze de datumoj de kolumno A en la kopia gamo.

Denove, uzis la metodon Vico por trovi la unuan malplenan vicon surbaze de datumoj de kolumno A en la celintervalo ankaŭ uzata Ofset por movi malsupren unu posedaĵon.

Fine, Kopiita la datumoj de Dataset2 folio de la Excel VBA-Kopia Gamo al Alia Folio.xlsm laborlibro al la celo Sheet1 de laborlibro Book2.xlsx .

Nun, Konservu la kodon kaj reiru al la laborfolio.

Sekva, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopii_Range_BelowLastCell_To_Another_Workbook ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Rulu la elektita Makro .

Tial ĝi Kopios la elektitan gamon de la ekzistanta folio al la lasta vico de alia laborlibro.

Praktika sekcio

Mi disponigis praktikfolion en la laborlibro por ekzerci ĉi tiujn klarigitajn manierojn de Excel VBA kopia gamo al alia folio.

Konkludo

En ĉi tiu artikolo, mi klarigis 8 malsamajn specojn de facilaj kaj rapidaj manierojExcel VBA kopiu gamon al alia folio. Ĉi tiuj malsamaj manieroj helpos vin kopii gamon de unu folio al alia kaj ankaŭ de unu folio al alia laborlibro. Laste sed ne malplej, se vi havas ian ajn sugestojn, ideojn kaj komentojn, bonvolu bonvolu komenti sube.

7467

Jen, mi deklaris la Subproceduron Kopiu_Gamon_kunFormato_AlAlia_Folio

Mi prenis intervalon B1:E10 por kopii de la ekzistanta folio al la folionomo KunFormato .

Ĉi tie, mi uzis la Kopii metodo por kopii la elektitan gamon, Kopiu metodo kopias ajnan gamon per Formato .

Fine, Konservu la kodon kaj reiru al la laborfolio. .

Sekva, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopiu_Range_kunFormato_AlAlia_Folio ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Runu la elektita Makro .

Tial ĝi kopios la elektitan gamon per Formato al la nova folio kiun mi elektis ( KunFormato) .

2. VBA Kopiu Gamon al Alia Folio sen Formato

Ĝi ankaŭ estas eblas Kopii gamon al alia folio sen Formato uzante la VBA .

Jen, mi kopios >intervalo de Dataserio folio ĝis SenFormato folio.

Ni komencu la proceduron,

Nun malfermu la Ellaboranto langeto >> elektu Visual Basic ( uzu la ALT + F11)

Sekva, ĝi malfermos Microsoft Visual Basic por Aplikoj.

Tiam malfermu Enmeti >> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita Modulo .

7044

Jen, mi deklaris la Subproceduron Kopiu_Range_SenFormato_Al alia_Folio

Mi prenis intervalon B1:E10 por kopii de la ekzistanta folio al la folionomo WithoutFormat .

Ĉi tie, mi uzis la Kopii metodon por kopii la elektitan gamon sed ankaŭ menciis Paste:=xlPasteValues ​​ en la PasteSpecial metodo tiel ke ĝi nur gluos Valorojn de la elektita gamo, ne la formaton.

Fine. , Konservu la kodon kaj reiru al la laborfolio.

Sekva, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopii_Range_SenFormato_Al alia_Folio kaj ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Rulu la elektitan Makroon .

Tiele, ĝi kopios la elektitan gamon nur kun Valoroj ne Formato .

3. Kopiu Gamon al Alia Folio kun Formato kaj Kolumna Larĝo

Foje vi eble volas Kopiu iun ajn elektitan gamon tia, kia ĝi estas, por tio vi povas Kopii intervalon kun Formato kaj Kolumna Larĝo .

Ĉi tie, Mi kopios amplekson de Datumserio folio al Formati & Kolumna Larĝo folio.

Por vidi la proceduron por fari la taskon per VBA ,

Unue, malfermu la Ellaboranto langeton >> elektu Visual Basic

Vi ankaŭ povas uzi la ALT + F11 klavaron por malfermi la VBA redaktilon.

Sekva, ĝi malfermos novan fenestron de Microsoft Visual Basic for Applications.

Tie, malfermu Enmeti . >> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita Modulo .

1716

Ĉi tie, mi deklaris la Subproceduron Kopii_Range_al_Another_Sheet_with_FormatAndColumnWidth

Mi prenis intervalon B1:E10 por kopii de la ekzistanta folio al la celo-folio nomo Formati & Kolumna Larĝo .

Ĉi tie, mi uzis la Kopii metodon por kopii la elektitan gamon. Mi ankaŭ uzis la metodon PasteSpecial kie mi menciis Paste:=xlPasteColumnWidths por ke ĝi algluu la elektitan gamon kune kun Formato kaj Kolumna Larĝo .

Fine, Konservu la kodon kaj reiru al la laborfolio.

Sekva, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopii_Range_al_Alia_Folio_kun_FormatoAndColumnWidth kaj ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Rulu la elektitan Makro .

Kiel rezulto, ĝi kopios la elektitan gamon per Formato kaj Kolumna Larĝo .

4. VBA Kopiu Gamon al Alia Folio kun Formulo

Se vi havas formulon en via datumaro, kiun vi volas kopii. Neniuj zorgoj! Vi povas kopii la gamon enhavantan Formulon al alia folio konservante la formulon sendifekta.

Ĉi tie, mi kopios gamon el Dataserio folio. al Kun Formulo folio

Ni komencu la proceduron,

Por komenci, malfermu la langeton Ellaboranto >> elektu Visual Basic ( vi ankaŭ povas uzi la ALT + F11 klavaron)

Sekva, ĝi malfermos Microsoft Visual Basic por Aplikoj.

De tie, malfermu Enmeti >> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita Modulo .

4146

Jen, mi deklaris la Subproceduron Kopiu_Range_withFormula_ToAnother_Sheet

Mi prenis intervalon B1:E10 por kopii de la ekzistanta folio al la cel-folio nomo KunFormulo .

Ĉi tie, mi uzis la Kopii metodon por kopii la elektitan gamon. Mi ankaŭ uzis la metodon PasteSpecial kie mi menciis Paste:=xlPasteFormulas por ke ĝi kunportu la Formulojn kune kun la elektita gamo.

Fine. , Konservu la kodon kaj reiru al la laborfolio.

Tiam malfermu la Vidigon. langeto >> el Makrooj >> elektu Vidi makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopii_Range_withFormula_ToAnother_Sheet ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Run. la elektita Makro .

Tiele, ĝi kopios ĉiujn elektitajn ĉelintervalojn per Formuloj .

Similaj Legadoj:

• Kiel Uzi VBA-Intervalan Offset (11 Manieroj)
• VBA por Ĉiu Ĉelo en Gamo en Excel (3 Metodoj)
• Kiel Uzi la Gaman Objekton de VBA en Excel (5 Propraĵoj)

5. Kopiu Gamon kun Aŭtomata Adapto al Alia Folio

Dum Kopiante amplekson al alia folio vi ankaŭ povas uzi la Aŭtomata metodo en la VBA al Aŭtomate la kopiita gamo en la nova folio.

Ĉi tie, mi kopios intervalon de Dataserio. folio al AutoFit folio

Ni komencu la proceduron,

Unue malfermu la langeton Ellaboranto >> elektu Visual Basic

Vi ankaŭ povas uzi la ALT + F11 klavaron por malfermi la VBA redaktilon.

Sekva, ĝi malfermos fenestron de Microsoft Visual Basic for Applications.

Tiam malfermu Enmeti &gt. ;> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita Modulo .

9775

Ĉi tie, mi deklaris la Subproceduron Kopiu_Range_withFormat_AutoFit

Unue, mi elektis la laborfolion Datumaro . Poste prenis la gamon B1:E10 por kopii de la ekzistanta folio al la cel-folio nomita AutoFit .

Ĉi tie, mi uzis la Kopion . metodo por kopii la elektitan gamon kaj la AutoFit metodo aŭtomate adaptos la donitajn kolumnojn B:E .

Fine, Konservu la kodon kaj iru reen al la laborfolio.

Sekva, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopiu_Range_withFormat_AutoFit ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Runu la elektita Makro .

Tial ĝi Kopios la elektitan gamon al nova folio kaj ankaŭ Aŭtomate la kolumnoj.

6. VBA Kopiu Gamon al Alia Laborlibro

Se vi volas, vi povas ankaŭ Kopii gamon de unu folio al alia folio de malsama laborlibro.

Ĉi tie, mi kopios intervalon de Dataserio folio al Folio1 de Libro1 laborlibro.

Ni komencu la proceduron,

Unue malfermu la langeton Programisto >> elektu Visual Basic (y vi ankaŭ povas uzi la ALT + F11 klavaron)

Tiam, ĝi malfermos Microsoft VisualBaza por Aplikoj.

Sekva, malfermu Enmeti >> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita Modulo .

5649

Jen, mi deklaris la Subproceduron Kopiu_Range_WithFormat_Toanother_WorkBook

Mi prenis la intervalon B3:E10 de la nomo de la folio Datumaro por kopii de la ekzistanta folio al la nova nomo de laborlibro Libro1 kaj nomo de la folio Sheet1 .

Ĉi tie, mi uzis la Kopii metodon por kopii la elektitan gamon al la nova laborlibro.

Fine, Konservu la kodon kaj reiru al la laborfolio.

Sekva, malfermu la Vidi langeton >> el Makrooj >> elektu Vidi makroojn

➤ dialogkesto aperos.

Nun, el la Makronomo elektu la Kopii_Range_WithFormat_Toanother_WorkBook ankaŭ elektu la laborlibron ene de Makrooj en .

Fine, Run. la elektita Makro .

Nun, ĝi kopios la elektitan gamon de la Dataserio folio al alia laborlibro.

7. Kopiu Gamon al la Lasta Vico de Alia Folio

Ĉiuokaze, se vi volas Kopii intervalon al alia folio de aparta ĉelo aŭ la lasta ĉelo vi povas fari ĝin per la VBA .

Antaŭ ol eniri la proceduron, mi volas diri al vi, ke, mi prenis du novajn foliojn konsistantajn Plena Nomo, Retpoŝto, kaj Adreso .

Ni observu unue la Dataset2 folion.

Jen la Sub Lasta Ĉelo folio.

Jen, mi kopios intervalon de Datumaro2 folio al Sub Lasta Ĉelo sed de la unua nemalplena ĉelo.

Por komenci, malfermu la langeton Programisto >> elektu Visual Basic

Sekva, ĝi malfermos Microsoft Visual Basic por Aplikoj.

Tiam malfermu Enmeti >> elektu Modulo .

A Modulo malfermiĝos tiam tajpu la sekvan kodon en la malfermita Modulo .

6851

Ĉi tie, mi deklaris la Subproceduron Kopiu_Gamon_SubLastĈelo_AliajnFelojn

Unue, mi elektis la folion Datumaro2 kaj poste uzis la Vico metodon por kalkuli la Lastan Vicon kaj konservis la kalkulitan vicon en lr .

Tiam prenite la intervalo A2:C & lr por kopii de la ekzistanta folio al la celo-folio nomo Sub Lasta Ĉelo .

Denove, uzu la Vico metodon por kalkuli la Lastan Vico de alia folio nomita Sub Lasta Ĉelo kaj konservis la kalkulitan vicon en lrAnotherSheet .

Ĉi tie, mi uzis la Kopii metodon por kopii la elektitan gamon kaj la metodo AutoFit aŭtomatigos la donitajn kolumnojn A:C .

Fine, Konservu la kodon kaj reiru al la laborfolio.

Sekva, malfermu la Vidi langeton >> el Makrooj