Հետևյալ 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 անունով նոր աշխատանքային թերթ: Տեսեք էկրանի նկարը

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

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

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

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

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

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

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

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

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

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

Excel- ում ինչպե՞ս ինքնաբերաբար լրացնել նույն բջիջը տարբեր թերթերից թերթ: