Калі вы некаторы час працуеце з Microsoft Excel, вы ведаеце важнасць аўтазапаўнення. Каб скапіяваць формулу праз радок або слупок, мы выкарыстоўваем гэты метад. Цяпер мы можам выкарыстоўваць гэта ўручную з дапамогай мышы. Але, калі ў вас ёсць вялікі радок з дадзенымі, будзе цяжка скапіяваць любую формулу ў апошні радок або слупок. Вы можаце выкарыстоўваць код VBA для лёгкага аўтазапаўнення формулы да апошняга радка або слупка.

У гэтым уроку вы навучыцеся аўтазапаўняць формулу да апошняга радка ў Excel з дапамогай кодаў VBA. Гэты падручнік будзе дакладны з адпаведнымі прыкладамі і належнымі ілюстрацыямі. Такім чынам, заставайцеся з намі.

Спампаваць вучэбны сшытак

Аўтазапаўненне формулы да апошняга радка.xlsm

Што такое аўтазапаўненне Excel?

Цяпер аўтазапаўненне - гэта ўбудаваная функцыя Microsoft Excel, якая дазваляе карыстальнікам аўтаматычна запаўняць астатнія радкі або слупкі значэннямі, фарматамі або формуламі. Вы можаце ідэнтыфікаваць яго, навёўшы курсор на правы ніжні кут любой ячэйкі. Мы называем гэта апрацоўшчыкам аўтазапаўнення Excel.

Зірніце на наступны скрыншот:

Тут вы бачыце дзве лічбы. Мы запоўнім астатнія радкі з дапамогай аўтазапаўнення ў Excel.

Спачатку абярыце дыяпазон ячэек B5:B6. Пасля гэтага вы ўбачыце маркер аўтазапаўнення ў правым ніжнім куце.

Цяпер перацягніце гэты маркер аўтазапаўнення ўніз.

Як бачыце, Excel аўтаматычна запоўніўастатнія клеткі. Гэта асноўнае выкарыстанне аўтазапаўнення ў Excel.

Як выкарыстоўваць аўтазапаўненне з Excel VBA

Калі ў вас ёсць вялікая колькасць радкоў або слупкоў у зададзеным дыяпазоне, вам трэба перацягнуць уніз маркер аўтазапаўнення да апошняга радка або слупка. Гэта вельмі напружаны працэс. На шчасце, вы можаце звесці яго да мінімуму з дапамогай кодаў VBA ў Excel. Вы можаце выкарыстоўваць код VBA для аўтазапаўнення ячэек значэннямі, формуламі або фарматамі.

Агульны сінтаксіс:

Дыяпазон .AutoFill Destination, увядзіце

тут,

дыяпазон (“B5”): Ячэйка, якая мае асноўны ўзор для запаўнення астатняй серыі.

Пункт прызначэння: Дыяпазон ячэек, якія вы хочаце запоўніць серыяй узораў.

Увядзіце як xlAutoFillType: Тып запаўнення серыі. Ёсць розныя тыпы аўтазапаўнення, якія вы можаце выбраць.

Дадатковая інфармацыя: Як выкарыстоўваць аўтазапаўненне VBA ў Excel

4 тыпы аўтазапаўнення ў Excel VBA

У гэтым раздзеле я абмяркую некаторыя тыпы аўтазапаўнення. Мы ўжо бачылі, што мы можам выбраць любы тып аўтазапаўнення з дапамогай xlAutoFillType. Тут я паказваю вам некалькі прыкладаў гэтага.

1. xlFillDefault

Мы ўжо бачылі гэты тып аўтазапаўнення ў папярэднім прыкладзе.

Зірніце на скрыншот:

Увядзіце наступны код VBA для аўтазапаўнення астатніх вочак:

1672

Цяпер запусціце макрас VBA і пасля гэтага вы ўбачыценаступнае:

Ён аўтаматычна запаўняе астатнія вочкі з дапамогай макраса VBA.

2. xlFillCopy

Каб скапіяваць аднолькавыя значэнні, вы можаце выкарыстоўваць тып xlFillCopy у тыпе аўтазапаўнення.

Зірніце на скрыншот:

Увядзіце наступны код VBA для аўтазапаўнення астатніх вочак:

8080

Цяпер запусціце макрас VBA і пасля гэтага вы ўбачыце наступнае:

Excel запаўняе астатнія вочкі такім жа шаблонам значэнняў.

3. xlFillMonths

Вы таксама можаце запоўніць месяцы, выкарыстоўваючы тып аўтазапаўнення xlFillMonths .

Зірніце на скрыншот:

Тут мы ўвялі два месяцы студзень і люты.

Увядзіце наступны код VBA для аўтазапаўнення астатніх ячэек:

5267

Цяпер запусціце макрас VBA і пасля то вы ўбачыце наступнае:

Excel аўтаматычна разумее шаблоны і запаўняе іх імі.

4. xlFillFormats

Вы таксама можаце капіяваць фарматы ў іншыя ячэйкі з дапамогай аўтазапаўнення VBA. Для гэтага вы павінны выкарыстоўваць тып аўтазапаўнення xlFillFormats .

Зірніце на скрыншот:

Тут мы маем запоўніў дзве ячэйкі некаторымі колерамі.

Цяпер увядзіце наступны код VBA для аўтазапаўнення астатніх вочак:

1983

Цяпер запусціце макрас VBA і пасля гэтага вы ўбачыце наступнае:

Як бачыце, наш макрас VBA выкарыстоўвае аўтазапаўненне дляэфектыўна запоўніце радкі слупка B.

Дадатковая інфармацыя: Як аўтаматычна запаўняць месяцы ў Excel

5 прыкладаў з формулай аўтазапаўнення апошняга радка ў Excel VBA

1. VBA для аўтазапаўнення формулы ў апошні выкарыстаны радок

Аналагічным чынам вы можаце аўтазапаўняць формулу з дапамогай VBA. калі вы прачыталі папярэднія раздзелы, вы можаце лёгка выканаць гэта. Праблема ўзнікае, калі вам трэба аўтазапоўніць формулу да апошняга радка. Спачатку вы павінны вызначыць апошні выкарыстаны радок. Пасля гэтага код VBA аўтаматычна запоўніць іх.

Зірніце на наступны набор даных:

Тут у нас ёсць набор даных аб продажах некаторых прадаўцоў . Наша мэта складаецца ў тым, каб дадаць продажы студзеня і лютага ў слупок «Агульная сума». Пасля гэтага мы будзем выкарыстоўваць метад аўтазапаўнення з выкарыстаннем VBA да апошняга выкарыстоўванага радка ў Excel.

Каб выканаць гэта, увядзіце наступны код:

2612

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Вяртае апошні выкарыстаны радок са слупка B. Вы можаце выбраць любы слупок са свайго набору даных.

Дыяпазон(“E5”).Формула = “=СУМ(C5:D5)”: Мы дадаем продажы ячэйкі C5 і D5.

Range(“E5”).AutoFill Destination:=Range(“E5:E” & last_row): Пасля атрымання выніку мы выкарыстоўваем аўтазапаўненне. Пачынаецца аўтаматычнае запаўненне ад ячэйкі E5 да апошняга выкарыстанага радка, які мы атрымалі раней.

Зараз запусціце макрас VBA. Пасля гэтага вы ўбачыце наступны вынік:

Якяк вы бачыце, наш код VBA дадае першы вынік і аўтаматычна запаўняе формулу ў апошні радок у Excel.

Дадатковая інфармацыя: Як запоўніць даныя да апошняга радка ў Excel

2. Аўтазапаўненне VBA ад ActiveCell да апошняга радка

Цяпер, калі вы не хочаце выкарыстоўваць пэўны дыяпазон у метадзе аўтазапаўнення, вы можаце выкарыстоўваць значэнні актыўнай ячэйкі , формулы або фарматы. Калі вы націскаеце на ячэйку і жадаеце аўтаматычна запоўніць астатнія радкі формулай актыўнай ячэйкі, выкарыстоўвайце гэты метад.

Гэта падобна на папярэдні прыклад. Мы выкарыстоўваем папярэдні набор даных:

Цяпер мы дадамо продажы за студзень і люты і аўтаматычна запоўнім формулу ў апошні радок з дапамогай Excel VBA.

Цяпер увядзіце наступны код:

7570

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Вяртае апошні выкарыстаны радок са слупка B. Вы можаце выбраць любы слупок з вашага набору даных.

ActiveCell.Formula = “=SUM(C5:D5)”: Мы дадаем продажы Cell C5 і D5 у выбранай ячэйцы.

ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & “:E” & last_row): Пасля атрымання выніку мы выкарыстоўваем аўтазапаўненне. Ён пачынае аўтаматычнае запаўненне ад актыўнай ячэйкі да апошняга выкарыстанага радка, які мы атрымалі раней.

Цяпер абярыце Вочка E5 .

Пасля гэтага запусціце макрас VBA, каб дадаць формулу і аўтазапаўненне ў апошні радок.

Як бачыце, мыпаспяхова выкарыстаў макрас VBA для аўтазапаўнення формулы да апошняга радка.

Падобныя чытанні

• Як паўтарыць радкі зададзеную колькасць разоў у Excel (4 спосабы)
• Аўтаматычна пранумараваць радкі ў Excel (8 метадаў)
• Як запоўніць слупок у Excel аднолькавым значэннем (9 прыёмаў) )
• Ужыць цэтлік аўтазапаўнення ў Excel (7 метадаў)

3. Аўтазапаўненне апошняга радка з выкарыстаннем дынамічнага дыяпазону з Excel VBA

Раней мы паказвалі вам некаторыя макрасы VBA для аўтазапаўнення апошняга радка ў Excel. Цяпер у гэтых прыкладах мы ўжо выкарыстоўвалі дынамічныя дыяпазоны.

Каб зразумець статычныя дыяпазоны, паглядзіце на наступны код:

3488

У асноўным мы сказалі Excel увесці формулу ў Ячэйка E5 і аўтазапаўненне яе ад Ячэйка E5 да Ячэйка E11 . Тут мы ўказалі дыяпазон. Што рабіць, калі дадаць больш радкоў? У такім выпадку наш VBA не будзе аўтаматычна запаўняць гэтыя дадатковыя радкі, таму што мы ўжо сказалі яму аўтаматычна запаўняць пэўны дыяпазон.

Каб вырашыць гэтую праблему, я прыдумаў рашэнне, якое можа прымаць дынамічны дыяпазон:

8814

Як бачыце, мы спачатку знаходзім апошні радок па гэтым радку кода:

6155

Пасля гэтага мы аўтаматычна запаўняем апошні радок з выкарыстаннем дынамічнага дыяпазону:

4829

Не незалежна ад таго, колькі радкоў вы дадасце ў свой набор даных, гэты код VBA зможа іх ідэнтыфікаваць. І ён аўтаматычна запоўніць іх формулай.

Дынамічны дыяпазон у асноўным азначае, што вам не трэба ўводзіць дыяпазонўручную. Excel будзе час ад часу абнаўляць яго.

Дадатковая інфармацыя: Excel VBA: метад аўтазапаўнення класа дыяпазону не адбыўся

4. Аўтазапаўненне да апошняга Слупок у Excel з выкарыстаннем VBA

Калі вы прачыталі папярэднія раздзелы для аўтазапаўнення да апошняга радка, вы можаце лёгка аўтазапаўняць апошні слупок. Вам трэба проста знайсці нумар апошняга слупка і аўтаматычна запоўніць яго з дапамогай Excel VBA.

Зірніце на наступны набор даных:

Тут у нас ёсць набор даных, які прадстаўляе 3-месячны бюджэт чалавека. Цяпер мы дадамо выдаткі за ўсе месяцы і аўтаматычна запоўнім формулу ў апошні слупок з дапамогай Excel VBA.

Цяпер увядзіце наступны код:

3259

апошні_слупок = Cells(6, Columns.Count).End(xlToLeft).Column: Вяртае апошні выкарыстаны слупок з радка 6. Вы можаце выбраць любы радок для пачатку з вашага набору даных.

Дыяпазон(“D9”).Формула = “=СУМ(D6:D8)”: Мы дадаем выдаткі за тры месяцы (студзень, люты сакавік).

Range(“D9”).AutoFill Destination:=Range(“D9”, Cells(9, last_column)): Пасля атрымання выніку мы выкарыстоўваем аўтазапаўненне. Тут наш галоўны радок - гэта радок нумар 9. Усе нашы дадзеныя будуць у гэтым радку. Пачынаецца аўтаматычнае запаўненне са слупка D да апошняга выкарыстоўванага слупка, які мы атрымалі раней па last_column .

Пасля запуску макраса вы ўбачыце наступны вынік :

Як бачыце, мы паспяхова выкарыстоўвалі VBA для аўтазапаўненняформула да апошняга слупка ў Excel.

Дадатковая інфармацыя: Як аўтазапоўніць слупок у Excel

5. Аўтазапаўненне паслядоўных нумароў да апошняга радка у Excel з выкарыстаннем VBA

Вы таксама можаце аўтаматычна запаўняць паслядоўныя нумары з дапамогай аўтазапаўнення ў VBA. Тут вы павінны выкарыстоўваць xlFillSeries у тыпе аўтазапаўнення. Excel зразумее шаблон і запоўніць іх ім.

Паглядзіце на наступны скрыншот:

Тут у нас ёсць некаторыя імёны. І мы хочам даць ім пасведчанне асобы паслядоўным чынам. Для гэтага мы будзем выкарыстоўваць аўтазапаўненне VBA.

Аўтазапаўненне паслядоўных нумароў са статычным дыяпазонам:

2726

Пасля запуску кода вы ўбачыце вынік:

Калі вы хочаце выкарыстоўваць дынамічны дыяпазон, выкарыстоўвайце наступны код:

8243

last_row = Cells(Rows. Count, 2).End(xlUp).Row: Вяртае апошні выкарыстаны радок са слупка B.

Range(“C5”).AutoFill Destination:=Range(“C5” :C” & last_row), увядзіце:=xlFillSeries: Ён возьме ідэнтыфікатар Cell C5 і аўтаматычна запоўніць апошні выкарыстаны радок у слупку C з дапамогай xlFillSeries ,

У абодвух выпадках вы атрымаеце аднолькавы вынік:

Як бачыце, мы паспяхова выкарысталі код VBA для аўтазапаўненне парадкавых нумароў у Excel.

Дадатковая інфармацыя: Формулы Excel для запаўнення парадкавых нумароў, прапускаюць схаваныя радкі

💬 Пра што трэба памятаць

✎ Вы можаце спыніць аўтазапаўненне Рознымі спосабамі, калі вы гэтага не хочаце .

✎ Вы не можаце аўтаматычна запаўняць некалькі радкоў і слупкоў адначасова. Рабіце гэта адзін за адным.

Выснова

У заключэнне я спадзяюся, што гэты падручнік даў вам карысныя веды па аўтазапаўненні формулы да апошняга радка з дапамогай кодаў VBA. Мы рэкамендуем вам вывучыць і прымяніць усе гэтыя інструкцыі да вашага набору даных. Спампуйце вучэбны сшытак і паспрабуйце самі. Таксама не саромейцеся пакідаць водгукі ў раздзеле каментарыяў. Вашы каштоўныя водгукі падтрымліваюць нас у матывацыі ствараць такія навучальныя дапаможнікі.

Не забудзьцеся праверыць наш вэб-сайт Exceldemy.com для розных праблем і рашэнняў, звязаных з Excel.

Працягвайце вывучаць новыя метады і расці!