Formula e plotësimit automatik deri në rreshtin e fundit me Excel VBA (5 shembuj)

Hugh West

16-10-2023 Makro & Excel VBA
  • Shperndaje Kete
Hugh West

Nëse jeni duke punuar me Microsoft Excel për një kohë, ju e dini rëndësinë e plotësimit automatik. Për të kopjuar një formulë përgjatë rreshtit ose kolonës, ne përdorim këtë metodë. Tani, ne mund ta përdorim këtë manualisht me anë të miut. Por, nëse keni një rresht të madh me të dhëna, do të jetë e vështirë të kopjoni ndonjë formulë në rreshtin ose kolonën e fundit. Ju mund të përdorni kodin VBA për të plotësuar automatikisht një formulë në rreshtin ose kolonën e fundit me lehtësi.

Në këtë tutorial, do të mësoni të plotësoni automatikisht një formulë deri në rreshtin e fundit në Excel duke përdorur kodet VBA. Ky tutorial do të jetë në pikën me shembuj të përshtatshëm dhe ilustrime të duhura. Pra, qëndroni me ne.

Shkarkoni Librin e punës praktike

Formula e plotësimit automatik deri në rreshtin e fundit.xlsm

Çfarë është plotësimi automatik Excel?

Tani, plotësimi automatik është një veçori e integruar e Microsoft Excel që lejon përdoruesit të plotësojnë automatikisht pjesën tjetër të rreshtave ose kolonave me vlera, formate ose formula. Mund ta identifikoni kur e çoni kursorin në këndin e poshtëm të djathtë të çdo qelize. Ne e quajmë mbajtës automatik të plotësimit të Excel.

Hidhini një sy pamjes së mëposhtme të ekranit:

Këtu mund të shihni dy numra. Ne do të plotësojmë pjesën tjetër të rreshtave duke përdorur plotësimin automatik në Excel.

Së pari, zgjidhni gamën e qelizave B5:B6. Pas kësaj, do të shihni dorezën e plotësimit automatik në këndin e poshtëm djathtas.

Tani, tërhiqeni poshtë këtë dorezë të plotësimit automatik.

Siç mund ta shihni, Excel e plotësoi automatikishtpjesa tjetër e qelizave. Ky është përdorimi bazë i plotësimit automatik në Excel.

Si të përdorni plotësimin automatik me Excel VBA

Nëse keni një numër të madh rreshtash ose kolonash në një gamë të caktuar, duhet të tërhiqni poshtë doreza e plotësimit automatik në rreshtin ose kolonën e fundit. Është një proces shumë i vrullshëm. Fatmirësisht mund ta minimizoni duke përdorur kodet VBA në Excel. Ju mund të përdorni kodin VBA për të plotësuar automatikisht qelizat me vlera, formula ose formate.

Sintaksa e përgjithshme:

Rapja .Plotësimi automatik i destinacionit, shkruani

Këtu,

Sfera (“B5”): Qeliza që ka modelin kryesor për të mbushur pjesën tjetër të serisë.

Destinacioni: Gama e qelizave ku dëshironi të plotësoni me serinë e modelit.

Shkruani si xlAutoFillType: Lloji i mbushjes së serisë. Ka lloje të ndryshme të plotësimit automatik që mund të zgjidhni.

Lexo më shumë: Si të përdorni VBA AutoFill në Excel

4 Llojet e AutoPlotësimit në Excel VBA

Në këtë seksion, unë do të diskutoj disa nga llojet e plotësimit automatik. Ne kemi parë tashmë se mund të zgjedhim çdo lloj mbushje automatike duke përdorur xlAutoFillType. Këtu po ju tregoj disa shembuj të kësaj.

1. xlFillDefault

Ne e kemi parë tashmë këtë lloj plotësimi automatik në shembullin e mëparshëm.

Hidhini një sy pamjes së ekranit:

Shkruani kodin e mëposhtëm VBA për të plotësuar automatikisht pjesën tjetër të qelizave:

6742

Tani, ekzekutoni makro VBA dhe pas kësaj, do të shihnivijon:

Plotëson automatikisht pjesën tjetër të qelizave duke përdorur makro VBA.

2. xlFillCopy

Për të kopjuar të njëjtat vlera mund të përdorni llojin xlFillCopy në llojin e plotësimit automatik.

Hidhini një sy pamjes së ekranit:

Shkruani kodin e mëposhtëm VBA për të plotësuar automatikisht pjesën tjetër të qelizave:

Sub xlDefault_type() Range("B5:B6").AutoFill Destination:=Range("B5:B11"), Type:=xlFillDefault End Sub

Tani, ekzekutoni makro VBA dhe pas kësaj, do të shihni sa vijon:

Excel mbush pjesën tjetër të qelizave me të njëjtin model vlerash.

3. xlFillMonths

Mund të plotësoni gjithashtu muaj duke përdorur llojin e plotësimit automatik xlFillMonths .

Hidhini një sy pamjes së ekranit:

Këtu, kemi futur dy muaj janar dhe shkurt.

Shkruani kodin e mëposhtëm VBA për të plotësuar automatikisht pjesën tjetër të qelizave:

1980

Tani, ekzekutoni makro VBA dhe më pas se, do të shihni sa vijon:

Excel i kupton automatikisht modelet dhe i plotëson ato me to.

4. xlFillFormats

Mund të kopjoni gjithashtu formate në qeliza të tjera duke përdorur plotësimin automatik VBA. Për këtë, duhet të përdorni llojin e plotësimit automatik xlFillFormats .

Hidhini një sy pamjes së ekranit:

Këtu kemi mbushi dy qelizat me disa ngjyra.

Tani, shkruani kodin e mëposhtëm VBA për të plotësuar automatikisht pjesën tjetër të qelizave:

9651

Tani, ekzekutoni makro VBA dhe pas kësaj, do të shihni në vijim:

Siç mund ta shihni, makroja jonë VBA përdor plotësimin automatik për tëplotësoni rreshtat e kolonës B në mënyrë efektive.

Lexo më shumë: Si të plotësoni automatikisht muajt në Excel

5 shembuj me Formulën e plotësimit automatik deri në rreshtin e fundit në Excel VBA

1. VBA për të plotësuar automatikisht një formulë deri në rreshtin e fundit të përdorur

Në mënyrë të ngjashme, ju mund të plotësoni automatikisht një formulë duke përdorur VBA. nëse i keni lexuar seksionet e mëparshme, mund ta kryeni lehtësisht këtë. Problemi lind kur duhet të plotësoni automatikisht formulën deri në rreshtin e fundit. Së pari duhet të identifikoni rreshtin e fundit të përdorur. Pas kësaj, kodi VBA do t'i plotësojë ato automatikisht.

Hidhini një sy të dhënave të mëposhtme:

Këtu, ne kemi një grup të dhënash shitjesh të disa shitësve . Qëllimi ynë është të shtojmë shitjet e muajit janar dhe shkurt në kolonën Total. Pas kësaj, ne do të përdorim metodën e plotësimit automatik duke përdorur VBA deri në rreshtin e fundit të përdorur në Excel.

Për ta ekzekutuar këtë, shkruani kodin e mëposhtëm:

2291

rresht_i fundit = Cells(Rreshta.Numri, 2).End(xlUp).Rreshti: Kthon rreshtin e fundit te perdorur nga kolona B. Mund te zgjidhni cdo kolone nga grupi juaj i te dhenave.

Diapazoni (“E5”).Formula = “=SUM(C5:D5)”: Ne shtojmë shitjet e Qeliza C5 dhe D5.

Range(“E5”).AutoFill Destination:=Range(“E5:E” & last_row): Pas marrjes së rezultatit, ne përdorim plotësimin automatik. Fillon të plotësohet automatikisht nga Qeliza E5 në rreshtin e fundit të përdorur që kemi marrë më parë.

Tani, ekzekutoni makro VBA. Pas kësaj, do të shihni daljen e mëposhtme:

Siju mund të shihni, kodi ynë VBA shton rezultatin e parë dhe plotëson automatikisht formulën në rreshtin e fundit në Excel.

Lexo më shumë: Si të plotësoni në rreshtin e fundit me të dhëna në Excel

2. Plotësimi automatik i VBA nga ActiveCell në rreshtin e fundit

Tani, nëse nuk dëshironi të përdorni diapazonin e caktuar në metodën e plotësimit automatik, mund të përdorni vlerat e qelizës aktive , formulat ose formatet. Kur klikoni në një qelizë dhe dëshironi të plotësoni automatikisht pjesën tjetër të rreshtave me formulën e qelizës aktive, përdorni këtë metodë.

Është e ngjashme me shembullin e mëparshëm. Ne po përdorim grupin e mëparshëm të të dhënave:

Tani, do të shtojmë shitjet e janarit dhe shkurtit dhe do të plotësojmë automatikisht formulën në rreshtin e fundit duke përdorur Excel VBA.

Tani, shkruani kodin e mëposhtëm:

7213

last_row = Cells(Rows.Count, 2).End(xlUp).Rresht: Kthon të fundit të përdorur rresht nga kolona B. Mund të zgjidhni çdo kolonë nga grupi juaj i të dhënave.

ActiveCell.Formula = “=SUM(C5:D5)”: Ne shtojmë shitjet e Cell C5 dhe D5 në qelizën tuaj të zgjedhur.

ActiveCell.AutoFill Destinacioni:=Range(ActiveCell.Address & ":E" & rreshti_i fundit): Pas marrjes së rezultatit, ne përdorim plotësimin automatik. Fillon të plotësohet automatikisht nga qeliza aktive në rreshtin e fundit të përdorur që kemi marrë më parë.

Tani, zgjidhni Qeliza E5 .

Pas kësaj, ekzekutoni makro VBA për të shtuar formulën dhe plotësoni automatikisht në rreshtin e fundit.

Siç mund ta shihni, nepërdori me sukses makro VBA për të plotësuar automatikisht formulën në rreshtin e fundit.

Lexime të ngjashme

  • Si të përsërisni rreshtat një numër të caktuar herë në Excel (4 mënyra)
  • Numëroni automatikisht rreshtat në Excel (8 metoda)
  • Si të mbushni kolonën në Excel me të njëjtën vlerë (9 truke )
  • Apliko shkurtoren e plotësimit automatik në Excel (7 metoda)

3. Plotësimi automatik në rreshtin e fundit duke përdorur intervalin dinamik me Excel VBA

Më parë ju treguam disa makro VBA për t'u plotësuar automatikisht deri në rreshtin e fundit në Excel. Tani, në ata shembuj, ne kemi përdorur tashmë vargjet dinamike.

Për të kuptuar intervalet statike, hidhini një sy kodit të mëposhtëm:

8774

Ne në thelb i thamë Excel-it të fuste një formulë në Qeliza E5 dhe plotëso automatikisht nga Qelia E5 në Qelia E11 . Këtu, ne specifikuam gamën. Po sikur të shtoni më shumë rreshta? Në atë rast, VBA-ja jonë nuk do t'i plotësojë automatikisht ato rreshta shtesë sepse ne i kemi thënë tashmë që të plotësojë automatikisht një gamë specifike.

Për të zgjidhur këtë problem, unë dola me një zgjidhje që mund të marrë një diapazon dinamik:

6870

Siç mund ta shihni, fillimisht ne gjejmë rreshtin e fundit nga kjo linjë kodi:

5053

Pas kësaj, ne plotësojmë automatikisht në rreshtin e fundit duke përdorur intervalin dinamik:

6358

Jo Pavarësisht se sa rreshta shtoni në grupin tuaj të të dhënave, ky kod VBA do të jetë i suksesshëm për t'i identifikuar ato. Dhe do t'i plotësojë ato automatikisht me formulën.

Diapazoni dinamik në thelb do të thotë që nuk keni nevojë të futni diapazoninme dorë. Excel do ta përditësojë herë pas here.

Lexo më shumë: Excel VBA: Metoda e plotësimit automatik të klasës së intervalit dështoi

4. Plotësimi automatik deri në fund Kolona në Excel duke përdorur VBA

Nëse i keni lexuar seksionet e mëparshme për të plotësuar automatikisht deri në rreshtin e fundit, atëherë mund ta plotësoni automatikisht në kolonën e fundit me lehtësi. Thjesht duhet të gjeni numrin e kolonës së fundit dhe ta plotësoni automatikisht me Excel VBA.

Hidhini një sy grupit të mëposhtëm të të dhënave:

Këtu kemi një grup të dhënash që përfaqëson një buxhet 3-mujor të një personi. Tani, ne do të shtojmë shpenzimet e të gjithë muajve dhe do të plotësojmë automatikisht formulën në kolonën e fundit duke përdorur Excel VBA.

Tani, shkruani kodin e mëposhtëm:

4058

kolona_e fundit = Cells(6, Columns.Count).End(xlToLeft).Kollona: Kthon kolonën e fundit të përdorur nga rreshti 6. Mund të zgjidhni çdo rresht për të filluar nga grupi juaj i të dhënave.

Sfera (“D9”). Formula = “=SUM(D6:D8)”: Shtojmë shpenzimet e tre muajve (janar, shkurt. mars).

Range(“D9”).AutoFill Destination:=Range(“D9”, Cells(9, last_column)): Pas marrjes së rezultatit, ne përdorim plotësimin automatik. Këtu, rreshti ynë kryesor është rreshti numër 9. Të gjitha të dhënat tona do të jenë në këtë rresht. Fillon të plotësohet automatikisht nga kolona D në kolonën e fundit të përdorur që kemi marrë më parë nga kolona_fundit .

Pas ekzekutimit të makros, do të shihni daljen e mëposhtme :

Siç mund ta shihni, ne përdorëm me sukses VBA për të plotësuar automatikishtformula në kolonën e fundit në Excel.

Lexo më shumë: Si të plotësoni automatikisht një kolonë në Excel

5. Plotësoni automatikisht numrat sekuencialë në rreshtin e fundit në Excel duke përdorur VBA

Mund të plotësoni automatikisht edhe numra sekuencialë duke përdorur plotësimin automatik në VBA. Këtu, duhet të përdorni xlFillSeries në llojin e plotësimit automatik. Excel do ta kuptojë modelin dhe do t'i mbushë me të.

Hidhini një sy pamjes së mëposhtme të ekranit:

Këtu kemi disa emra. Dhe ne duam t'u japim atyre një ID në mënyrë sekuenciale. Për ta bërë këtë, ne do të përdorim plotësimin automatik VBA.

Plotëso automatikisht numrat sekuencialë me diapazonin statik: 

2763

Pas ekzekutimit të kodit, do të shihni daljen:

Nëse dëshironi të përdorni diapazonin dinamik, atëherë përdorni kodin e mëposhtëm:

3405

rreshti_fundit = Cells(Rreshtat. Numëroni, 2). Fund(xlUp).Rreshti: Kthen rreshtin e fundit të përdorur nga kolona B.

Range(“C5”).AutoFill Destination:=Range(“C5 :C” & amp; last_row), Type:=xlFillSeries: Do të marrë ID-në e Cell C5 dhe do të plotësohet automatikisht në rreshtin e fundit të përdorur në kolonën C duke përdorur xlFillSeries ,

Në të dyja rastet, do të merrni të njëjtin rezultat:

Siç mund ta shihni, ne përdorëm me sukses kodin VBA për të plotësoni automatikisht numrat vijues në Excel.

Lexo më shumë: Formulat e Excel për të plotësuar numrat e sekuencës Kapërceni rreshtat e fshehur

💬 Gjërat që duhen mbajtur mend

✎ Mund të ndaloni plotësimin automatik Mënyra të ndryshme nëse nuk e dëshironi .

✎ Nuk mund të plotësoni automatikisht shumë rreshta dhe kolona njëkohësisht. Bëjeni një nga një.

Përfundim

Për të përfunduar, shpresoj që ky tutorial t'ju ketë ofruar një pjesë të njohurive të dobishme për të plotësuar automatikisht formulën deri në rreshtin e fundit duke përdorur kodet VBA. Ne ju rekomandojmë të mësoni dhe zbatoni të gjitha këto udhëzime në grupin tuaj të të dhënave. Shkarkoni fletoren e punës praktike dhe provoni vetë. Gjithashtu, mos ngurroni të jepni komente në seksionin e komenteve. Komentet tuaja të vlefshme na mbajnë të motivuar për të krijuar mësime të tilla.

Mos harroni të kontrolloni faqen tonë të internetit Exceldemy.com për probleme dhe zgjidhje të ndryshme të lidhura me Excel.

Vazhdoni të mësoni metoda të reja dhe vazhdoni të rriteni!

Postimi i mëparshëm Panelet e ngrirjes së Excel nuk funksionojnë (5 shkaqe me rregullime)
Postimi i radhës Si të shtoni shigjeta lart dhe poshtë në Excel (4 mënyra të thjeshta)

Hugh West është një trajner dhe analist me përvojë të lartë në Excel me mbi 10 vjet përvojë në industri. Ai ka një diplomë Bachelor në Kontabilitet dhe Financë dhe një Master në Administrim Biznesi. Hugh ka një pasion për mësimdhënien dhe ka zhvilluar një qasje unike të mësimdhënies që është e lehtë për t'u ndjekur dhe kuptuar. Njohuritë e tij eksperte të Excel-it kanë ndihmuar mijëra studentë dhe profesionistë në mbarë botën të përmirësojnë aftësitë e tyre dhe të shkëlqejnë në karrierën e tyre. Nëpërmjet blogut të tij, Hugh ndan njohuritë e tij me botën, duke ofruar mësime falas në Excel dhe trajnime në internet për të ndihmuar individët dhe bizneset të arrijnë potencialin e tyre të plotë.