Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i gopïo sawl dewis neu ystod yn Excel?

Er enghraifft, mae gennych daflen waith fawr, a nawr dim ond rhai ystodau dethol yr ydych am eu copïo a'u dosbarthu i daflenni gwaith eraill. Ond pan ddewiswch yr ystodau lluosog a chlicio copi, bydd blwch deialog prydlon i'ch atgoffa “Ni ellir defnyddio'r gorchymyn hwnnw ar sawl dewis." Yn yr amod hwn, sut ydych chi'n copïo ystodau lluosog a ddewiswyd yn gyflym? Dyma rai triciau i chi ddatrys y dasg hon.


Copïwch sawl amrediad dethol gyda Clipfwrdd

Gyda chymorth Clipfwrdd, gallwch chi gludo'r holl ystodau a ddewiswyd i ystod neu daflen waith arall ar y tro. Gwnewch fel a ganlyn:

1. Cliciwch Hafan > copi doc ystodau lluosog 09 yn y Clipfwrdd grwp i arddangos y Clipfwrdd Pane.. Gweler y screenshot:

2. Ac yna copïwch yr ystodau a ddewiswyd sydd eu hangen arnoch fesul un. Ar yr un pryd, mae'r ystodau a gopïwyd wedi ymddangos yn y Clipfwrdd Pane. gweler y screenshot uchod:

3. Dewiswch y gell gyntaf o ystod cyrchfan y byddwch yn pastio'r holl ystodau a gopïwyd iddi, a chlicio Gludo Pawb botwm yn y Clipfwrdd Pane.

Ac yna mae'r holl ystodau a gopïwyd wedi'u pastio i'r ystod cyrchfan benodol.

Cyfuno sawl dewis yn hawdd o lawer o daflenni gwaith / llyfrau gwaith yn un daflen waith / llyfr gwaith

Efallai ei bod yn ddiflas cyfuno dwsinau o daflenni o wahanol lyfrau gwaith yn un ddalen. Ond gyda Kutools ar gyfer Excel's Cyfuno (taflenni gwaith a llyfrau gwaith) cyfleustodau, gallwch chi wneud hynny gyda dim ond sawl clic! Treial Am Ddim Nodwedd Llawn 30 diwrnod!
ad cyfuno taflenni llyfrau 1

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial llawn am ddim nodwedd 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

Copïwch sawl amrediad dethol gyda chod VBA

Gyda chod VBA, gallwch hefyd gopïo ystodau lluosog a ddewiswyd a'u pastio i mewn i unrhyw daflen waith arall.

1. Cynnal y Ctrl allweddi a dewis ystodau amrywiol nad ydynt yn gyfagos yr ydych am eu defnyddio.

2. Gwasgwch Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, cliciwch Mewnosod > Modiwlau, a mewnbynnu'r cod canlynol i'r Modiwl:

Opsiwn Is-CopiMultipleSelection () Dim SelAreas () Fel Range Dim PasteRange Fel Range Dim UpperLeft As Range Dim NumAreas As Integer, i As Integer Dim TopRow Cyhyd, LeftCol Fel Cyfanrif Dim RowOffset Mor Hir, ColOffset Fel Cyfanrif Dim NonEmptyCellCount As Integer 'Exit os na ddewisir amrediad Os TypeName (Dewis) <> "Ystod" Yna MsgBox "Dewiswch yr ystod i'w chopïo. Caniateir dewis lluosog." Is-ddiwedd Ymadael Os 'Storiwch yr ardaloedd fel gwrthrychau Ystod ar wahân NumAreas = Selection.Areas.Count ReDim SelAreas (1 I NumAreas) Ar gyfer i = 1 I NumAreas Gosod SelAreas (i) = Dewis.Areas (i) Nesaf' Darganfyddwch y chwith uchaf cell yn y dewis lluosog TopRow = ActiveSheet.Rows.Count LeftCol = ActiveSheet.Columns.Count Ar gyfer i = 1 I NumAreas Os SelAreas (i) .Row <TopRow Yna TopRow = SelAreas (i) .Row If SelAreas (i) .Column <LeftCol Yna LeftCol = SelAreas (i) .Column Next Set UpperLeft = Celloedd (TopRow, LeftCol) 'Cael y cyfeiriad past Ar Gwall Ail-ddechrau Set Nesaf PasteRange = Application.InputBox _ (Prompt: = "Nodwch y gell chwith uchaf ar gyfer y past range: ", _ Title: =" Copi Dewis Mutliple ", _ Math: = 8) Ar Gwall GoTo 0 'Ymadael os caiff ei ganslo Os yw TypeName (PasteRange) <>" Range "Yna Allanfa Is' Gwnewch yn siŵr mai dim ond y gell chwith uchaf yw used Set PasteRange = PasteRange.Range ("A1") 'Gwiriwch yr ystod past ar gyfer data sy'n bodoli NonEmptyCellCount = 0 Ar gyfer i = 1 I NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = Sel Ardaloedd (i) .Column - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Ystod (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i) .Rows.Count - 1, _ ColOffset (i) .Columns.Count - 1))) Nesaf i 'Os nad yw'r amrediad past yn wag, rhybuddiwch y defnyddiwr Os NonEmptyCellCount <> 0 Yna _ Os yw MsgBox ("Ysgrifennwch y data presennol?", vbQuestion + vbYesNo, _ "Copïwch Dewis Lluosog ") <> vbYes Yna Allanfa Is 'Copïo a gludo pob ardal Ar gyfer i = 1 I NumAreas RowOffset = SelAreas (i) .Row - TopRow ColOffset = SelAreas (i) .Column - LeftCol SelAreas (i) .Copy PasteRange.Offset ( RowOffset, ColOffset) Nesaf i Ddiwedd Is

3. Yna cliciwch y Run botwm i redeg y cod.

4. Ac yn awr nodwch gell i gludo'r ystodau yn yr agoriad Copi Dewis Lluosog blwch deialog, a chliciwch ar y OK botwm. Gweler y screenshot:


Copïwch sawl amrediad a ddewiswyd yn gyflym o un daflen waith

Daeth Copi Meysydd Lluosog cyfleustodau Kutools ar gyfer Excel gall eich helpu i gopïo ystodau lluosog o'r daflen waith weithredol yn gyflym. Gwnewch fel a ganlyn:

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial llawn am ddim nodwedd 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

1. Dewiswch yr ystodau rydych chi am eu defnyddio fesul un heb ddal y Ctrl allwedd, ac yna cliciwch Kutools > Copi Meysydd. Gweler y screenshot:

2. Yn y Copi Meysydd Lluosog blwch deialog, gwirio All opsiwn o Gludo arbennig adran, a chliciwch ar y Iawn button. Gweler y screenshot uchod:

Nodyn: Os ydych chi am gadw uchder y rhes a lled y golofn fel yr ystodau gwreiddiol, gwiriwch Gan gynnwys uchder rhes opsiwn a Gan gynnwys lled colofn opsiwn yn y blwch deialog Copy Multiple Ranges.

3. A nodwch gell i gludo'r ystodau yn y blwch prydlon canlynol, a chliciwch ar y OK botwm.

Ac yn awr bydd yr holl ystodau a ddewiswyd yn cael eu pastio i'r gell benodol fel yr un uchder rhes a lled colofn â'r detholiadau gwreiddiol.

Cliciwch yma i gael mwy o wybodaeth am gyfleustodau Copi Multiple Ranges       

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial llawn am ddim nodwedd 30 diwrnod, nid oes angen cerdyn credyd! Get It Now


Copïwch amrediadau lluosog o lawer o daflenni gwaith / llyfrau gwaith

Mae Kutools for Excel yn darparu un arall Cyfuno Taflenni Gwaith cyfleustodau i gopïo ystodau lluosog o lawer o daflenni gwaith neu lawer o lyfr gwaith yn hawdd yn Excel. Gwnewch fel a ganlyn:

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial llawn am ddim nodwedd 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

1. Cliciwch Kutools Plus > Cyfunwch.

2. Yn y Taflenni Gwaith Cyfuno agoriadol - blwch deialog Cam 1 o 3, gwiriwch y Cyfunwch nifer o daflenni gwaith o'r llyfr gwaith i mewn i un daflen waith opsiwn, a chliciwch ar y nesaf botwm.

3. Yn y Taflenni Gwaith Cyfuno - blwch deialog Cam 2 o 3, gwnewch fel y nodir isod:

(1) Dewiswch y llyfr gwaith yn y Rhestr llyfr gwaith adran, ac yna cliciwch yr adran Pori botwm y tu ôl i bob taflen waith i nodi'r ystod o bob taflen waith;
(2) Cliciwch y Ychwanegu botwm i ychwanegu llyfrau gwaith eraill y byddwch yn copïo yn amrywio ohonynt, ac yna eu hailadrodd uchod (1) i nodi ystodau mewn llyfr gwaith ychwanegol.
(3) Cliciwch y Gorffen botwm.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial llawn am ddim nodwedd 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

4. Yna daw blwch deialog Kutools for excel allan a gofyn am senario cyfuniad arbed. Cliciwch y Ydw botwm neu Na botwm yn ôl yr angen.

Hyd yn hyn mae'r holl ystodau penodedig o daflenni gwaith neu lyfrau gwaith lluosog wedi'u copïo a'u pastio i lyfr gwaith newydd.


Demo: Copïwch sawl amrediad dethol o un daflen waith

Demo: Copïwch sawl amrediad dethol o lawer o lyfrau gwaith / taflenni gwaith


Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i geisio heb gyfyngiad mewn 30 diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    peter.habershon@eis2win.co.uk · 2 years ago
    Hi there,
    Great code but wondered how I can paste values rather than just paste?
    Thanks :)
  • To post as a guest, your comment is unpublished.
    Peter Habershon · 2 years ago
    Hi there,
    Great post and the VBA code works perfectly. Is it possible to change the code to paste special > values? If so, how?
    Thanks!
  • To post as a guest, your comment is unpublished.
    jacobkring@hotmail.com · 3 years ago
    Hi. Nice code, works great. Is it possible to modify the code in a way such that it is possible to insert/paste the market row/ranges multiple times instead of just one time?
    • To post as a guest, your comment is unpublished.
      kelly.extendoffice@gmail.com · 3 years ago
      Hi Jacob,
      Maybe this Insert Title Rows feature of Kutools for Excel can solve your problem.
      https://www.extendoffice.com/product/kutools-for-excel/excel-insert-title-rows.html
  • To post as a guest, your comment is unpublished.
    kmmanahan · 3 years ago
    Hi! How do I use the same VBA Code above but instead of simply pasting, I would like it to paste special for just the values. The table I am putting the values (constants) into is already formatted and with totals (formulas)
    Thanks so much in advance!
    • To post as a guest, your comment is unpublished.
      · 3 years ago
      Hi Katrina Manahan,

      Please open the Microsoft Visual Basic for applications window, and create a new Module, just press CTRL + V to paste the VBA code directly. The sequence numbers before code won't be pasted.
  • To post as a guest, your comment is unpublished.
    Steve O · 5 years ago
    Thanks for the code, works perfectly. This odd lack of function within Excel has stumped me many times in the past. It's normally quicker in the end to work around it, but in this case I have 4000 individually colour-coded cells so any work-around would have taken a long time, so I'm very grateful.
    Steve
  • To post as a guest, your comment is unpublished.
    David Hedin · 5 years ago
    Hi,
    Is it possible to adjust the code so that the copied cells can be pasted in another sheet? Now I get the error message "400" when I attempt this. I use Office 2010.

    Also, is it possible to copy so that empty lines are deleted? I have a big document and I copy some cells with hundreds of non-copied rows between them. This makes for a rather bulky output.
  • To post as a guest, your comment is unpublished.
    Yunivor · 5 years ago
    I found that if you have the Clipboard task plane open you can copy multiple rows simply using ctrl+C and paste them in order with crtl+V using Excel 2007.
  • To post as a guest, your comment is unpublished.
    M · 6 years ago
    Thank you SOOOOOO much - what a great site
  • To post as a guest, your comment is unpublished.
    Lyn Mc · 6 years ago
    Found above explanation of options to copy multiple ranges very helpful - thanks! I used the 'clipboard' option to copy multiple rows. Had to select each group of consecutive rows and copy it, move on and select next row or group of consecutive rows and copy it, etc.. But after this its easy, go to where you want to paste them, eg a new sheet, and click 'Paste all' from the Clipboard and all the rows are copied to there with out any gaps! Exactly what I wanted - thanks again!
  • To post as a guest, your comment is unpublished.
    Abani Pattanayak · 6 years ago
    I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
    • To post as a guest, your comment is unpublished.
      David Hedin · 5 years ago
      In this case you can just select the rows and copy them as usual.
      • To post as a guest, your comment is unpublished.
        K Raj · 4 years ago
        How can I copy cell a1, e5, g2, and so on.... (more than 1000 cells in same column) and paste them into b1, f5, h2 (right into the next column in same row.)