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

Ինչպե՞ս միացնել կամ համախմբել աշխատանքային թերթերը կամ աշխատանքային գրքերը մեկ աշխատանքային թերթի մեջ:

Մեր ամենօրյա աշխատանքում մենք կարող ենք բախվել մի խնդրի, որը հարյուրավոր թերթեր կամ աշխատանքային գրքեր է միավորում մեկ թերթի մեջ `տվյալների վերլուծության համար, ինչը շատ ժամանակ է պահանջում, եթե օգտագործեք« Պատճենել և Տեղադրել »հրամանը Excel- ում: Այս ձեռնարկում ես կներկայացնեմ մի քանի խորհուրդ այս աշխատանքը արագ լուծելու համար:

փաստաթուղթ միավորել 1

Արագ նավարկություն

Ակտիվ աշխատանքային գրքի բոլոր թերթերը միաձուլելով մեկ թերթի մեջ VBA- ի հետ
Տասնյակ թերթերի կամ աշխատանքային գրքերի միավորումը կտտացնում է մեկ աշխատանքային թերթի / աշխատանքային գրքի
Երկու աղյուսակ միավորելը մեկի մեջ և թարմացրեք սյունակի միջոցով կտտացնումներով
Ներբեռնեք ֆայլի նմուշը


Ակտիվ աշխատանքային գրքի բոլոր թերթերը միաձուլելով մեկ թերթի մեջ VBA- ի հետ

Այս բաժնում ես տրամադրում եմ VBA կոդ, որը կստեղծի նոր թերթ ակտիվ աշխատանքային գրքի բոլոր թերթերը հավաքելու համար այն աշխատեցնելիս:

1. Ակտիվացրեք աշխատանքային գրքույկը, որը ցանկանում եք համատեղել դրա բոլոր թերթերը, այնուհետև սեղմել + բացելու ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Պատուհանի պատուհանում կտտացրեք Տեղադրել > Մոդուլներ ստեղծել նոր Մոդուլի սցենար:

3. Պատճենեք ներքևի կոդը և տեղադրեք դրանք սցենարում:

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
փաստաթուղթ միավորել 2

4. Մամուլ F5 ստեղնը, այնուհետև թերթերի միջև եղած բոլոր տվյալները միավորվել են միավորված նոր թերթիկի հետ, որը տեղադրված է բոլոր թերթերի առջևում:


ot տեղափոխել

Անկանու՞մ եք աշխատավարձի բարձրացում և շատ ժամանակ ընտանիքի հետ ընկերանալու համար:

Office Tab- ը 50% -ով բարձրացնում է ձեր արդյունավետությունը Microsoft Office- ում, որն աշխատում է հենց հիմա

Անհավատալի է, որ երկու կամ ավելի փաստաթղթերի վրա աշխատելը ավելի հեշտ է և արագ, քան մեկում աշխատելը:

Համեմատելով հայտնի բրաուզերների հետ, Office Tab- ի ներդիրով գործիքն ավելի հզոր է և արդյունավետ:

Նվազեցրեք ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներն ու ստեղնաշարի մուտքագրումը, հիմա հրաժեշտ տվեք մկնիկի ձեռքին:

Եթե ​​սովորաբար աշխատում եք բազմաթիվ փաստաթղթերում, Office Tab- ը ձեզ համար ժամանակի մեծ խնայողություն կլինի:

30- օր անվճար փորձաշրջան, վարկային քարտ չի պահանջվում:

Կարդալ ավելինԱզատ Download Now


Տասնյակ թերթերի կամ աշխատանքային գրքերի միավորումը կտտացնում է մեկ աշխատանքային թերթի / աշխատանքային գրքի

VBA- ի միջոցով դուք միայն կարող եք համատեղել թերթերը ակտիվ աշխատանքային գրքում, բայց ինչպե՞ս կարող եք աշխատանքային գրքերի մեջ թերթերը միացնել թերթի կամ աշխատանքային գրքի:

Միացրեք թերթերը աշխատանքային գրքերի մեջ մեկ թերթի մեջ
փաստաթուղթ միավորել 18

Միացրեք թերթերը աշխատանքային գրքերի մեջ մեկ աշխատանքային գրքի մեջ
փաստաթուղթ միավորել 3

Այս աշխատանքը լուծելու և թերթ-համադրության վերաբերյալ այլ պահանջներ բավարարելու համար Միավորել գործառույթը մշակվել է չորս համակցված սցենարներով.

  • Միավորել մի քանի թերթ կամ աշխատանքային գրքույկ մեկ թերթի մեջ
  • Միավորել բազմաթիվ թերթեր կամ աշխատանքային գրքեր մեկ աշխատանքային գրքում
  • Միաձուլեք նույն անվան թերթերը մեկ թերթի մեջ
  • Համախմբեք արժեքները թերթերի կամ աշխատանքային գրքերի միջև մեկ թերթիկի մեջ

Այստեղ որպես օրինակ վերցվում է երկրորդ տարբերակը.

Միավորել բազմաթիվ թերթեր կամ աշխատանքային գրքեր մեկ աշխատանքային գրքում

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1. Ակտիվացրեք Excel- ը, կտտացրեք Kutools Plus > Միավորել, բացվում է երկխոսություն ՝ հիշեցնելու համար, որ անհրաժեշտ աշխատանքային գրքերը, որոնք ցանկանում եք համատեղել, փակվեն: Սեղմել OK շարունակել.
փաստաթուղթ միավորել 4
փաստաթուղթ միավորել 5

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

3: սեղմեք Ավելացնել > Ֆայլ or Թղթապանակ աշխատանքային գրքերը ավելացնելու համար Աշխատանքային տետրերի ցուցակ պատուհանը, ապա կարող եք նշել, թե որ թերթը կմիանա միասին ՝ ստուգելով անունները Աշխատաթերթի ցուցակ պատուհան Սեղմել հաջորդ գնալ կախարդի վերջին աստիճանին:
փաստաթուղթ միավորել 7

4. Այս քայլում նշեք պարամետրերը, որքան ձեզ հարկավոր է: Դրանից հետո կտտացրեք Ավարտել.
փաստաթուղթ միավորել 8

5. Պատուհանը բացվում է ձեզ համար, ընտրելով պանակ ՝ համակցված աշխատանքային գրքույկը տեղադրելու համար, ապա կտտացրեք Փրկել.
փաստաթուղթ միավորել 9

Այժմ աշխատանքային գրքերը միացվել են մեկ աշխատանքային գրքի: Եվ բոլոր թերթերի առջևում նույնպես ստեղծվում է Excel- ի համար նախատեսված Kutools վարպետ թերթ, որը թվարկում է յուրաքանչյուր թերթի թերթերի և հղումների վերաբերյալ որոշ տեղեկություններ:
փաստաթուղթ միավորել 10

Դեմո. Միացրեք թերթերը / աշխատանքային գրքերը մեկ թերթիկի կամ աշխատանքային գրքի մեջ

Excel- ի համար նախատեսված գործիքներ. 200 + օգտակար հարմար գործիքներ ՝ Excel- ի բարդ առաջադրանքները պարզեցնելով մի քանի կտտացման:

Հիմա հրաժեշտ տվեք մկնիկի ձեռքի և արգանդի վզիկի սպոնդիլոզին

Kutools-ի 300 առաջադեմ գործիքներ Excel-ի համար 80% Excel-ի առաջադրանքները վայրկյանների ընթացքում ձեզ դուրս են բերում մկնիկի հազարավոր սեղմումներից:

Հեշտությամբ գործ ունեցեք 1500 աշխատանքային սցենարների հետ, լուծումներ փնտրելու համար ժամանակ վատնել պետք չէ, շատ ժամանակ ունենաք ձեր կյանքը վայելելու համար:

Բարելավել 80% արտադրողականություն 110000+ բարձր արդյունավետ մարդկանց համար, ամեն օր, իհարկե, ներառյալ ձեզ:

Այլևս չտանջվեք ցավոտ բանաձևերից և VBA- ից, ձեր ուղեղին հանգստացեք և ուրախ աշխատանքային տրամադրություն տվեք:

30- օրական անվճար փորձարկում՝ ամբողջական հնարավորություններով, 30- օրվա գումարի վերադարձ առանց պատճառների:

Ավելի լավ մարմինը ստեղծում է ավելի լավ կյանք:


Երկու աղյուսակ միավորելը մեկի մեջ և թարմացրեք սյունակի միջոցով կտտացնումներով

Եթե ​​ցանկանում եք միաձուլել երկու աղյուսակ մեկում և թարմացնել տվյալները ՝ հիմնվելով սյունակի վրա, ինչպես ցույց է տրված սքրինշոթից ներքև, Աղյուսակները միաձուլվում են օգտակարությունը Excel- ի համար նախատեսված գործիքներ.
փաստաթուղթ միավորել 11

Excel- ի համար նախատեսված գործիքներ. Ավելի քան 200 հարմարավետ Excel հավելումներ `Excel- ում մի քանի կտտոցների պարզեցման համար բարդ առաջադրանքները

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1: սեղմեք Kutools Plus > Աղյուսակները միաձուլվում են հնարավորություն ընձեռել Աղյուսակները միաձուլվում են Wizard.
փաստաթուղթ միավորել 12

2. Կախարդի 1-ին քայլում անհրաժեշտ է առանձին ընտրել հիմնական աղյուսակը և որոնման աղյուսակի տիրույթները: Դրանից հետո կտտացրեք հաջորդ.
փաստաթուղթ միավորել 13

3. Ստուգեք այն հիմնական սյունակը, որի հիման վրա ցանկանում եք թարմացնել հիմնական աղյուսակի տվյալները: Սեղմել հաջորդ.
փաստաթուղթ միավորել 14

4. Դրանից հետո ստուգեք հիմնական աղյուսակի սյունակները, որոնք ցանկանում եք թարմացնել տվյալները ՝ հիմնվելով որոնման աղյուսակի վրա: Սեղմել հաջորդ.
փաստաթուղթ միավորել 15

5. Կախարդի 4-րդ քայլին ստուգեք սյունակները, որոնք ցանկանում եք ավելացնել որոնման աղյուսակից հիմնական սեղանին: Սեղմել հաջորդ.
փաստաթուղթ միավորել 16

6. Կախարդի վերջին քայլում նշեք կարգավորման ընտրանքները, որքան ձեզ հարկավոր է: Դրանից հետո կտտացրեք Ավարտել.
փաստաթուղթ միավորել 17

Այժմ հիմնական աղյուսակը թարմացվել է տվյալներով և ավելացնել նոր տվյալներ ՝ հիմնված որոնման աղյուսակի վրա:

Դեմո. Միացրեք թերթերը / աշխատանքային գրքերը մեկ թերթիկի կամ աշխատանքային գրքի մեջ

Excel- ի համար նախատեսված գործիքներ. 200 + օգտակար հարմար գործիքներ ՝ Excel- ի բարդ առաջադրանքները պարզեցնելով մի քանի կտտացման:


Ներբեռնեք նմուշի ֆայլը

նմուշ


Առաջարկվող արտադրողականության գործիքներ

Office Tab - Microsoft Office 2019 - 2003 և Office 365 փաստաթղթերի ներդիրներով զննում, խմբագրում, կառավարում փաստաթղթերի


գրասենյակային էջանիշ

Excel 2019–2007 – ի արագացման համար արհեստավարժ լրացում ՝ ժամերի առաջադրանքները կրճատելով վայրկյանների

Այս հավելումը ներառում է տասնյակ մասնագիտական ​​խմբեր, 300+ ընտրանքներով ավտոմատացնում են ձեր ամենօրյա առաջադրանքները Excel- ում և բարձրացնում ձեր արտադրողականությունը առնվազն 50% -ով: Օրինակ `մեկ կտտոցով օպտոնների խմբերի և խմբաքանակի փոխակերպումների:
Այժմ ձեր հնարավորությունն է արագացնել ձեզ Excel- ի համար նախատեսված Kutools- ը:


Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (168)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
օգտագործեց ձեր առաջին Macro գործառույթը: WOW! շնորհակալություն հրապարակման համար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարծում եմ՝ կոդըSelection.Offset(0, 0).Չափափոխել(Selection.Rows.Count - 1).Select«Պետք է այնտեղ չլինել։ Իմ վերջում, այն ինչ անում է, այն է, որ ընտրում է երկրորդ շարքը և բացակայում է առաջինը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նույն խնդիրն ունեմ։ Այն բաց է թողնում առաջին տողը ավելացված երկրորդ աշխատաթերթից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վերացնում է վերնագրերը, որպեսզի կրկնվող վերնագրեր չունենաք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատում է հմայքի պես, շնորհակալություն կիսվելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Մակրոն աշխատում էր անթերի։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես չգիտեմ, թե ինչպես օգտագործել VBN ֆունկցիան excel-ում, խնդրում եմ, կարող եք օգնել, թե ինչպես դա անել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հրաշալի է, շնորհակալություն!!! Շատ Շատ Օգտակար
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մակրո մեկը լավ է աշխատում: շնորհակալություն!! Հիանալի է!!!! :)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նկատի ունեցեք, որ սա սահմանափակվում է 65 հազար տողերի սահմանաչափով, եթե խնդիրը լուծելու համար ձեզ անհրաժեշտ է բարձրացնել գիծը: Պատճենել նպատակակետը:=Թերթերը(1).Range("A65536").End(xlUp)(2) տիրույթը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի գործիք, սակայն, այն չի համատեղում բոլոր 21 թերթերը: Ինչպե՞ս կարող եմ ընդլայնել շրջանակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՆՇՈՒՄ!!! Դուք պետք է զգույշ լինեք մակրոյի հետ... այն կաշխատի, եթե ձեր տվյալները ունենան տեղեկատվության շարունակական հոսք և առանց դատարկ տող: սա այն է, ինչ անում է «Selection.CurrentRegion.Select» տողը: Օրինակ, եթե Ձեզ անհրաժեշտ է պատճենել ԲՈԼՈՐ տվյալները աղյուսակի վրա, բայց 200-րդ տողում կա դատարկ տող, ապա մակրոն պատճենելու է միայն 200-րդ տողում; ԲՈԼՈՐ ՏՎՅԱԼՆԵՐԸ ԲՈԼՈՐ ՏՎՅԱԼՆԵՐԸ ԿԱՆՀԱՏԻ ԱՅԴ ՏԱՐԻ ՆԵՐՔՈՒՄ!!!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞ այս խնդրից խուսափելու հրամանը: Selection.Offset(1, 0) հետ կապված խնդիրը: Selection.Rows.Count - 1) խնդիրը ծագող հրամանն է: Որևէ մեկը??
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վերևից սկսելու և իջնելու փոխարեն սկսեք ներքևից և բարձրացեք վերև
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Որևէ մեկը գիտի՞ դատարկ տողերի և սյունակների խնդիրները լուծելու կոդը: Ես այն ունեմ իմ տվյալների մեջ, բայց չկա՞ պարզ լուծում, ինչպիսին է ներքևից վերև սկսելը: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դատարկ տողերը ջնջելու համար. Տարբերակ 1. A սյունակի ընտրեք բջիջները, որոնք պետք է ջնջվեն: Օգտագործեք Ctrl - և այնուհետև բացվող պատուհանում ընտրեք Ամբողջ տողը: Պահպանեք աշխատանքային գրքույկը և դուրս եկեք: Այնուհետև բացեք աշխատանքային գրքույկը: Տարբերակ 2. Ընտրեք տողեր, որոնք պետք է ջնջվեն: Օգտագործեք Ctrl -. Պահպանեք աշխատանքային գրքույկը և դուրս եկեք բաց աշխատանքային գրքույկից: Տվել է տարբերակը 1, որպեսզի տեսանելի լինի ձեզ համար, թե ինչ է կատարվում: Դատարկ սյունակները ջնջելու համար ընտրեք սյունակը: Ctrl -. Պահպանեք աշխատանքային գրքույկը և դուրս եկեք բաց աշխատանքային գրքույկից:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ունե՞նք որևէ լուծում դատարկ բջիջի տակ գտնվող տվյալները պատճենելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն ! Իմ 2-րդ շարքը դատարկ էր բոլոր թերթերում, և ես շփոթված էի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
vba կոդը հիանալի էր աշխատում, բայց ինձ անհրաժեշտ է, որ համակցված աշխատաթերթը թարմացվի, քանի որ ես նոր տողեր կամ նոր տվյալներ եմ ավելացնում աշխատանքային թերթերի բջիջներում, որոնք ես համատեղում եմ: Կա՞ դա անելու միջոց: Շնորհակալություն օգնության համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մակրո կոդը հիանալի աշխատեց առաջին համակցված աշխատաթերթի համար, բայց ինձ անհրաժեշտ է, որ համակցված աշխատաթերթը թարմացվի, քանի որ ես տվյալներ եմ ավելացնում գոյություն ունեցող աշխատաթերթերին, որոնք ես համատեղում եմ: Կա՞ դա անելու միջոց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբևէ հասկացե՞լ եք, թե ինչպես կարելի է այն թարմացնել հիմնականում, երբ տողերով ավելացնեք մյուս աշխատաթերթերին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գերազանց աշխատանք.. իմ աշխատանքը 2 ժամից կրճատվել է 10 րոպեի։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Գերազանց, ես օգտագործեցի և՛ առաջին մակրո, և՛ Kutools, երկուսն էլ ահռելիորեն նվազեցրեցին իմ տվյալների հավաքագրման և կազմման աշխատանքը: Շնորհակալություն կիսվելու համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես պարզապես ջնջեցի ստորև տրված հատվածը և այժմ այն ​​միայն թարմացվում է: Հուսով եմ, որ սա օգնում է... Sheets(1).Select Worksheets.Add
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կոդը հիանալի է աշխատում: Ինձ պետք է մակրո՝ թերթերի բոլոր տվյալները պատճենելու համար: Այն կտրում է առաջին տողը 1-ին թերթից հետո: Միայն մեկ թերթում կա վերնագրի տող, մյուս թերթերը պարզապես տվյալներ են: Սա հնարավո՞ր է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես հարց ունեմ «Միավորել բոլոր աշխատաթերթերը մեկ աշխատաթերթի մեջ VBA կոդով»: Կոդը շատ լավ է աշխատում, բայց միայն այն դեպքում, երբ այն դատարկ է, այն ավելացնում է վերնագիրը, հնարավոր է փոխել կոդը, որպեսզի ասվի, որ դատարկ թերթիկը չհամախմբվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն, դու ինձ պահեցիր մեկ ժամ copy and paste :D
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ունեն երկու աշխատանքային գրքույկ, նույն տվյալները, բայց երկրորդն ունի լրացուցիչ տվյալներ, և որոշ տվյալներ թարմացվել են, inv# Կարգավիճակ 123 7/2 բաց inv# կարգավիճակ 123 7/2 բաց 7/7 փակ, ինչպես միավորվել մեկում՝ հեռացնելով կամ ընդգծելով կրկնօրինակները և ավելացնելով ցանկացած նոր inv# ոչ առաջինում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հիանալի է աշխատում, եթե ձեր A սյունակը դատարկ չէ: Ա սյունակով դատարկ թերթիկների վրա այն կարծես վերագրված է: Իմ dtaa սյունակում E-ն ոչ դատարկ է բոլոր թերթերի վրա: Ինչպե՞ս կարող եմ փոփոխել Copy Destination-ը, որպեսզի որոշ թերթերի վրա հաշվառվի դատարկ A սյունակը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2-ից 25 Sheets ("Sheet1"). Ընտրել Range("A1"). Ընտրել Selection.End(xlDown). Ընտրել Range("A" & CStr(Selection.Row) + 1).Select Sheets("Seet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection): .End(xlToRight)).Select Selection.Cut Sheets("Sheet1").Select ActiveSheet.Paste Next End Sub Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Range("A:A").SpecialCells(xlCellTypeLastCell). Ընտրեք ActiveCell.Offset(1, 0): Ընտրեք «օգտագործեք այս կոդը «Ա» սյունակի վերջին բջիջն ընտրելու համար [մեջբերում] Sub CopySheet() ' 'CopySheet Macro' Dim i որպես ամբողջ թիվ i = 2-ից մինչև 25 թերթ ("Teet1"): Ընտրեք Range("A1"): Ընտրեք Selection.End(xlDown): Ընտրեք Range("A" & CStr(Selection.Row) + 1) Ընտրեք Թերթիկներ («Թերթ» և CStr(i)). Ընտրեք միջակայք («A2»). Ընտրեք միջակայք (Ընտրություն, Ընտրություն. Վերջ (xlDown)). Ընտրեք միջակայք (Ընտրություն, Ընտրություն. Վերջ (xlToRight)): Ընտրեք Ընտրություն .Cut Sheets("Sheet1").Ընտրեք ActiveSheet.Տեղադրեք Հաջորդ վերջը ենթակետըԿլոպեսի կողմից[/ Quote]
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՄԱԿՐՈ ԿՈԴԸ ԱՅՆՔԱՆ ԼԱՎ ԱՇԽԱՏՈՒՄ ԷՐ... ՖԱԲ ԱՇԽԱՏԱՆՔ :-)
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից