Եթե որոշ ժամանակ աշխատում եք Microsoft Excel-ի հետ, ապա գիտեք, թե որքան կարևոր է ավտոմատ լրացումը: Տողում կամ սյունակում բանաձևը պատճենելու համար մենք օգտագործում ենք այս մեթոդը: Այժմ մենք կարող ենք ձեռքով օգտագործել այն մկնիկի միջոցով: Բայց, եթե դուք ունեք տվյալների մեծ տող, դժվար կլինի պատճենել որևէ բանաձև վերջին տողում կամ սյունակում: Դուք կարող եք հեշտությամբ օգտագործել VBA կոդը՝ բանաձևը վերջին տողում կամ սյունակում ավտոմատ լրացնելու համար:

Այս ձեռնարկում դուք կսովորեք ինքնալրացնել բանաձևը մինչև վերջին տողը Excel-ում՝ օգտագործելով VBA կոդերը: Այս ձեռնարկը տեղի կունենա համապատասխան օրինակներով և պատշաճ նկարազարդումներով: Այսպիսով, մնացեք մեզ հետ:

Ներբեռնեք Practice Workbook

Autofill Formula to Last Row.xlsm

Ինչ է ավտոմատ լրացումը Excel?

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

Նայեք հետևյալ սքրինշոթին.

Այստեղ կարող եք տեսնել երկու թվեր: Մնացած տողերը կլցնենք Excel-ի ավտոմատ լրացման միջոցով:

Սկզբում ընտրեք B5:B6 բջիջների տիրույթը: Դրանից հետո դուք կտեսնեք ավտոմատ լրացման բռնիչը ներքևի աջ անկյունում:

Այժմ քաշեք այս ինքնալրացման բռնիչը ներքև:

Ինչպես տեսնում եք, Excel-ն ավտոմատ կերպով լրացրեցմնացած բջիջները. Սա Excel-ում ավտոմատ լրացման հիմնական կիրառությունն է:

Ինչպես օգտագործել ինքնալրացում Excel VBA-ով

Եթե ունեք մեծ թվով տողեր կամ սյունակներ տվյալ տիրույթում, դուք պետք է քաշեք ներքև: ինքնալրացման բռնիչը մինչև վերջին տող կամ սյունակ: Դա շատ բուռն գործընթաց է։ Բարեբախտաբար, դուք կարող եք նվազագույնի հասցնել այն Excel-ում VBA կոդերի միջոցով: Դուք կարող եք օգտագործել VBA կոդը՝ բջիջները արժեքներով, բանաձևերով կամ ձևաչափերով ավտոմատ լրացնելու համար:

Ընդհանուր շարահյուսություն.

Տեսական .Ավտոլրացման նպատակակետ, մուտքագրեք

Այստեղ,

Տարածք («B5»): Բջիջը, որն ունի հիմնական նախշը, որպեսզի լրացնի շարքի մնացած մասը:

Նպատակակետը. Բջիջների շրջանակը, որտեղ ցանկանում եք լրացնել նախշերի շարքը:

Մուտքագրեք որպես xlAutoFillType. Շարքի լրացման տեսակը: Կան ինքնալրացման տարբեր տեսակներ, որոնք դուք կարող եք ընտրել:

Կարդալ ավելին. Ինչպես օգտագործել VBA Autofill-ը Excel-ում

4 տեսակ ինքնալրացում Excel-ում VBA

Այս բաժնում ես կքննարկեմ ավտոմատ լրացման որոշ տեսակներ: Մենք արդեն տեսանք, որ կարող ենք ընտրել ցանկացած ինքնալրացման տեսակ՝ օգտագործելով xlAutoFillType: Ահա ես ձեզ ցույց եմ տալիս դրա մի քանի օրինակ:

1. xlFillDefault

Մենք արդեն տեսել ենք այս տեսակի ինքնալրացում նախորդ օրինակում:

Նայեք սքրինշոթին.

Մնացած բջիջները ինքնալրացնելու համար մուտքագրեք հետևյալ VBA կոդը.

2914

Այժմ գործարկեք VBA մակրո և դրանից հետո կտեսնեքհետևյալը՝

Այն ավտոմատ կերպով լրացնում է մնացած բջիջները՝ օգտագործելով VBA մակրո:

2. xlFillCopy

Նույն արժեքները պատճենելու համար կարող եք օգտագործել xlFillCopy տեսակը ավտոմատ լրացման տեսակի մեջ:

Նայեք սքրինշոթին.

Մուտքագրեք հետևյալ VBA կոդը՝ մնացած բջիջները ինքնալրացնելու համար.

2437

Այժմ գործարկեք VBA մակրոն և դրանից հետո կտեսնեք հետևյալը.

Excel-ը լրացնում է մնացած բջիջները արժեքների նույն օրինակով:

3. xlFillMonths

Դուք կարող եք նաև ամիսներ լրացնել՝ օգտագործելով xlFillMonths ավտոմատ լրացման տեսակը:

Նայեք սքրինշոթին՝

Այստեղ մենք մուտքագրել ենք հունվար և փետրվար ամիսների երկու ամիս:

Մտածեք հետևյալ VBA կոդը՝ մնացած բջիջները ավտոմատ լրացնելու համար.

7562

Այժմ գործարկեք VBA մակրո և դրանից հետո: որ, դուք կտեսնեք հետևյալը.

Excel-ը ավտոմատ կերպով հասկանում է օրինաչափությունները և լրացնում դրանք:

4. xlFillFormats

Դուք կարող եք նաև պատճենել ձևաչափերը այլ բջիջներում՝ օգտագործելով VBA ավտոմատ լրացումը: Դրա համար դուք պետք է օգտագործեք xlFillFormats ավտոմատ լրացման տեսակը:

Նայեք սքրինշոթին.

Ահա, մենք ունենք երկու բջիջները լցրեց որոշ գույներով:

Այժմ մուտքագրեք հետևյալ VBA կոդը՝ մնացած բջիջները ավտոմատ լրացնելու համար.

4678

Այժմ գործարկեք VBA մակրոն և դրանից հետո կտեսնեք հետևյալը՝

Ինչպես տեսնում եք, մեր VBA մակրոն օգտագործում է ավտոմատ լրացումը՝արդյունավետորեն լրացրեք B սյունակի տողերը:

Կարդալ ավելին. Ինչպես ինքնալրացնել ամիսները Excel-ում

5 օրինակներ ավտոմատ լրացման բանաձևով մինչև վերջին տողը Excel VBA

1. VBA-ն ավտոմատ լրացնել բանաձևը մինչև վերջին օգտագործված տողը

Նմանապես, դուք կարող եք ավտոմատ լրացնել բանաձևը` օգտագործելով VBA-ն: եթե կարդացել եք նախորդ բաժինները, կարող եք հեշտությամբ կատարել դա: Խնդիրն առաջանում է, երբ դուք պետք է ավտոմատ լրացնեք բանաձևը մինչև վերջին տող: Նախ պետք է բացահայտեք վերջին օգտագործված շարքը: Դրանից հետո VBA կոդը ավտոմատ կերպով կլրացնի դրանք:

Նայեք հետևյալ տվյալների շտեմարանին.

Այստեղ մենք ունենք որոշ վաճառողների վաճառքի տվյալների հավաքածու . Մեր նպատակն է «Ընդամենը» սյունակում ավելացնել հունվար և փետրվար ամիսների վաճառքները: Դրանից հետո մենք կօգտագործենք ավտոմատ լրացման մեթոդը, օգտագործելով VBA-ն մինչև Excel-ի վերջին օգտագործված տողը:

Սա կատարելու համար մուտքագրեք հետևյալ կոդը.

8438

last_row = Cells(Rows.Count, 2).End(xlUp): Row. Վերադարձնում է վերջին օգտագործված տողը B սյունակից: Դուք կարող եք ընտրել ցանկացած սյունակ ձեր տվյալների բազայից:

Շրջանակ («E5»): Բանաձև = «=SUM(C5:D5)»: Մենք ավելացնում ենք Cell C5 և D5-ի վաճառքները:

Range(“E5”).AutoFill Destination:=Range(“E5:E” & last_row): Արդյունքը ստանալուց հետո մենք օգտագործում ենք ավտոմատ լրացումը: Այն սկսում է ավտոմատ լրացնել Cell E5 -ից մինչև վերջին օգտագործված տողը, որը մենք ստացել ենք նախկինում:

Այժմ գործարկեք VBA մակրո: Դրանից հետո կտեսնեք հետևյալ արդյունքը՝

Ինչպեսդուք կարող եք տեսնել, որ մեր VBA կոդը ավելացնում է առաջին արդյունքը և ինքնալրացնում է բանաձևը Excel-ի վերջին տողում:

Կարդալ ավելին. Ինչպես լրացնել մինչև վերջին տողը տվյալների հետ: Excel

2. VBA ավտոմատ լրացում ActiveCell-ից մինչև վերջին տող

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

Դա նման է նախորդ օրինակին: Մենք օգտագործում ենք նախորդ տվյալների բազան.

Այժմ մենք կավելացնենք հունվար և փետրվար ամիսների վաճառքները և ինքնալրացնենք բանաձևը վերջին տողում՝ օգտագործելով Excel VBA:

Այժմ մուտքագրեք հետևյալ կոդը.

6709

last_row = Cells(Rows.Count, 2).End(xlUp).Row. Այն վերադարձնում է վերջին օգտագործվածը տող B սյունակից: Դուք կարող եք ընտրել ցանկացած սյունակ ձեր տվյալների բազայից:

ActiveCell.Formula = “=SUM(C5:D5)”: Մենք ավելացնում ենք Cell-ի վաճառքը C5 և D5 ձեր ընտրած բջիջում:

ActiveCell.AutoFill Նպատակակետը՝=Range(ActiveCell.Address & “:E” & վերջին_տող): Արդյունքը ստանալուց հետո մենք օգտագործում ենք ավտոմատ լրացումը: Այն սկսում է ավտոմատ լրացնել ակտիվ բջիջից մինչև վերջին օգտագործված տողը, որը մենք ստացել ենք նախկինում:

Այժմ ընտրեք Cell E5 :

Դրանից հետո գործարկեք VBA մակրոն՝ բանաձևը ավելացնելու և վերջին տողում ինքնալրացնելու համար:

Ինչպես տեսնում եք, մենքհաջողությամբ օգտագործեց VBA մակրո՝ բանաձևը մինչև վերջին տող ավտոմատ լրացնելու համար:

Նման ընթերցումներ

• Ինչպես կրկնել տողերը որոշակի քանակությամբ անգամներ Excel (4 եղանակ)
• Ավտոմատ կերպով թվարկել տողերը Excel-ում (8 մեթոդ)
• Ինչպես լրացնել սյունակը Excel-ում նույն արժեքով (9 հնարքներ )
• Կիրառել ինքնալրացման դյուրանցումը Excel-ում (7 մեթոդ)

3. Ինքնալրացում մինչև վերջին տողը, օգտագործելով դինամիկ միջակայքը Excel VBA-ով

Նախկինում մենք ձեզ ցույց տվեցինք մի քանի VBA մակրոներ Excel-ում մինչև վերջին տող ինքնալրացնելու համար: Այժմ, այդ օրինակներում, մենք արդեն օգտագործել ենք դինամիկ միջակայքերը:

Ստատիկ միջակայքերը հասկանալու համար դիտեք հետևյալ կոդը.

2089

Մենք հիմնականում Excel-ին ասել ենք, որ բանաձևը մուտքագրի -ում: Բջջ E5 և ինքնալրացում այն ​​ E5 բջիջից մինչև Բջջ E11 : Այստեղ մենք նշել ենք միջակայքը: Իսկ եթե ավելացնեք ավելի շատ տողեր: Այդ դեպքում, մեր VBA-ն ավտոմատ կերպով չի լրացնի այդ լրացուցիչ տողերը, քանի որ մենք արդեն ասել ենք, որ այն ավտոմատ լրացնի որոշակի տիրույթ:

Այս խնդիրը լուծելու համար ես առաջարկեցի լուծում, որը կարող է վերցնել դինամիկ տիրույթ.

3604

Ինչպես տեսնում եք, մենք նախ գտնում ենք վերջին տողը այս կոդով.

9360

Դրանից հետո մենք ավտոմատ լրացնում ենք մինչև վերջին տողը` օգտագործելով դինամիկ միջակայքը.

5713

Ոչ Անկախ նրանից, թե քանի տող եք ավելացնում ձեր տվյալների հավաքածուին, այս VBA կոդը հաջողությամբ կբացահայտի դրանք: Եվ դա ավտոմատ կերպով կլրացնի դրանք բանաձևով:

Դինամիկ տիրույթը հիմնականում նշանակում է, որ դուք պետք չէ մուտք գործել տիրույթձեռքով։ Excel-ը ժամանակ առ ժամանակ կթարմացնի այն:

Կարդալ ավելին. Excel VBA. Range Class-ի ինքնալրացման մեթոդը ձախողվել է

4. Autofill to Last Սյունակ Excel-ում VBA-ի միջոցով

Եթե կարդացել եք նախորդ բաժինները՝ ինքնալրացնելու համար մինչև վերջին տողը, ապա կարող եք հեշտությամբ լրացնել վերջին սյունակը: Դուք պարզապես պետք է գտնեք վերջին սյունակի համարը և այն ավտոմատ կերպով լրացնեք Excel VBA-ով:

Նայեք հետևյալ տվյալների հավաքածուին.

Այստեղ մենք ունենք տվյալների բազա, որը ներկայացնում է անձի 3 ամսվա բյուջեն: Այժմ մենք կավելացնենք բոլոր ամիսների ծախսերը և ինքնալրացնենք բանաձևը վերջին սյունակում՝ օգտագործելով Excel VBA:

Այժմ մուտքագրեք հետևյալ կոդը՝

7819

last_column = Cells(6, Columns.Count).End(xlToLeft).Սյունակ. Այն վերադարձնում է վերջին օգտագործված սյունակը 6-րդ տողից: Դուք կարող եք ընտրել ցանկացած տող՝ սկսելու ձեր տվյալների բազայից:

Շրջանակ («D9»): Բանաձև = «=SUM(D6:D8)»: Մենք ավելացնում ենք երեք ամսվա ծախսերը (հունվար, փետրվար. մարտ):

Range(“D9”).AutoFill Destination:=Range(“D9”, Cells(9, last_column)): Արդյունքը ստանալուց հետո մենք օգտագործում ենք ավտոմատ լրացումը: Այստեղ մեր հիմնական տողը 9-րդ տողն է: Մեր բոլոր տվյալները կլինեն այս շարքում: Այն սկսում է ավտոմատ լրացնել D սյունակից մինչև վերջին օգտագործված սյունակը, որը մենք ստացել ենք նախկինում վերջին_սյունակ -ով:

Մակրոն գործարկելուց հետո կտեսնեք հետևյալ արդյունքը: :

Ինչպես տեսնում եք, մենք հաջողությամբ օգտագործեցինք VBA-ն ավտոմատ լրացման համարբանաձև մինչև Excel-ի վերջին սյունակը:

Կարդալ ավելին. Ինչպես ինքնալրացնել սյունակը Excel-ում

5. Ինքնալրացնել հաջորդական թվերը մինչև վերջին տողը Excel-ում VBA-ի միջոցով

Դուք կարող եք նաև ավտոմատ լրացնել հաջորդական թվերը՝ օգտագործելով VBA-ի ավտոմատ լրացումը: Այստեղ դուք պետք է օգտագործեք xlFillSeries ավտոմատ լրացման տեսակի մեջ: Excel-ը կհասկանա օրինաչափությունը և կլցնի դրանք դրանով:

Նայեք հետևյալ սքրինշոթին.

Ահա, մենք ունենք որոշ անուններ: Եվ մենք ուզում ենք նրանց անձը հաստատող փաստաթուղթ տալ հաջորդական կարգով: Դա անելու համար մենք կօգտագործենք VBA-ի ավտոմատ լրացումը:

Ստատիկ տիրույթով հաջորդական թվերի ավտոմատ լրացում.

9142

Կոդը գործարկելուց հետո կտեսնեք արդյունքը՝

Եթե ցանկանում եք օգտագործել դինամիկ տիրույթը, ապա օգտագործեք հետևյալ կոդը՝

6389

last_row = Cells(Rows. Count, 2).End(xlUp).Տող՝ Վերադարձնում է B սյունակից վերջին օգտագործված տողը:

Range(“C5”).AutoFill Destination:=Range(“C5” :C" & last_row), Type:=xlFillSeries: Այն կվերցնի C5C5 բջիջի ID-ն և կլրացնի C սյունակի վերջին օգտագործված տողը` օգտագործելով <6:>xlFillSeries ,

Երկու դեպքում էլ դուք կստանաք նույն արդյունքը.

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

Կարդալ ավելին. Excel-ի բանաձևեր` հաջորդականության համարները լրացնելու համար, բաց թողնել թաքնված տողերը

💬 Հիշելու բան

✎ Դուք կարող եք դադարեցնել ավտոմատ լրացումը Տարբեր եղանակներ, եթե դուք դա չեք ցանկանում :

✎ Դուք չեք կարող միաժամանակ մի քանի տողեր և սյունակներ ավտոմատ լրացնել: Դա արեք մեկ առ մեկ:

Եզրակացություն

Եզրակացության համար, հուսով եմ, որ այս ձեռնարկը ձեզ մի կտոր օգտակար գիտելիքներ է տվել՝ բանաձևը մինչև վերջին տող ավտոմատ լրացնելու համար՝ օգտագործելով VBA կոդերը: Մենք խորհուրդ ենք տալիս սովորել և կիրառել այս բոլոր հրահանգները ձեր տվյալների բազայում: Ներբեռնեք գործնական աշխատանքային գրքույկը և փորձեք դրանք ինքներդ: Նաև ազատ զգալ կարծիք հայտնել մեկնաբանությունների բաժնում: Ձեր արժեքավոր կարծիքը մեզ մոտիվացնում է ստեղծելու նման ձեռնարկներ:

Մի մոռացեք ստուգել մեր կայքը Exceldemy.com Excel-ի հետ կապված տարբեր խնդիրների և լուծումների համար:

Շարունակեք սովորել նոր մեթոդներ և շարունակեք աճել: