Хэрэв та Microsoft Excel программ дээр хэсэг хугацаанд ажиллаж байгаа бол Автоматаар дүүргэлтийн ач холбогдлыг та мэднэ. Мөр эсвэл баганын дагуу томьёог хуулахын тулд бид энэ аргыг ашигладаг. Одоо бид үүнийг хулганаар гараар ашиглаж болно. Гэхдээ хэрэв танд өгөгдөл бүхий том мөр байгаа бол ямар ч томьёог сүүлчийн мөр эсвэл баганад хуулах нь хэцүү байх болно. Та VBA кодыг ашиглан томьёог хамгийн сүүлийн мөр, багана хүртэл автоматаар бөглөх боломжтой.

Энэ зааварт та VBA кодыг ашиглан Excel програмын сүүлчийн мөр хүртэл томьёог автоматаар бөглөх аргад суралцах болно. Энэ заавар нь тохиромжтой жишээ, зохих чимэглэлтэй байх болно. Тиймээс бидэнтэй хамт байгаарай.

Дадлага хийх ажлын номыг татаж авах

Томьёог сүүлийн эгнээнд автоматаар бөглөх.xlsm

Автоматаар бөглөх гэж юу вэ Excel?

Одоо автоматаар бөглөх нь Microsoft Excel-ийн суурилагдсан функц бөгөөд хэрэглэгчид үлдсэн мөр, баганыг утгууд, формат эсвэл томъёогоор автоматаар бөглөх боломжийг олгодог. Та курсорыг дурын нүдний баруун доод буланд аваачихад үүнийг таньж болно. Бид үүнийг Excel-ийн автоматаар бөглөх зохицуулагч гэж нэрлэдэг.

Дараах дэлгэцийн агшинг харна уу:

Энд та хоёр тоог харж болно. Бид Excel-ийн автомат бөглөх аргыг ашиглан үлдсэн мөрүүдийг бөглөнө.

Эхлээд B5:B6 нүдний мужийг сонгоно. Үүний дараа та баруун доод буланд автоматаар бөглөх бариулыг харах болно.

Одоо энэ автомат бөглөх бариулыг доош чирнэ үү.

Таны харж байгаагаар Excel автоматаар бөглөсөнүлдсэн эсүүд. Энэ бол Excel-ийн автоматаар бөглөх үндсэн хэрэглээ юм.

Excel VBA-тай автоматаар бөглөх аргыг хэрхэн ашиглах вэ

Хэрэв танд өгөгдсөн мужид олон тооны мөр эсвэл багана байгаа бол та доош чирнэ үү. автоматаар бөглөх бариулыг сүүлчийн мөр эсвэл багана руу оруулна. Энэ бол маш их ачаалалтай үйл явц юм. Та Excel-ийн VBA кодуудыг ашиглан үүнийг багасгаж чадна. Та нүднүүдийг утгууд, томьёо эсвэл форматаар автоматаар дүүргэхийн тулд VBA кодыг ашиглаж болно.

Ерөнхий синтакс:

Муж .AutoFill Destination, Type

Энд,

Муж("B5"): Цувралын үлдсэн хэсгийг дүүргэх үндсэн хэв маягтай нүд.

Зорилго: Загварын цувралаар дүүргэхийг хүссэн нүдний хүрээ.

XlAutoFillType гэж бичнэ үү: Цуврал дүүргэлтийн төрөл. Та янз бүрийн автоматаар бөглөх төрлүүдийг сонгож болно.

Дэлгэрэнгүй унших: Excel-д VBA автоматаар бөглөх аргыг хэрхэн ашиглах вэ

Excel-д автоматаар бөглөх 4 төрөл VBA

Энэ хэсэгт би автоматаар дүүргэлтийн зарим төрлүүдийг авч үзэх болно. Бид аль хэдийн xlAutoFillType-г ашиглан автоматаар бөглөх ямар ч төрлийг сонгох боломжтойг олж харсан. Энд би танд үүний зарим жишээг үзүүлж байна.

1. xlFillDefault

Бид өмнөх жишээн дээр ийм төрлийн автомат бөглөх аргыг аль хэдийн харсан.

Дэлгэцийн агшинг харна уу:

Үлдсэн нүднүүдийг автоматаар дүүргэхийн тулд дараах VBA кодыг бичнэ үү:

5893

Одоо VBA макро ажиллуулж, үүний дараа та дараахийг харах болно.дараах:

Энэ нь VBA макро ашиглан үлдсэн нүдийг автоматаар дүүргэдэг.

2. xlFillCopy

Ижил утгуудыг хуулахын тулд та автоматаар бөглөх төрөлд xlFillCopy төрлийг ашиглаж болно.

Дэлгэцийн агшинг харна уу:

Үлдсэн нүднүүдийг автоматаар дүүргэхийн тулд дараах VBA кодыг бичнэ үү:

4131

Одоо VBA макро ажиллуулаад дараа нь дараах зүйлийг харах болно:

Excel нь бусад нүднүүдийг ижил утгын загвараар дүүргэдэг.

3. xlFillMonths

Та мөн xlFillMonths автоматаар бөглөх төрлийг ашиглан сар бөглөх боломжтой.

Дэлгэцийн агшинг харна уу:

Энд бид 1, 2-р сарын хоёр сарыг орууллаа.

Үлдсэн нүднүүдийг автоматаар дүүргэхийн тулд дараах VBA кодыг бичнэ үү:

9112

Одоо VBA макро ажиллуулаад дараа нь. Ингэснээр та дараахыг харах болно:

Excel автоматаар хэв маягийг ойлгож, тэдгээрийг дүүргэдэг.

4. xlFillFormats

Мөн VBA автоматаар бөглөх аргыг ашиглан форматыг бусад нүд рүү хуулж болно. Үүний тулд та xlFillFormats автоматаар бөглөх төрлийг ашиглах ёстой.

Дэлгэцийн агшинг харна уу:

Бидэнд энд байна. хоёр нүдийг зарим өнгөөр ​​дүүргэсэн.

Одоо үлдсэн нүдийг автоматаар дүүргэхийн тулд дараах VBA кодыг бичнэ үү:

8267

Одоо VBA макро ажиллуулж, үүний дараа та дараахийг харах болно. дараах:

Таны харж байгаагаар манай VBA макро нь автоматаар бөглөх функцийг ашигладаг.B баганын мөрүүдийг үр дүнтэй бөглөнө үү.

Дэлгэрэнгүй унших: Excel дээр саруудыг хэрхэн автоматаар бөглөх вэ

Сүүлийн мөр хүртэл автоматаар бөглөх томьёоны 5 жишээ Excel VBA

1. Хамгийн сүүлд ашигласан мөр хүртэл томьёог автоматаар бөглөх VBA

Үүний нэгэн адил та VBA ашиглан томьёог автоматаар бөглөх боломжтой. Хэрэв та өмнөх хэсгүүдийг уншсан бол үүнийг хялбархан хийж болно. Томьёог автоматаар сүүлчийн эгнээ хүртэл бөглөх үед асуудал үүсдэг. Та эхлээд хамгийн сүүлд ашигласан мөрийг тодорхойлох хэрэгтэй. Үүний дараа VBA код тэдгээрийг автоматаар дүүргэх болно.

Дараах өгөгдлийн багцыг харна уу:

Энд бид зарим борлуулагчдын борлуулалтын мэдээллийн багцтай байна. . Бидний зорилго бол 1, 2-р сарын борлуулалтыг Нийт баганад нэмэх явдал юм. Үүний дараа бид Excel-ийн хамгийн сүүлд ашигласан мөр хүртэл VBA-г ашиглан автоматаар бөглөх аргыг ашиглана.

Үүнийг гүйцэтгэхийн тулд дараах кодыг бичнэ үү:

5671

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Энэ нь В баганаас хамгийн сүүлд ашигласан мөрийг буцаана. Та өгөгдлийн багцаасаа дурын баганыг сонгож болно.

Ruge(“E5”). Томъёо = “=SUM(C5:D5)”: Бид C5 болон D5-ийн борлуулалтыг нэмнэ.

Range(“E5”).Autofill Destination:=Range(“E5:E” & сүүлийн_мөр): Үр дүнг авсны дараа бид автоматаар дүүргэлтийг ашигладаг. Энэ нь E5 нүднээс хамгийн сүүлд ашигласан мөр хүртэл автоматаар бөглөж эхэлнэ.

Одоо VBA макро ажиллуулна уу. Үүний дараа та дараах гаралтыг харах болно:

AsТа харж болно, манай VBA код эхний үр дүнг нэмж, томьёог Excel-ийн сүүлчийн мөрөнд автоматаар бөглөх болно.

Дэлгэрэнгүй унших: Хэрхэн өгөгдлөөр сүүлчийн мөр хүртэл бөглөх талаар Excel

2. ActiveCell-ээс сүүлчийн мөр хүртэл VBA автоматаар бөглөх

Одоо, хэрэв та автоматаар бөглөх аргын тодорхой мужийг ашиглахыг хүсэхгүй байгаа бол идэвхтэй нүдний утгыг ашиглаж болно. , томьёо эсвэл формат. Та нүдэн дээр товшоод үлдсэн мөрүүдийг идэвхтэй нүдний томъёогоор автоматаар бөглөхийг хүсвэл энэ аргыг ашиглана уу.

Энэ нь өмнөх жишээтэй төстэй юм. Бид өмнөх өгөгдлийн багцыг ашиглаж байна:

Одоо бид 1, 2-р сарын борлуулалтыг нэмж, Excel VBA ашиглан томъёог сүүлийн мөрөнд автоматаар бөглөнө.

Одоо дараах кодыг бичнэ үү:

9534

last_row = Cells(Rows.Count, 2).End(xlUp).Row: Энэ нь хамгийн сүүлд ашигласан кодыг буцаана. Б баганаас мөр. Та өгөгдлийн олонлогоос дурын баганыг сонгож болно.

ActiveCell.Formula = “=SUM(C5:D5)”: Бид Cell-ийн борлуулалтыг нэмдэг. C5 ба D5 таны сонгосон нүдэнд.

ActiveCell.AutoFill Destination:=Муж(ActiveCell.Address & “:E” & сүүлийн_мөр): Үр дүнг авсны дараа бид автоматаар дүүргэлтийг ашигладаг. Энэ нь идэвхтэй нүднээс хамгийн сүүлд ашигласан мөр хүртэл автоматаар бөглөж эхэлнэ.

Одоо E5 нүдийг сонгоно уу.

Үүний дараа VBA макро ажиллуулж томьёо нэмээд сүүлчийн мөрөнд автоматаар бөглөнө.

Таны харж байгаагаар бидVBA макрог амжилттай ашиглаж томьёог сүүлчийн мөр хүртэл автоматаар бөглөсөн.

Ижил төстэй уншилтууд

• Тодорхой тоогоор мөрүүдийг хэрхэн давтах вэ Excel (4 арга)
• Excel-д мөрүүдийг автоматаар дугаарлах (8 арга)
• Excel-ийн баганыг хэрхэн ижил утгатай бөглөх вэ (9 заль мэх). )
• Excel-д автоматаар бөглөх товчлолыг ашиглах (7 арга)

3. Excel VBA-тай динамик мужийг ашиглан сүүлийн мөр хүртэл автоматаар бөглөх

Өмнө нь бид Excel програмын сүүлийн мөр хүртэл автоматаар бөглөх VBA макронуудыг харуулсан. Одоо эдгээр жишээн дээр бид динамик мужуудыг аль хэдийн ашигласан.

Статик мужийг ойлгохын тулд дараах кодыг харна уу:

8441

Бид Excel-д -д томьёо оруулахыг үндсэндээ хэлсэн. E5 нүдийг E5 нүднээс E11 нүд рүү автоматаар бөглөнө үү. Энд бид хүрээг тодорхойлсон. Хэрэв та илүү олон мөр нэмбэл яах вэ? Энэ тохиолдолд манай VBA эдгээр нэмэлт мөрүүдийг автоматаар бөглөхгүй, учир нь бид тодорхой мужийг автоматаар бөглөхийг өмнө нь хэлсэн.

Энэ асуудлыг шийдэхийн тулд би динамик мужийг авах боломжтой шийдлийг гаргасан:

3119

Таны харж байгаагаар бид эхлээд кодын хамгийн сүүлийн мөрийг олдог:

4226

Үүний дараа бид динамик мужийг ашиглан сүүлийн мөрийг автоматаар бөглөнө:

3982

Үгүй Та өгөгдлийн багцдаа хэдэн мөр нэмэхээс үл хамааран энэ VBA код тэдгээрийг тодорхойлоход амжилттай байх болно. Мөн энэ нь тэдгээрийг томъёогоор автоматаар бөглөх болно.

Динамик муж гэдэг нь үндсэндээ мужийг оруулах шаардлагагүй гэсэн үг юм.гараар. Excel үүнийг үе үе шинэчилж байх болно.

Дэлгэрэнгүй унших: Excel VBA: Мужийн ангиллын автоматаар бөглөх арга амжилтгүй боллоо

4. Автоматаар бөглөх хүртэл сүүлчийнх Excel-ийн багана VBA ашиглан

Хэрэв та сүүлчийн мөр хүртэл автоматаар бөглөх өмнөх хэсгүүдийг уншсан бол сүүлчийн баганыг автоматаар бөглөх боломжтой. Та зүгээр л сүүлийн баганын дугаарыг олоод Excel VBA програмаар автоматаар бөглөх хэрэгтэй.

Дараах өгөгдлийн багцыг харна уу:

Энд бидэнд өгөгдлийн багц нь хүний ​​3 сарын төсвийг илэрхийлдэг. Одоо бид Excel VBA ашиглан бүх сарын зардлыг нэмж, томъёог эцсийн баганад автоматаар бөглөнө.

Одоо дараах кодыг бичнэ үү:

5387

last_column = Cells(6, Columns.Count).End(xlToLeft).Column: Энэ нь 6-р мөрөөс хамгийн сүүлд ашигласан баганыг буцаана. Та өгөгдлийн олонлогоос эхлэхийн тулд дурын мөрийг сонгож болно.

Муж(“D9”). Томъёо = “=НИЙЛБЭЛ(D6:D8)”: Бид гурван сарын (1-р, 2-р сарын 3-р сар) зардлыг нэмдэг.

Range(“D9”).Autofill Destination:=Range(“D9”, Cells(9, last_column)): Үр дүнг авсны дараа бид автоматаар дүүргэлтийг ашиглана. Энд бидний гол мөр нь 9-р эгнээ юм. Бидний бүх өгөгдөл энэ мөрөнд байх болно. Энэ нь D баганаас бидний өмнө нь сүүлийн_багана авсан хамгийн сүүлд ашигласан багана хүртэл автоматаар бөглөж эхэлдэг.

Макро ажиллуулсны дараа та дараах гаралтыг харах болно. :

Таны харж байгаагаар бид VBA-г автоматаар бөглөхдөө амжилттай ашигласан.томъёог Excel-ийн сүүлчийн багана руу оруулна.

Дэлгэрэнгүй унших: Excel-д баганыг хэрхэн автоматаар бөглөх вэ

5. Дараалсан тоонуудыг сүүлчийн мөр хүртэл автоматаар бөглөх Excel-д VBA ашиглах

Мөн VBA-д автоматаар бөглөх аргыг ашиглан дараалсан дугааруудыг автоматаар бөглөх боломжтой. Энд та автоматаар бөглөх төрөлд xlFillSeries -г ашиглах ёстой. Excel нь загварыг ойлгож, түүгээр дүүргэх болно.

Дараах дэлгэцийн агшинг харна уу:

Энд бидэнд зарим нэр байна. Тэгээд дараалсан байдлаар үнэмлэхийг нь өгмөөр байна. Үүнийг хийхийн тулд бид VBA автоматаар бөглөхийг ашиглах болно.

Статик мужтай дараалсан тоонуудыг автоматаар бөглөх:

1427

Кодыг ажиллуулсны дараа та гаралтыг харах болно:

Хэрэв та динамик мужийг ашиглахыг хүсвэл дараах кодыг ашиглана уу:

3983

сүүлийн_мөр = Нүднүүд(Мөр. Count, 2).End(xlUp).Row: Энэ нь В баганаас хамгийн сүүлд ашигласан мөрийг буцаана.

Range(“C5”).Autofill Destination:=Range(“C5”). :C” & last_row), Type:=xlFillSeries: Энэ нь C5 нүдний ID-г авч, C баганад хамгийн сүүлд ашигласан мөр хүртэл автоматаар бөглөнө>xlFillSeries ,

Хоёр тохиолдолд та ижил гаралтыг авах болно:

Таны харж байгаагаар бид VBA кодыг амжилттай ашигласан. Excel дээр дараалсан тоонуудыг автоматаар бөглөх.

Дэлгэрэнгүй унших: Далд мөрүүдийг алгасах Excel-ийн дарааллын дугаарыг бөглөх томъёо

💬 Санах ёстой зүйлс

✎ Та автоматаар бөглөх -г зогсоож болноХэрэв та үүнийг хүсэхгүй байгаа бол янз бүрийн арга .

✎ Та олон мөр, баганыг нэгэн зэрэг автоматаар бөглөх боломжгүй. Үүнийг нэг нэгээр нь хий.

Дүгнэлт

Төгсгөлд нь хэлэхэд энэ заавар нь VBA кодыг ашиглан томъёог сүүлийн эгнээ хүртэл автоматаар бөглөхөд хэрэгтэй мэдлэгийг танд өгсөн гэж найдаж байна. Бид танд эдгээр бүх зааврыг сурч, дата багцдаа хэрэгжүүлэхийг зөвлөж байна. Дадлага хийх ажлын номыг татаж аваад өөрөө туршиж үзээрэй. Мөн коммент хэсэгт санал хүсэлтээ үлдээгээрэй. Таны үнэ цэнэтэй санал хүсэлт бидэнд иймэрхүү хичээлүүдийг бүтээх урам зориг өгдөг.

Excel-тэй холбоотой янз бүрийн асуудал, шийдлүүдийг манай вэб сайтаас Exceldemy.com шалгахаа бүү мартаарай.

Шинэ арга барилд суралцаж, өссөөр байна!