თუ გარკვეული პერიოდის განმავლობაში მუშაობთ 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 კოდი დანარჩენი უჯრედების ავტომატურად შესავსებად:

7054

ახლა გაუშვით VBA მაკრო და ამის შემდეგ დაინახავთშემდეგი:

ის ავტომატურად ავსებს დანარჩენ უჯრედებს VBA მაკროს გამოყენებით.

2. xlFillCopy

იგივე მნიშვნელობების დასაკოპირებლად შეგიძლიათ გამოიყენოთ ტიპი xlFillCopy ავტომატური შევსების ტიპში.

შეხედეთ ეკრანის სურათს:

აკრიფეთ შემდეგი VBA კოდი დანარჩენი უჯრედების ავტომატურად შესავსებად:

9073

ახლა გაუშვით VBA მაკრო და ამის შემდეგ ნახავთ შემდეგს:

Excel ავსებს დანარჩენ უჯრედებს მნიშვნელობების იგივე ნიმუშით.

3. xlFillMonths

ასევე შეგიძლიათ თვეების შევსება xlFillMonths ავტომატური შევსების ტიპის გამოყენებით.

შეხედეთ ეკრანის სურათს:

აქ, ჩვენ შევიყვანეთ ორი თვე იანვარი და თებერვალი.

აკრიფეთ შემდეგი VBA კოდი დანარჩენი უჯრედების ავტომატური შესავსებად:

4618

ახლა გაუშვით VBA მაკრო და შემდეგ რომ, დაინახავთ შემდეგს:

Excel ავტომატურად ესმის შაბლონებს და ავსებს მათ.

4. xlFillFormats

თქვენ ასევე შეგიძლიათ დააკოპიროთ ფორმატები სხვა უჯრედებში VBA ავტომატური შევსების გამოყენებით. ამისათვის თქვენ უნდა გამოიყენოთ xlFillFormats ავტომატური შევსების ტიპი.

შეხედეთ ეკრანის სურათს:

აქ გვაქვს შეავსეთ ორი უჯრედი რამდენიმე ფერებით.

ახლა, აკრიფეთ შემდეგი VBA კოდი დანარჩენი უჯრედების ავტომატური შესავსებად:

6165

ახლა გაუშვით VBA მაკრო და ამის შემდეგ ნახავთ შემდეგი:

როგორც ხედავთ, ჩვენი VBA მაკრო იყენებს ავტომატურ შევსებასშეავსეთ B სვეტის რიგები ეფექტურად.

დაწვრილებით: როგორ შევავსოთ თვეები Excel-ში

5 მაგალითი ავტომატური შევსების ფორმულით ბოლო მწკრივში Excel VBA

1. VBA ფორმულის ავტომატური შევსებისთვის ბოლო გამოყენებული მწკრივისთვის

ანალოგიურად, შეგიძლიათ ავტომატურად შეავსოთ ფორმულა VBA-ს გამოყენებით. თუ თქვენ წაიკითხეთ წინა სექციები, შეგიძლიათ მარტივად შეასრულოთ ეს. პრობლემა წარმოიქმნება, როდესაც თქვენ უნდა შეავსოთ ფორმულა ბოლო სტრიქონამდე. ჯერ უნდა დაადგინოთ ბოლო გამოყენებული მწკრივი. ამის შემდეგ, VBA კოდი ავტომატურად შეავსებს მათ.

შეხედეთ შემდეგ მონაცემთა ბაზას:

აქ გვაქვს გაყიდვების მონაცემთა ნაკრები ზოგიერთი გამყიდველისგან. . ჩვენი მიზანია იანვრისა და თებერვლის გაყიდვები დავამატოთ Total სვეტს. ამის შემდეგ, ჩვენ გამოვიყენებთ ავტომატური შევსების მეთოდს VBA-ს გამოყენებით Excel-ში ბოლო გამოყენებულ მწკრივამდე.

ამის შესასრულებლად აკრიფეთ შემდეგი კოდი:

2518

last_row = Cells(Rows.Count, 2).End(xlUp).Row: ის აბრუნებს ბოლო გამოყენებულ მწკრივს B სვეტიდან. თქვენ შეგიძლიათ აირჩიოთ ნებისმიერი სვეტი თქვენი მონაცემთა ნაკრებიდან.

დიაპაზონი(“E5”).ფორმულა = “=SUM(C5:D5)”: ჩვენ ვამატებთ C5C5 და D5-ის გაყიდვებს.

Range(“E5”).AutoFill Destination:=Range(“E5:E” & last_row): შედეგის მიღების შემდეგ ვიყენებთ ავტომატურ შევსებას. ის იწყებს ავტომატურ შევსებას Cell E5 ბოლო გამოყენებული მწკრივისკენ, რომელიც ადრე მივიღეთ.

ახლა გაუშვით VBA მაკრო. ამის შემდეგ ნახავთ შემდეგ გამომავალს:

როგორცხედავთ, ჩვენი VBA კოდი ამატებს პირველ შედეგს და ავტომატურად ავსებს ფორმულას ბოლო სტრიქონში Excel-ში.

დაწვრილებით: როგორ შევავსოთ ბოლო მწკრივი მონაცემებით Excel

2. VBA ავტომატური შევსება ActiveCell-დან ბოლო რიგამდე

ახლა, თუ არ გსურთ გამოიყენოთ კონკრეტული დიაპაზონი ავტომატური შევსების მეთოდში, შეგიძლიათ გამოიყენოთ აქტიური უჯრედის მნიშვნელობები , ფორმულები ან ფორმატები. როდესაც დააწკაპუნებთ უჯრედზე და გსურთ დანარჩენი რიგების ავტომატური შევსება აქტიური უჯრედის ფორმულით, გამოიყენეთ ეს მეთოდი.

ის მსგავსია წინა მაგალითის. ჩვენ ვიყენებთ წინა მონაცემთა ბაზას:

ახლა დავამატებთ იანვრის და თებერვლის გაყიდვებს და ავტომატურად შევავსებთ ფორმულას ბოლო რიგში Excel VBA-ს გამოყენებით.

ახლა, აკრიფეთ შემდეგი კოდი:

4770

last_row = Cells(Rows.Count, 2).End(xlUp).Row: ის აბრუნებს ბოლო გამოყენებულს მწკრივი სვეტიდან B. შეგიძლიათ აირჩიოთ ნებისმიერი სვეტი თქვენი მონაცემთა ნაკრებიდან.

ActiveCell.Formula = “=SUM(C5:D5)”: ჩვენ ვამატებთ Cell-ის გაყიდვებს C5 და D5 თქვენს არჩეულ უჯრედში.

ActiveCell.AutoFill დანიშნულება:=Range(ActiveCell.Address & ":E" & ბოლო_სტრიქონი): შედეგის მიღების შემდეგ ვიყენებთ ავტომატურ შევსებას. ის იწყებს ავტომატურ შევსებას აქტიური უჯრედიდან ბოლო გამოყენებული მწკრივისკენ, რომელიც ადრე მივიღეთ.

ახლა აირჩიეთ უჯრედი E5 .

როგორც ხედავთ, ჩვენწარმატებით გამოიყენა VBA მაკრო ფორმულის ბოლო სტრიქონამდე ავტომატური შევსებისთვის.

მსგავსი წაკითხვები

• როგორ გავიმეოროთ რიგები განსაზღვრული რაოდენობის ჯერ Excel (4 გზა)
• სტრიქონების დანომრვა ავტომატურად Excel-ში (8 მეთოდი)
• როგორ შევავსოთ სვეტი Excel-ში იგივე მნიშვნელობით (9 ხრიკი )
• გამოიყენეთ ავტომატური შევსების მალსახმობი Excel-ში (7 მეთოდი)

3. ავტომატური შევსება ბოლო მწკრივში დინამიური დიაპაზონის გამოყენებით Excel VBA-ით

ადრე ჩვენ გაჩვენეთ რამდენიმე VBA მაკრო Excel-ში ბოლო მწკრივის ავტომატური შევსებისთვის. ახლა, ამ მაგალითებში, ჩვენ უკვე გამოვიყენეთ დინამიური დიაპაზონები.

სტატიკური დიაპაზონების გასაგებად, გადახედეთ შემდეგ კოდს:

8647

ჩვენ ძირითადად ვუთხარით Excel-ს, რომ შეიყვანოს ფორმულა -ში. Cell E5 და ავტომატური შევსება Cell E5 Cell E11 . აქ ჩვენ დავაზუსტეთ დიაპაზონი. რა მოხდება, თუ დამატებით სტრიქონებს დაამატებთ? ამ შემთხვევაში, ჩვენი VBA ავტომატურად არ შეავსებს დამატებით რიგებს, რადგან ჩვენ უკვე ვუთხარით, რომ ავტომატური შევსება კონკრეტული დიაპაზონი.

ამ პრობლემის გადასაჭრელად მე გამოვნახე გამოსავალი, რომელსაც შეუძლია მიიღოს დინამიური დიაპაზონი:

1856

როგორც ხედავთ, ჩვენ პირველად ვპოულობთ ბოლო რიგს კოდის ამ ხაზით:

9496

ამის შემდეგ, ჩვენ ავტომატურად ვავსებთ ბოლო სტრიქონს დინამიური დიაპაზონის გამოყენებით:

3938

არა არ აქვს მნიშვნელობა რამდენ მწკრივს დაამატებთ თქვენს მონაცემთა ბაზას, ეს VBA კოდი წარმატებული იქნება მათ იდენტიფიცირებაში. და ის ავტომატურად შეავსებს მათ ფორმულით.

დინამიური დიაპაზონი ძირითადად ნიშნავს, რომ თქვენ არ გჭირდებათ დიაპაზონის შეყვანახელით. Excel განაახლებს მას დროდადრო.

დაწვრილებით: Excel VBA: დიაპაზონის კლასის ავტომატური შევსების მეთოდი ვერ მოხერხდა

4. ავტომატური შევსება ბოლომდე სვეტი Excel-ში VBA-ის გამოყენებით

თუ თქვენ წაიკითხეთ წინა სექციები ავტომატური შევსების მიზნით ბოლო სტრიქონამდე, მაშინ შეგიძლიათ მარტივად შეავსოთ ბოლო სვეტი. თქვენ უბრალოდ უნდა იპოვოთ ბოლო სვეტის ნომერი და ავტომატურად შეავსოთ იგი Excel VBA-ით.

შეხედეთ შემდეგ მონაცემთა ნაკრებს:

აქ, ჩვენ გვაქვს მონაცემთა ნაკრები, რომელიც წარმოადგენს პირის 3 თვის ბიუჯეტს. ახლა ჩვენ დავამატებთ ყველა თვის ხარჯებს და ავტომატურად შევავსებთ ფორმულას ბოლო სვეტში Excel VBA-ის გამოყენებით.

ახლა, აკრიფეთ შემდეგი კოდი:

9247

last_column = Cells(6, Columns.Count).End(xlToLeft).Column: იგი აბრუნებს ბოლო გამოყენებულ სვეტს მე-6 მწკრივიდან. თქვენ შეგიძლიათ აირჩიოთ ნებისმიერი მწკრივი თქვენი მონაცემთა ნაკრებიდან დასაწყებად.

დიაპაზონი (“D9”). ფორმულა = “=SUM(D6:D8)”: ჩვენ ვამატებთ სამი თვის ხარჯებს (იანვარი, თებერვალი მარტი).

Range(“D9”).AutoFill Destination:=Range(“D9”, Cells(9, last_collumn)): შედეგის მიღების შემდეგ ვიყენებთ ავტომატურ შევსებას. აქ, ჩვენი მთავარი სტრიქონი არის რიგის ნომერი 9. ჩვენი ყველა მონაცემი იქნება ამ რიგში. ის იწყებს ავტომატურ შევსებას სვეტიდან D ბოლო გამოყენებული სვეტამდე, რომელიც ადრე მივიღეთ ბოლო_სვეტი .

მაკროს გაშვების შემდეგ, ნახავთ შემდეგ გამომავალს. :

როგორც ხედავთ, ჩვენ წარმატებით გამოვიყენეთ VBA ავტომატური შევსებისთვისფორმულა Excel-ის ბოლო სვეტამდე.

დაწვრილებით: როგორ შევავსოთ სვეტი Excel-ში

5. ავტომატური შევსება თანმიმდევრული ნომრების ბოლო მწკრივამდე Excel-ში VBA გამოყენებით

თქვენ ასევე შეგიძლიათ ავტომატურად შეავსოთ თანმიმდევრული ნომრები VBA-ში ავტომატური შევსების გამოყენებით. აქ თქვენ უნდა გამოიყენოთ xlFillSeries ავტომატური შევსების ტიპში. Excel გაიგებს შაბლონს და შეავსებს მათ.

შეხედეთ შემდეგ ეკრანის სურათს:

აქ, ჩვენ გვაქვს რამდენიმე სახელები. და ჩვენ გვინდა მივცეთ მათ პირადობის მოწმობა თანმიმდევრულად. ამისათვის ჩვენ გამოვიყენებთ VBA ავტომატურ შევსებას.

ავტომატური შევსება თანმიმდევრული ნომრების სტატიკური დიაპაზონით:

9071

კოდის გაშვების შემდეგ ნახავთ გამომავალს:

თუ გსურთ გამოიყენოთ დინამიური დიაპაზონი, გამოიყენეთ შემდეგი კოდი:

1635

last_row = Cells(Rows. Count, 2).End(xlUp).Row: ის აბრუნებს ბოლო გამოყენებულ მწკრივს B სვეტიდან.

Range(“C5”).AutoFill Destination:=Range(“C5“ :C” & amp; last_row), Type:=xlFillSeries: ის მიიღებს C5C5 -ის ID-ს და ავტომატურად შევავსებს ბოლო გამოყენებულ მწკრივს სვეტში C <6-ის გამოყენებით>xlFillSeries ,

ორივე შემთხვევაში, თქვენ მიიღებთ იგივე გამომავალს:

როგორც ხედავთ, ჩვენ წარმატებით გამოვიყენეთ VBA კოდი ავტომატური შევსების თანმიმდევრული რიცხვები Excel-ში.

დაწვრილებით: Excel-ის ფორმულები თანმიმდევრობის ნომრების შესავსებად ფარული რიგების გამოტოვება

💬 დასამახსოვრებელი რამ

✎ შეგიძლიათ შეაჩეროთ ავტომატური შევსება სხვადასხვა გზა თუ არ გინდა .

✎ თქვენ არ შეგიძლიათ ავტომატური შევსება რამდენიმე მწკრივისა და სვეტის ერთდროულად. გააკეთეთ ეს სათითაოდ.

დასკვნა

დასასრულებლად, ვიმედოვნებ, რომ ეს სახელმძღვანელო მოგაწვდით სასარგებლო ცოდნას ფორმულის ბოლო სტრიქონამდე ავტომატური შევსებისთვის VBA კოდების გამოყენებით. ჩვენ გირჩევთ ისწავლოთ და გამოიყენოთ ყველა ეს ინსტრუქცია თქვენს მონაცემთა ბაზაში. ჩამოტვირთეთ სავარჯიშო სამუშაო წიგნი და სცადეთ ისინი თავად. ასევე, მოგერიდებათ გამოხმაუროთ კომენტარების განყოფილებაში. თქვენი ღირებული გამოხმაურება გვაძლევს მოტივაციას, შევქმნათ მსგავსი გაკვეთილები.

არ დაგავიწყდეთ შეამოწმოთ ჩვენი ვებ-გვერდი Exceldemy.com Excel-თან დაკავშირებული სხვადასხვა პრობლემებისა და გადაწყვეტილებებისთვის.

განაგრძეთ ახალი მეთოდების სწავლა და განაგრძეთ ზრდა!