Содржина
Ако работите со Microsoft Excel некое време, ја знаете важноста на Автоматско пополнување. За да копираме формула низ редот или колоната, го користиме овој метод. Сега, можеме да го користиме ова рачно со помош на глувчето. Но, ако имате голем ред со податоци, ќе биде тешко да се копира која било формула во последниот ред или колона. Можете лесно да го користите VBA-кодот за автоматско пополнување формула до последниот ред или колона.
Во ова упатство, ќе научите како автоматско пополнување формула до последниот ред во Excel со помош на VBA кодови. Овој туторијал ќе биде на место со соодветни примери и соодветни илустрации. Затоа, останете со нас.
Преземете ја работната книга за вежбање
Формула за автоматско пополнување до последниот ред.xlsm
Што е автоматско пополнување Excel?
Сега, автоматското пополнување е вградена карактеристика на Microsoft Excel која им овозможува на корисниците автоматски да ги пополнат останатите редови или колони со вредности, формати или формули. Можете да го идентификувате кога ќе го однесете курсорот до десниот долен агол на која било ќелија. Ние го нарекуваме управувач за автоматско пополнување на Excel.
Погледнете ја следната слика од екранот:
Тука, можете да видите два броја. Ќе ги пополниме останатите редови користејќи автоматско пополнување во Excel.
Прво, изберете го опсегот на ќелиите B5:B6. После тоа, ќе ја видите рачката за автоматско пополнување во долниот десен агол.
Сега, повлечете ја оваа рачка за автоматско пополнување надолу.
Како што можете да видите, Excel автоматски го пополниостатокот од клетките. Ова е основната употреба на автоматското пополнување во Excel.
Како да користите автоматско пополнување со Excel VBA
Ако имате голем број редови или колони во даден опсег, треба да го повлечете надолу рачката за автоматско пополнување до последниот ред или колона. Тоа е многу бурен процес. За среќа, можете да го минимизирате користејќи ги VBA кодовите во Excel. Може да го користите кодот VBA за автоматско пополнување на ќелиите со вредности, формули или формати.
Генеричка синтакса:
Опсег .Дестина за автоматско пополнување, напишете
Тука,
Опсег („B5“): Ќелијата што ја има главната шема за да го пополни остатокот од серијата.
Дестинација: Опсег на ќелии каде што сакате да ги пополните со серијата шаблони.
Впишете како xlAutoFillType: Типот на пополнување на серијата. Постојат различни типови автоматско пополнување што можете да ги изберете.
Прочитајте повеќе: Како да користите VBA автоматско пополнување во Excel
4 типови на автоматско пополнување во Excel VBA
Во овој дел, ќе разговарам за некои од видовите на автоматско пополнување. Веќе видовме дека можеме да избереме кој било тип на автоматско пополнување користејќи го xlAutoFillType. Еве, ви прикажувам неколку примери за тоа.
1. xlFillDefault
Веќе видовме ваков тип автоматско пополнување во претходниот пример.
Погледнете ја сликата од екранот:
Внесете го следниов VBA код за автоматско пополнување на останатите ќелии:
3665
Сега, стартувајте го VBA макрото и после тоа, ќе го видитеследново:
Автоматски ги пополнува останатите ќелии користејќи VBA макро.
2. xlFillCopy
За да ги копирате истите вредности, можете да го користите типот xlFillCopy во типот автоматско пополнување.
Погледнете ја сликата од екранот:
Внесете го следниов VBA код за автоматско пополнување на останатите ќелии:
5847
Сега, стартувајте го VBA макрото и после тоа, ќе го видите следново:
Excel ги пополнува останатите ќелии со истата шема на вредности.
3. xlFillMonths
Можете и да пополните месеци користејќи го типот автоматско пополнување xlFillMonths .
Погледнете ја сликата од екранот:
Овде, внесовме два месеци јануари и февруари.
Внесете го следниов VBA код за автоматско пополнување на останатите ќелии:
7883
Сега, стартувајте го VBA макрото и потоа дека, ќе го видите следново:
Excel автоматски ги разбира шаблоните и ги пополнува со нив.
4. xlFillFormats
Можете и да копирате формати во други ќелии користејќи автоматско пополнување VBA. За тоа, треба да го користите типот автоматско пополнување xlFillFormats .
Погледнете ја сликата од екранот:
Еве, имаме ги исполни двете ќелии со некои бои.
Сега, напишете го следниов VBA код за автоматско пополнување на останатите ќелии:
1510
Сега, стартувајте го VBA макрото и после тоа, ќе го видите следново:
Како што можете да видите, нашето VBA макро користи автоматско пополнување за даефективно пополнете ги редовите од колоната B.
Прочитајте повеќе: Како автоматско пополнување месеци во Excel
5 примери со формулата за автоматско пополнување до последниот ред во Excel VBA
1. VBA за автоматско пополнување на формула до последен искористен ред
Слично, можете автоматски да пополните формула користејќи VBA. ако сте ги прочитале претходните делови, можете лесно да го направите ова. Проблемот се јавува кога треба автоматски да ја пополните формулата до последниот ред. Прво треба да го идентификувате последниот користен ред. После тоа, кодот VBA автоматски ќе ги пополни.
Погледнете ја следнава база на податоци:
Овде, имаме продажен сет на некои продавачи . Нашата цел е да ги додадеме продажбите од јануари и февруари во колоната Вкупно. После тоа, ќе го користиме методот за автоматско пополнување користејќи го VBA до последниот користен ред во Excel.
За да го извршите ова, напишете го следниов код:
3249
last_row = Cells(Rows.Count, 2).End(xlUp).Ред: Го враќа последниот користен ред од колоната B. Можете да изберете која било колона од вашата база на податоци.
Опсег („E5“). Формула = „=SUM(C5:D5)“: Ги додаваме продажбите на Cell C5 и D5.
Опсег („E5“). Автоматско пополнување Дестинација:=Опсег („E5:E“ и последен_ред): По добивањето на резултатот, го користиме автоматското пополнување. Започнува автоматско пополнување од Cell E5 до последниот користен ред што го добивме претходно.
Сега, стартувајте го VBA макрото. После тоа, ќе го видите следниот излез:
Какоможете да видите, нашиот VBA код го додава првиот резултат и автоматски ја пополнува формулата до последниот ред во Excel.
Прочитајте повеќе: Како да го пополните последниот ред со податоци во Excel
2. VBA автоматско пополнување од ActiveCell до последниот ред
Сега, ако не сакате да го користите конкретниот опсег во методот за автоматско пополнување, можете да ги користите вредностите на активната ќелија , формули или формати. Кога ќе кликнете на ќелија и сакате автоматски да ги пополните останатите редови со формулата на активната ќелија, користете го овој метод.
Тоа е слично на претходниот пример. Ја користиме претходната база на податоци:
Сега, ќе ги додадеме продажбите од јануари и февруари и автоматски ќе ја пополниме формулата во последниот ред користејќи Excel VBA.
Сега, напишете го следниов код:
1834
last_row = Cells(Rows.Count, 2).End(xlUp).Ред: Го враќа последното искористено ред од колоната B. Можете да изберете која било колона од вашата база на податоци.
ActiveCell.Formula = “=SUM(C5:D5)”: Ја додаваме продажбата на Cell C5 и D5 во вашата избрана ќелија.
ActiveCell.AutoFill Дестинација:=Range(ActiveCell.Address & „:E“ и последен_ред): По добивањето на резултатот, го користиме автоматското пополнување. Почнува автоматско пополнување од активната ќелија до последниот користен ред што го добивме претходно.
Сега, изберете Ќелија E5 .
Потоа, стартувајте го VBA макрото за да ја додадете формулата и автоматско пополнување на последниот ред.
Како што можете да видите, ниеуспешно го искористи макрото VBA за автоматско пополнување на формулата до последниот ред.
Слични читања
- Како да се повторуваат редовите одреден број пати во Excel (4 начини)
- Автоматски брои редови во Excel (8 методи)
- Како да пополните колона во Excel со иста вредност (9 трикови )
- Примени кратенка за автоматско пополнување во Excel (7 методи)
3. Автоматско пополнување до последниот ред користејќи динамички опсег со Excel VBA
Претходно ви покажавме неколку VBA макроа за автоматско пополнување до последниот ред во Excel. Сега, во тие примери, веќе користевме динамички опсези.
За да ги разберете статичките опсези, погледнете го следниов код:
3156
Во основа му кажавме на Excel да внесе формула во Ќелија E5 и автоматски пополнете ја од Ќелија E5 до Ќелија E11 . Овде го одредивме опсегот. Што ако додадете повеќе редови? Во тој случај, нашата VBA нема автоматски да ги пополни тие дополнителни редови бидејќи веќе му рековме автоматски да пополни одреден опсег.
За да го решам овој проблем, дојдов до решение кое може да зафаќа динамичен опсег:
8292
Како што можете да видите, прво го наоѓаме последниот ред според оваа линија код:
8334
Потоа, автоматски го пополнуваме до последниот ред користејќи го динамичкиот опсег:
1943
Не без разлика колку редови ќе додадете во вашата база на податоци, овој VBA код ќе успее да ги идентификува. И автоматски ќе ги пополни со формулата.
Динамичниот опсег во основа значи дека не треба да го внесувате опсеготрачно. Excel ќе го ажурира од време на време.
Прочитајте повеќе: Excel VBA: Методот за автоматско пополнување на класата опсег не успеа
4. Автоматско пополнување до последно Колона во Excel со користење на VBA
Ако сте ги прочитале претходните делови за автоматско пополнување до последниот ред, тогаш можете лесно да ја пополните последната колона. Треба само да го пронајдете бројот на последната колона и автоматски да го пополните со Excel VBA.
Погледнете ја следната база на податоци:
Тука, имаме база на податоци што претставува 3-месечен буџет на едно лице. Сега, ќе ги додадеме трошоците за сите месеци и автоматски ќе ја пополниме формулата во последната колона со помош на Excel VBA.
Сега, напишете го следниов код:
8393
last_column = Cells(6, Columns.Count).End(xlToLeft).Колона: Ја враќа последната користена колона од редот 6. Можете да изберете кој било ред да започне од вашата база на податоци.
Опсег („D9“). Формула = „=SUM(D6:D8)“: Ги додаваме трошоците од три месеци (јан, февруари. март).
Опсег („D9“). Автоматско пополнување Дестинација:=Опсег („D9“, Cells(9, last_column)): По добивањето на резултатот, го користиме автоматското пополнување. Овде, нашиот главен ред е Редот број 9. Сите наши податоци ќе бидат во овој ред. Почнува автоматско пополнување од колоната D до последната користена колона што ја добивме претходно со последна_колона .
По извршувањето на макрото, ќе го видите следниот излез :
Како што можете да видите, успешно ја искористивме VBA за автоматско пополнување наформула до последната колона во Excel.
Прочитајте повеќе: Како автоматско пополнување на колона во Excel
5. Автоматско пополнување на секвенцијални броеви до последниот ред во Excel со користење на VBA
Можете и автоматско пополнување на секвенцијални броеви користејќи автоматско пополнување во VBA. Овде, треба да користите xlFillSeries во типот на автоматско пополнување. Excel ќе ја разбере шемата и ќе ја пополни со неа.
Погледнете ја следнава слика од екранот:
Еве, имаме неколку имиња. И ние сакаме да им дадеме лична карта на секвенцијален начин. За да го направиме ова, ќе користиме автоматско пополнување VBA.
Автоматско пополнување секвенцијални броеви со статичен опсег:
9331
По извршувањето на кодот, ќе го видите излезот:
Ако сакате да го користите динамичкиот опсег, тогаш користете го следниов код:
8712
last_row = Cells(Редови. Брои, 2). Крај (xlUp). Ред: Го враќа последниот користен ред од колоната B.
Ранг („C5“). Автоматско пополнување Дестинација:=Опсег („C5 :C“ и последен_ред), Тип:=xlFillSeries: Ќе го земе ID на Cell C5 и автоматски ќе се пополни до последниот користен ред во колоната C користејќи го xlFillSeries ,
Во двата случаи, ќе го добиете истиот излез:
Како што можете да видите, успешно го користевме кодот VBA за да автоматско пополнување секвенцијални броеви во Excel.
Прочитајте повеќе: Формули на Excel за пополнување на низа броеви за прескокнување на скриените редови
💬 Работи што треба да се запаметат
✎ Можете да го запрете автоматското пополнување Различни начини ако не го сакате .
✎ Не можете автоматски да пополните повеќе редови и колони истовремено. Направете го тоа еден по еден.
Заклучок
Како да заклучиме, се надевам дека ова упатство ви обезбеди дел од корисното знаење за автоматско пополнување на формулата до последниот ред користејќи ги VBA кодовите. Ви препорачуваме да ги научите и да ги примените сите овие упатства во вашата база на податоци. Преземете ја работната книга за вежбање и пробајте ги сами. Исто така, слободно дајте повратни информации во делот за коментари. Вашите вредни повратни информации не одржуваат мотивирани да создаваме вакви упатства.
Не заборавајте да ја проверите нашата веб-локација Exceldemy.com за различни проблеми и решенија поврзани со Excel.
Продолжете да учите нови методи и да растете!
