Kopioi tiedot toiseen työkirjaan Excelissä

Kun käsittelet tietoja Microsoft Excelissä, Siirrä tai Kopioi arkki -komento on nopea ja yksinkertainen tapa siirtää tai kopioida kokonaisia ​​arkkeja muihin paikkoihin joko samassa tiedostossa tai eri työkirjassa. Vaihtoehtoisesti voit käyttää VBA: ta (Visual Basic for Applications) automatisoimaan tehtävän ja tekemään siitä paljon vähemmän tylsiä.

Tässä artikkelissa kerrotaan molemmista tavoista kopioida tietoja toiseen Microsoft Excelin työkirjaan.

• Siirrä tai kopioi tiedot samaan työkirjaan
• Siirrä tai kopioi tietoja eri työkirjoissa
• Siirrä tai kopioi tietoja VBA: n avulla

Siirrä tai kopioi tiedot samaan työkirjaan

Ensimmäinen vaihe on valita arkki, jonka haluat siirtää tai kopioida. Jos haluat valita useita arkkeja, valitse vain ensimmäinen arkki ja pidä sitten ohjauspainiketta painettuna samalla, kun napsautat lisää arkkeja, jotka haluat kopioida.

Etsi ylemmän työkalurivin Koti- välilehdestä Solut- ryhmä ja valitse Muotoile . Valitse Järjestä arkit -kohdassa Siirrä tai kopioi arkki .

Näyttöön tulee valintaikkuna. Ennen luetteloa voit joko napsauttaa arkkia, johon haluat siirtää siirretyt tai kopioidut arkit, tai voit siirtää arkit työkirjan viimeisen arkin jälkeen napsauttamalla siirtyä loppuun .

Jos haluat kopioida arkit niiden siirtämisen sijasta, valitse Siirrä tai Kopioi -valintaikkunassa Luo kopio -valintaruutu.

Siirrä tai kopioi tietoja eri työkirjoissa

Jos haluat siirtää tai kopioida Excel-laskentataulukoita toiseen työkirjaan, sinun on ensin varmistettava, että kohde-työkirja on avoinna samassa Microsoft Excel -versiossa.

Valitse arkit, jotka haluat siirtää tai kopioida. Siirry seuraavaksi työkalurivin Koti- välilehdelle ja napsauta Solut- ryhmää> Muotoile . Valitse Järjestä arkit -kohdassa Siirrä tai kopioi arkki .

Näyttöön tulee valintaikkuna. Valitse Kirjanmerkkiluettelosta joko siirrä tai kopioi valitut arkit olemassa olevaan työkirjaan tai siirtää tai kopioida arkit uuteen työkirjaan.

Ennen luetteloa voit joko napsauttaa arkkia, johon haluat siirtää siirretyt tai kopioidut arkit, tai voit siirtää arkit työkirjan viimeisen arkin jälkeen napsauttamalla siirtyä loppuun .

Siirrä tai kopioi tietoja VBA: n avulla

Sub CopyOpenItems ()
'
'CopyOpenItems Macro
'Kopioi avoimet kohteet arkille.
'
'Pikanäppäin: Ctrl + Vaihto + O
'
Dim wbTarget Työkirjan työkirjana, johon tiedot liitetään
Dim wbThis Kuten työkirjan työkirja, josta tiedot kopioidaan
Dim strName lähteen arkki / kohde-työkirjan nimi merkkijonona
"asetettu nykyiseen aktiiviseen työkirjaan (lähdekirja)
Aseta wbThis = ActiveWorkbook
'saat kirjan kirjan aktiivisen nimen
strName = ActiveSheet.Name
'avaa työkirja, jolla on sama nimi kuin levyn nimellä
Aseta wbTarget = Workbooks.Open ("C: tiedoston polku" & strName & ".xlsx")
'valitse kohdekirjasta solu A1
wbTarget.Range ( "A1"). Select
”selkeät nykyiset arvot muodostavat kohdekirjan
wbTarget.Range ( "A1: M51"). ClearContents
aktivoi lähdekirja
wbThis.Activate
”Poista kaikki leikepöydällä olevat asiat maksimoidaksesi käytettävissä olevan muistin
Application.CutCopyMode = False
'kopioi alue lähdekirjasta
wbThis.Range ( "A12: M62"). Kopioi
'liitä kohdekirjan tiedot
wbTarget.Range ( "A1"). PasteSpecial
”Poista kaikki leikepöydällä olevat asiat maksimoidaksesi käytettävissä olevan muistin
Application.CutCopyMode = False
'tallenna kohdekirja
wbTarget.Save
sulje työkirja
wbTarget.Close
aktivoi lähdekirjan uudelleen
wbThis.Activate
'selkeä muisti
Aseta wbTarget = Ei mitään
Aseta wbThis = Ei mitään
Lopeta Sub