Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում մի քանի բջիջներից ցուցակ ստեղծել մի քանի բջիջներից:

Ենթադրենք, որ մենք վաճառքի յուրաքանչյուր ամսվա աղյուսակը տեղադրում ենք առանձնացված աշխատանքային թերթում, ինչպես ցույց է տրված ներքևում նշված էկրանի նկարը, և բոլոր վաճառքի սեղաններն ունեն նույն դասավորությունը: Այժմ մենք ուզում ենք ստեղծել ցուցակ բոլոր գումարային արժեքներից (Բջջային E6) բազմաթիվ աշխատանքային թերթերի միջև: Ինչպե՞ս անել: Իսկ ի՞նչ կլինի, եթե յուրաքանչյուր աշխատանքային թերթի գումարային արժեքներից ստեղծեք դինամիկ ցուցակ: Քեզ համար կա երկու եղանակ.

doc ստեղծել ցուցակ բազմաթիվ թերթեր 1

Ստեղծեք ցուցակ նույն բջիջներից VBA- ի բազմաթիվ թերթերի միջև

Excel- ի համար Kutools- ի միջոցով միևնույն բջիջներից ստեղծեք դինամիկ ցուցակ բազմաթիվ թերթերում

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

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

գովազդային թերթերի գրքեր 1


Հետևյալ VBA կոդով դուք կարող եք հեշտությամբ ցուցակ ստեղծել նշված բջիջներից: Կարող եք անել հետևյալը.

Քայլ 1. Ընտրեք նշված բջիջը, որից դուք կստեղծեք ձեր ցուցակը: Մեր դեպքում մենք ընտրում ենք Cell E6- ը:

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

VBA. Միևնույն բջիջներից ցուցակ ստեղծեք բազմաթիվ թերթերի միջև

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Քայլ 3: Մամուլ F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:

Դրանից հետո բոլոր աշխատանքային թերթերի նշված բջիջից բոլոր արժեքները պատճենվում են KutoolsforExcel անունով նոր աշխատանքային թերթ: Տեսեք էկրանի նկարը

doc ստեղծել ցուցակ բազմաթիվ թերթեր 2

Այս VBA- ն լրացնելու է ցուցակը նոր աշխատանքային թերթի, և ցուցակի արժեքները ստատիկ են, որոնք չեն փոխվելու սկզբնական արժեքների հետ:

Այնուամենայնիվ, երբեմն գուցե ցանկանաք լրացնել ցուցակը նշված տիրույթում և պահանջել, որ ցուցակի արժեքները միշտ համապատասխանեն նշված բջիջների բնօրինակ արժեքներին: Այս կարիքները բավարարելու համար պետք է փորձեք հետևյալ մեթոդը:


Այս մեթոդը կներկայացնի Excel- ի համար նախատեսված գործիքներ'S Դինամիկորեն դիմեք աշխատանքային թերթերին կոմունալ ՝ միևնույն բջիջներից դինամիկ ցուցակ ստեղծելու համար ՝ բազմաթիվ աշխատանքային թերթերի միջև:

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

Քայլ 1. Ընտրեք այն տիրույթը, որտեղ դուք կլրացնեք դինամիկ ցուցակը և կտտացրեք այն Կուտոլս > ավելի շատ > Դինամիկորեն դիմեք աշխատանքային թերթերին.

փաստաթուղթը դինամիկորեն վերաբերում է 1-ին թերթերին

Քայլ 2. Բացելով լրացրեք աշխատաթերթերը հղումներ երկխոսության պատուհանում,

doc ստեղծել ցուցակ բազմաթիվ թերթեր 5

(1) Կտտացրեք այն կոճակին Լրացրեք պատվերը տուփը, և բացվող ցուցակից ընտրեք լրացման տեսակը: Մեր դեպքում մենք ընտրում ենք Լրացրեք ուղղահայաց բջիջը բջիջից հետո;

(2) Իսկ Լրացրեք բանաձեւը տուփը, նշեք այն բջջային հասցեն, որից դուք կստեղծեք դինամիկ ցուցակ, ապա կտտացրեք այն Կողպեք կոճակ  բանաձևը կողպելու համար:

(3) Կտտացրեք այն կոճակին Լրացնել միջակայքը կոճակը:

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

Երբ բնօրինակ արժեքները փոխվում են, այս նշված ցուցակում համապատասխան արժեքները ավտոմատ կերպով փոխվում են:

Excel- ի համար նախատեսված գործիքներ - Supercharge Excel-ը ավելի քան 300 հիմնական գործիքներով: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Get It Now


Excel- ի համար նախատեսված գործիքներ300-ից ավելի հարմար գործիքներ ձեր մատների տակ: Այսօր սկսեք ձեր 30-օրյա անվճար փորձաշրջանը՝ առանց գործառույթների սահմանափակումների: Download Now!

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very helpful bit of coding, saved hours of work creating a table from lots of separate data worksheets
This comment was minimized by the moderator on the site
Thank you very much for this. Just saved me hours of work as I had to go through 200 sheets doing data input... One thing to note for people is to click the cell you want it to use prior to opening ip and running the macro. Scratched my head for a couple minutes as the worksheet was opening up but didn't know why the information wasn't showing
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations