Skip i'r prif gynnwys

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 Cwarel.

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

Gall fod 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!


ad cyfuno taflenni llyfrau 1

Kutools ar gyfer Excel - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod 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

Mae'r 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 - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod 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 Popeth 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 - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now


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

Kutools ar gyfer 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 - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now

1. Cliciwch Kutools Byd Gwaith > 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 Digwyddiadau 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 - Supercharge Excel gyda dros 300 o offer hanfodol. Mwynhewch dreial 30 diwrnod llawn sylw AM DDIM heb fod angen cerdyn credyd! Get It Now

4. Yna mae blwch deialog Kutools ar gyfer excel yn dod allan ac yn gofyn am arbed senario cyfuniad. Cliciwch ar y Ydy 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: Dros 300 o offer defnyddiol ar flaenau eich bysedd! Dechreuwch eich treial am ddim 30 diwrnod heb unrhyw gyfyngiadau nodwedd heddiw. Lawrlwytho Nawr!

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there,
Great code but wondered how I can paste values rather than just paste?
Thanks :)
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Thank you SOOOOOO much - what a great site
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
I want to select the rows like 1, 5,6,10. so how can i copy these rows ???
This comment was minimized by the moderator on the site
In this case you can just select the rows and copy them as usual.
This comment was minimized by the moderator on the site
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.)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations