Օգնությամբ Clipboard, կարող եք միանգամից ընտրել բոլոր ընտրված տիրույթները մեկ այլ տիրույթի կամ աշխատանքային թերթի: Խնդրում ենք անել հետևյալը.

1: Սեղմեք Գլխավոր > է Clipboard խումբը ցուցադրել Clipboard Pane., Տեսեք,

2, Եվ այնուհետև մեկ առ մեկ պատճենեք ձեր ընտրած միջակայքերը: Միևնույն ժամանակ, պատճենված միջակայքերը հայտնվել են Clipboard Pane. տե՛ս վերևի նկարը.

3, Ընտրեք նպատակակետի տիրույթի առաջին բջիջը, որին կտեղադրեք պատճենված բոլոր տիրույթները և կտտացրեք Կպցնել բոլորը կոճակը Clipboard Վահանակ

Եվ ապա պատճենված բոլոր տիրույթները տեղադրվել են նշված նպատակակետի տիրույթում:

Հեշտությամբ միացրեք բազմաթիվ աշխատանքային թերթերից / աշխատանքային գրքերից բազմաթիվ ընտրություններ մեկ աշխատանքային թերթի / աշխատանքային գրքի

Գուցե ձանձրալի է տարբեր աշխատանքային գրքույկներից տասնյակ թերթերը մեկ թերթի մեջ միավորելը: Բայց Excel- ի համար նախատեսված Kutools- ի հետ Միավորել (աշխատանքային թերթեր և աշխատանքային գրքեր) օգտակար, դուք կարող եք դա անել միայն մի քանի կտտոցով:

VBA կոդի միջոցով դուք կարող եք նաև պատճենել ընտրված բազմաթիվ տիրույթներ և տեղադրել դրանք ցանկացած այլ աշխատանքային թերթում:

1. Հոլդինգը Ctrl բանալին և ընտրեք բազմաթիվ ոչ հարակից միջակայքեր, որոնք ցանկանում եք օգտագործել:

2. Մամուլ ալտ + F11 ստեղները միաժամանակ բացել Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներև մուտքագրեք հետևյալ կոդը Մոդուլում.

Ընտրանք Բաց ենթագրերի բազմապատկում եթե միջակայքը ընտրված չէ Եթե TypeName (ընտրություն) <> "Շրջան" ապա MsgBox "Ընտրեք պատճենվող տիրույթը. թույլատրվում է բազմակի ընտրություն": Ելք Ենթավարտից Եթե «Պահպանեք տարածքները որպես Լեռնաշղթայի առանձին օբյեկտներ NumAreas = Selection.Areas.Count ReDim SelAreas (1 To NumAreas) For i = 1 To NumAreas Set SelAreas (i) = Selection. Areas (i) Next» Որոշել վերին ձախը բջիջը բազմակի ընտրության դեպքում. <LeftCol ապա LeftCol = SelAreas (i). Սյունակ Հաջորդ Սահմանել UpperLeft = Բջիջներ (TopRow, LeftCol) 'Ստացիր տեղադրման հասցեն Սխալի վերսկսման մասին Հաջորդ Սահմանել PasteRange = Application.InputBox _ (Հուշում. միջակայք ՝ ", _ Վերնագիր: =" Պատճենել բազմակի ընտրությունը ", _ Տեսակ ՝ = 1) Սխալի վրա GoTo 8 'Ելք, եթե չեղարկված է Եթե TypeName (PasteRange) <>" Range ", ապա Ելք Sub' Համոզվեք, որ միայն ձախ վերին բջիջն է օգտագործված Սահմանել PasteRange = PasteRange.Range ("A0") 'Ստուգեք մածուկի տիրույթը առկա տվյալների համար NonEmptyCellCount = 1 For i = 0 To NumAreas RowOffset = SelAreas (i). Row - TopRow ColOffset = Sel Տարածքներ (i). Սյունակ - LeftCol NonEmptyCellCount = NonEmptyCellCount + _ Application.CountA (Range (PasteRange.Offset (RowOffset, ColOffset), _ PasteRange.Offset (RowOffset + SelAreas (i). Rows.Chaffet - 1, (i) .Columns.Count - 1))) Հաջորդ i 'Եթե տեղադրման տիրույթը դատարկ չէ, նախազգուշացրեք օգտվողին If NonEmptyCellCount <> 1 ապա _ If MsgBox ("Վերագրանցե՞լ գոյություն ունեցող տվյալները", vbQuestion + vbYesNo, _ "Պատճենել բազմակի ընտրություն ") <> vb Այո, այնուհետև Ելք ենթակետից 'Պատճենիր և տեղադրիր յուրաքանչյուր տարածք i = 0-ի համար NumAreas- ում RowOffset = SelAreas (i): Row - TopRow ColOffset = SelAreas (i). Column - LeftCol SelAreas (i). Copy PasteRange.Offset ( RowOffset, ColOffset) Հաջորդ i End Sub

3. Այնուհետեւ կտտացրեք Վազում կոդ ՝ կոդն աշխատեցնելու համար:

4, Եվ հիմա խնդրում ենք նշել բջիջը ՝ միջակայքերը բացման մեջ տեղադրելու համար Պատճենել բազմակի ընտրություն երկխոսության տուփը և կտտացրեք OK կոճակ Տեսեք,

The Պատճենել բազմակի տիրույթներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է օգնել ձեզ արագորեն պատճենել բազմաթիվ աշխատանքային տիրույթներ ակտիվ աշխատանքային թերթից: Խնդրում ենք անել հետևյալը.

1, Առանց պահելու ընտրեք այն տիրույթները, որոնք ցանկանում եք օգտագործել մեկ առ մեկ Ctrl ստեղնը, ապա կտտացրեք Կուտոլս > Պատճենելու տիրույթները, Տեսեք,

2, Մեջ Պատճենել բազմակի տիրույթներ երկխոսության տուփ, ստուգեք բոլորը տարբերակ ՝ սկսած Տեղադրել հատուկ բաժինը և սեղմել Լավ բutton Տեսեք վերևի նկարը.

Նշում: Եթե ​​ցանկանում եք շարքի բարձրությունը և սյունակի լայնությունը պահպանել որպես սկզբնական միջակայք, խնդրում ենք ստուգել Ներառյալ շարքի բարձրությունը տարբերակ և Ներառյալ սյունի լայնությունը տարբերակը Պատճենել բազմակի տիրույթների երկխոսության դաշտում:

3, Նշեք մի բջիջ, որպեսզի տիրույթները տեղադրեն հետևյալ հուշման վանդակում և կտտացրեք այն OK կոճակը:

Եվ այժմ ընտրված բոլոր միջակայքերը կփակցվեն նշված բջիջում, քանի որ նույն շարքի բարձրությունն ու սյունի լայնությունը, ինչպես սկզբնական ընտրությունները:

Կտտացրեք այստեղ Պատճենել բազմակի տիրույթների օգտակարության մասին լրացուցիչ տեղեկություններ ստանալու համար       

Excel- ի համար Kutools- ը տրամադրում է մեկ այլ Միավորել աշխատանքային թերթերը օգտակար է Excel- ում բազմաթիվ աշխատանքային թերթերից կամ շատ աշխատանքային գրքույկից բազմաթիվ տիրույթներ պատճենելու համար: Խնդրում ենք անել հետևյալը.

1: սեղմեք Kutools Plus > Միավորել.

2. Բացման «Միավորել աշխատաթերթերը». 1-րդ երկխոսության տուփի 3-ին քայլ, խնդրում ենք ստուգել Միացրեք բազմաթիվ աշխատանքային թերթեր աշխատանքային գրքից մեկ աշխատանքային թերթի մեջ տարբերակը եւ սեղմեք հաջորդ կոճակը:

3, Միավորել աշխատաթերթերը - 2-րդ երկխոսության տուփի քայլ 3-ը, խնդրում ենք արեք հետևյալը.

(1) Ընտրեք աշխատանքային գիրքը ՝ Աշխատանքային տետրերի ցուցակ բաժինը, ապա կտտացրեք Թերթել յուրաքանչյուր աշխատանքային թերթի ետևի կոճակը ՝ յուրաքանչյուր աշխատանքային թերթից սահմանելու տիրույթը.
(2) Կտտացրեք այն կոճակին Ավելացնել կոճակը ՝ այլ աշխատանքային գրքեր ավելացնելու համար, որոնցից դուք պատճենելու եք տիրույթները, և այնուհետև կրկնել վերևում (1) ՝ ավելացված աշխատանքային գրքում տիրույթները նշելու համար:
(3) Կտտացրեք այն կոճակին Ավարտել կոճակը:

4, Դրանից հետո դուրս է գալիս Kutools for excel երկխոսության տուփ և խնդրում է փրկել համակցված սցենարը: Խնդրում ենք սեղմել այո կոճակը կամ Ոչ կոճակը, որքան անհրաժեշտ է:

Մինչ այժմ բազմակի աշխատանքային թերթերից կամ աշխատանքային գրքերից նշված բոլոր սահմանները պատճենվել և տեղադրվել են նոր աշխատանքային գրքում: