Note: The other languages of the website are Google-translated. Back to English

Kako kopirati več izbir ali obsegov v Excelu?

Na primer, imate velik delovni list, zdaj pa želite kopirati le nekatere izbrane obsege in jih distribuirati na druge delovne liste. Ko pa izberete več obsegov in kliknete kopijo, se prikaže pogovorno okno s pozivom, da tega ukaza ni mogoče uporabiti za več izbir. Kako v tem stanju hitro kopirate več izbranih obsegov? Tu je nekaj trikov za rešitev te naloge.


Kopirajte več izbranih obsegov z odložiščem

S pomočjo odložišče, lahko vse izbrane obsege hkrati prilepite v drug obseg ali delovni list. Naredite naslednje:

1. Kliknite Home > doc kopiraj več obsegov 09 v odložišče skupina za prikaz odložišče kruh.. Oglejte si posnetek zaslona:

2. Nato posamično kopirajte izbrane obsege, ki jih potrebujete. Hkrati so bili kopirani obsegi prikazani v odložišče kruh. glej posnetek zaslona zgoraj:

3. Izberite prvo celico ciljnega obsega, v katerega boste prilepili vse kopirane obsege, in kliknite Prilepi vse gumb v odložišče Podokno.

Nato so bili vsi kopirani obsegi prilepljeni v navedeni ciljni obseg.

Preprosto združite več izbir iz številnih delovnih listov / delovnih zvezkov v en sam delovni list / delovni zvezek

Morda je dolgočasno kombinirati na desetine listov iz različnih delovnih zvezkov v en list. Toda s Kutools za Excel Združite (delovni listi in delovni zvezki) pripomoček, lahko to storite z nekaj kliki!


oglasna kombinacija listov knjige 1

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

Kopirajte več izbranih obsegov s kodo VBA

S kodo VBA lahko kopirate tudi več izbranih obsegov in jih prilepite v kateri koli drug delovni list.

1. Drži Ctrl tipko in izberite več nesosednjih obsegov, ki jih želite uporabiti.

2. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduliin v modul vnesite naslednjo kodo:

Možnost Izrecno podkopiranjeMultipleSelection () Dim SelAreas () As Range Dim PasteRange As Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow As Long, LeftCol As Integer Dim RowOffset As Long, ColOffset As IntegerCame InCerge Dim NonEmptyCell če obseg ni izbran. Če TypeName (Selection) <> "Range" Potem MsgBox "Izberite obseg, ki ga želite kopirati. Dovoljena je večkratna izbira." Exit Sub End If 'Shrani območja kot ločena predmeta Range NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection.Areas (i) Next' Določite zgoraj levo celica v večkratnem izboru TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count For i = 1 do NumAreas If SelAreas (i) .Row <TopRow then TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Potem LeftCol = SelAreas (i). Stolpec Naslednja nastavitev UpperLeft = Celice (TopRow, LeftCol) 'Pridobi naslov prilepitve Na napako Nadaljuj Naslednja nastavitev PasteRange = Application.InputBox _ (Prompt: = "Določite zgornjo levo celico za prilepitev range: ", _ Title: =" Copy Mutliple Selection ", _ Type: = 8) On Error GoTo 0 'Exit if canceled If TypeName (PasteRange) <>" Range "Then Exit Sub' Prepričajte se, da je le zgornja leva celica uporabljeno Set PasteRange = PasteRange.Range ("A1") 'Preveri obseg lepljenja za obstoječe podatke NonEmptyCellCount = 0 For i = 1 To NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Območja (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - Colset. (i) .Columns.Count - 1))) Naprej i 'Če obseg lepljenja ni prazen, opozorite uporabnika If NonEmptyCellCount <> 1 Potem _ Če MsgBox ("Prepiši obstoječe podatke?", vbQuestion + vbYesNo, _ "Kopiraj večkratni izbor ") <> vbDa Nato zapustite pod 'Kopiraj in prilepi vsako območje za i = 0 v NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i). Stolpec - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Naprej i End Sub

3. Nato kliknite na Run za zagon kode.

4. In zdaj, prosimo, določite celico, da prilepite obsege v odprtino Kopiraj več izbir pogovorno okno in kliknite OK . Oglejte si posnetek zaslona:


Hitro kopirajte več izbranih obsegov z enega delovnega lista

O Kopirajte več razponov uporabnost Kutools za Excel vam lahko pomaga hitro kopirati več obsegov iz aktivnega delovnega lista. Naredite naslednje:

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

1. Izberite obsege, ki jih želite uporabiti enega za drugim, ne da bi držali tipko Ctrl in nato kliknite Kutools > Obsegi kopiranja. Oglejte si posnetek zaslona:

2. v Kopirajte več razponov pogovorno okno, preverite vsi možnost od Prilepite posebno in kliknite V redu button. Oglejte si zgornji posnetek zaslona:

Opomba: Če želite ohraniti višino vrstice in širino stolpca kot prvotna obsega, preverite Vključno z višino vrstice možnost in Vključno s širino stolpca v pogovornem oknu Kopiraj več obsegov.

3. In določite celico, v katero boste prilepili obsege, v naslednje pozivno polje in kliknite OK gumb.

Zdaj bodo vsi izbrani obsegi prilepljeni v določeno celico kot enaka višina vrstice in širina stolpca kot prvotne izbire.

Kliknite tukaj za več informacij o pripomočku Copy Multiple Ranges       

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now


Kopirajte več obsegov iz številnih delovnih listov / delovnih zvezkov

Kutools za Excel ponuja še eno Združite delovne liste pripomoček za enostavno kopiranje več obsegov z več delovnih listov ali številnih delovnih zvezkov v Excelu. Naredite naslednje:

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

1. klik Kutools Plus > Združite.

2. V uvodnem pogovornem oknu Combine Worksheets - Step 1 of 3 preverite Več delovnih listov iz delovnega zvezka združite v en delovni list in kliknite na Naslednji gumb.

3. V pogovornem oknu Združite delovne liste - korak 2 od 3 naredite spodaj:

(1) Izberite delovni zvezek v Seznam delovnih zvezkov in nato kliknite Brskanje gumb za vsakim delovnim listom, da določite obseg vsakega delovnega lista;
(2) Kliknite Dodaj gumb, da dodate druge delovne zvezke, iz katerih boste kopirali obsege, in nato ponovite zgoraj (1), da določite obsege v dodanem delovnem zvezku.
(3) Kliknite Konec gumb.

Kutools za Excel - Vključuje več kot 300 priročnih orodij za Excel. Brezplačna preizkusna različica vseh funkcij 30-dan, kreditna kartica ni potrebna! Get It Now

4. Nato se odpre pogovorno okno Kutools for excel in zahteva shranjevanje kombinacije scenarijev. Kliknite Da gumb ali Ne gumb, kot ga potrebujete.

Do zdaj so bili vsi določeni obsegi iz več delovnih listov ali delovnih zvezkov kopirani in prilepljeni v nov delovni zvezek.


Predstavitev: kopirajte več izbranih obsegov z enega delovnega lista

Predstavitev: kopirajte več izbranih obsegov iz številnih delovnih zvezkov / delovnih listov


Kutools za Excel vsebuje več kot 300 priročnih orodij za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. Prenesite in brezplačno preizkusite zdaj!

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (14)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Želim izbrati vrstice, kot so 1, 5,6,10, XNUMX, XNUMX. torej kako lahko kopiram te vrstice???
Ta komentar je moderator na spletnem mestu minimiziral
V tem primeru lahko preprosto izberete vrstice in jih kopirate kot običajno.
Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko kopiram celice a1, e5, g2 itd.... (več kot 1000 celic v istem stolpcu) in jih prilepim v b1, f5, h2 (desno v naslednji stolpec v isti vrstici.)
Ta komentar je moderator na spletnem mestu minimiziral
Zgornja razlaga možnosti za kopiranje več obsegov je zelo koristna - hvala! Uporabil sem možnost 'odložišče' za kopiranje več vrstic. Moral sem izbrati vsako skupino zaporednih vrstic in jo kopirati, premakniti se naprej in izbrati naslednjo vrstico ali skupino zaporednih vrstic in jo kopirati, itd. Toda po tem je enostavno, pojdite tja, kamor jih želite prilepiti, npr. nov list, in kliknite 'Prilepi vse' iz odložišča in vse vrstice bodo kopirane tja brez vrzeli! Točno to, kar sem hotel - še enkrat hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala - kako super stran
Ta komentar je moderator na spletnem mestu minimiziral
Ugotovil sem, da če imate odprto opravilno ravnino odložišča, lahko kopirate več vrstic preprosto s ctrl+C in jih prilepite po vrstnem redu s crtl+V z uporabo Excel 2007.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Ali je mogoče kodo prilagoditi tako, da se lahko kopirane celice prilepijo na drug list? Zdaj dobim sporočilo o napaki "400", ko to poskusim. Uporabljam Office 2010. Ali je mogoče tudi kopirati tako, da se prazne vrstice izbrišejo? Imam velik dokument in kopiram nekaj celic z na stotine neprekopiranih vrstic med njimi. To omogoča precej obsežen izhod.
Ta komentar je moderator na spletnem mestu minimiziral
Hvala za kodo, deluje brezhibno. To nenavadno pomanjkanje funkcije v Excelu me je v preteklosti velikokrat osupnilo. Običajno je to na koncu hitrejše, toda v tem primeru imam 4000 posamično barvno kodiranih celic, tako da bi vsakršno delo trajalo dolgo, zato sem zelo hvaležen. Steve
Ta komentar je moderator na spletnem mestu minimiziral
Živjo! Kako naj uporabim isto kodo VBA zgoraj, vendar bi namesto preprostega lepljenja želel, da se prilepi posebno samo za vrednosti. Tabela, v katero dajem vrednosti (konstante), je že oblikovana in s seštevki (formule)
Najlepša hvala vnaprej!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Katrina Manahan,

Odprite okno Microsoft Visual Basic za aplikacije in ustvarite nov modul, samo pritisnite CTRL + V, da neposredno prilepite kodo VBA. Zaporedne številke pred kodo ne bodo prilepljene.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Lepa koda, deluje odlično. Ali je mogoče spremeniti kodo na način, da je mogoče vstaviti/prilepiti tržno vrstico/obsege večkrat namesto samo enkrat?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Jacob,
Morda lahko ta funkcija Vstavi naslovne vrstice Kutools for Excel reši vašo težavo.
https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Odlična objava in koda VBA deluje odlično. Ali je mogoče spremeniti kodo tako, da prilepi posebne > vrednosti? Če je tako, kako?
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Odlična koda, vendar se sprašujem, kako lahko prilepim vrednosti, namesto da samo prilepim?
hvala :)
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL