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

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:

Mae adroddiadau 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:

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 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:

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.

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.