Kopējiet datus programmā Excel citā darbgrāmatā

Pārstrādājot Microsoft Excel datus, komanda Pārvietot vai Kopēt lapu ir ātrs un vienkāršs veids, kā pārvietot vai kopēt visas lapas uz citām atrašanās vietām vienā failā vai citā darbgrāmatā. Varat arī izmantot VBA (Visual Basic for Applications), lai automatizētu uzdevumu un padarītu to daudz garlaicīgāku.

Šis raksts iepazīstinās jūs ar abām datu kopēšanas metodēm uz citu darbgrāmatu Microsoft Excel.

• Pārvietot vai kopēt datus tajā pašā darbgrāmatā
• Pārvietot vai kopēt datus dažādās darbgrāmatās
• Pārvietot vai kopēt datus, izmantojot VBA

Pārvietot vai kopēt datus tajā pašā darbgrāmatā

Pirmais solis ir izvēlēties lapu (-as), ko vēlaties pārvietot vai kopēt. Lai atlasītu vairākas lapas, vienkārši atlasiet pirmo lapu un pēc tam turiet nospiestu vadības taustiņu, vienlaikus noklikšķinot uz papildu lapām, kuras vēlaties kopēt.

Augšējā rīkjoslas cilnē Sākums atrodiet grupu un noklikšķiniet uz Formatēt . Sadaļā Organizēt lapas noklikšķiniet uz Pārvietot vai kopēt lapu .

Tiks atvērts dialoglodziņš. Sarakstā Pirms saraksta varat noklikšķināt uz lapas, pirms kuras vēlaties ievietot pārvietotās vai kopētās lapas, vai arī varat noklikšķināt uz Pārvietot uz beigām, lai ievietotu lapas pēc pēdējā darbgrāmatas lapas.

Lai kopētu lapas, nevis pārvietotu tās, atlasiet izvēles rūtiņu Izveidot kopiju, kas atrodas dialoglodziņā Pārvietot vai Kopēt .

Pārvietot vai kopēt datus dažādās darbgrāmatās

Ja vēlaties pārvietot vai kopēt Excel darblapas uz citu darbgrāmatu, vispirms pārliecinieties, vai mērķa darbgrāmata ir atvērta tajā pašā Microsoft Excel versijā.

Atlasiet lapas, kuras vēlaties pārvietot vai kopēt. Pēc tam rīkjoslā atveriet cilni Sākums un noklikšķiniet uz Grupas grupa> Formatēt . Sadaļā Organizēt lapas noklikšķiniet uz Pārvietot vai kopēt lapu .

Tiks atvērts dialoglodziņš. Sarakstā To grāmata izvēlieties pārvietot vai kopēt atlasītās lapas uz esošo darbgrāmatu vai pārvietot vai kopēt lapas jaunai darbgrāmatai.

Sarakstā Pirms saraksta varat noklikšķināt uz lapas, pirms kuras vēlaties ievietot pārvietotās vai kopētās lapas, vai arī varat noklikšķināt uz Pārvietot uz beigām, lai ievietotu lapas pēc pēdējā darbgrāmatas lapas.

Pārvietot vai kopēt datus, izmantojot VBA

Sub CopyOpenItems ()
'
'CopyOpenItems Macro
'Kopēt atvērtos vienumus uz lapu.
'
“Tastatūras īsceļš: Ctrl + Shift + O
'
Dim wbTarget Kā darbgrāmatas darbgrāmatu, kurā dati ir ielīmēti
Dim wbThis Kā darbgrāmatas darbgrāmata, no kuras dati ir jāpārkopē
Dim strName Kā avota lapas / mērķa darbgrāmatas nosaukums
"iestatīts uz pašreizējo aktīvo darbgrāmatu (avota grāmata)
Iestatiet wbThis = ActiveWorkbook
“iegūstiet grāmatas aktīvo lapas nosaukumu
strName = ActiveSheet.Name
“atveriet darbgrāmatu, kurai ir tāds pats nosaukums kā lapas nosaukumam
Iestatiet wbTarget = Workbooks.Open ("C: faila ceļš" & strName & ".xlsx")
'atlasiet šūnu A1 mērķa grāmatā
wbTarget.Range ("A1") Izvēlieties
“skaidras esošās vērtības veido mērķa grāmatu
wbTarget.Range ("A1: M51") ClearContents
“aktivizējiet avota grāmatu
wbThis.Activate
“Notīriet jebkuru lietu starpliktuvē, lai palielinātu pieejamo atmiņu
Application.CutCopyMode = False
“kopējiet diapazonu no avota grāmatas
wbThis.Range ("A12: M62") Kopēt
“ielīmējiet datus mērķa grāmatā
wbTarget.Range ("A1") .PasteSpecial
“Notīriet jebkuru lietu starpliktuvē, lai palielinātu pieejamās atmiņas apjomu
Application.CutCopyMode = False
'saglabājiet mērķa grāmatu
wbTarget.Save
“aizveriet darbgrāmatu
wbTarget.Slēgt
"vēlreiz aktivizējiet avota grāmatu
wbThis.Activate
“Notīriet atmiņu
Iestatīt wbTarget = Nekas
Iestatiet wbThis = Nekas
Beigt Sub