Fformiwla AutoLlenwi i'r Rhes Olaf gydag Excel VBA (5 Enghraifft)

  • Rhannu Hwn
Hugh West

Os ydych chi'n gweithio gyda Microsoft Excel am ychydig, rydych chi'n gwybod pwysigrwydd AutoFill. Er mwyn copïo fformiwla ar draws y rhes neu'r golofn, rydym yn defnyddio'r dull hwn. Nawr, gallwn ddefnyddio hwn â llaw gan y llygoden. Ond, os oes gennych res fawr gyda data, bydd yn anodd copïo unrhyw fformiwla i'r rhes neu'r golofn olaf. Gallwch ddefnyddio'r cod VBA i AutoFill fformiwla i'r rhes neu golofn olaf yn rhwydd.

Yn y tiwtorial hwn, byddwch yn dysgu AutoFill fformiwla i'r rhes olaf yn Excel gan ddefnyddio codau VBA. Bydd y tiwtorial hwn yn brydlon gydag enghreifftiau addas a darluniau cywir. Felly, arhoswch gyda ni.

Lawrlwythwch Lyfr Gwaith Ymarfer

> Fformiwla Awtolenwi i'r Rhes Olaf.xlsm

Beth Sydd Awtolenwi ynddo Excel?

Nawr, mae awtolenwi yn nodwedd adeiledig o Microsoft Excel sy'n galluogi defnyddwyr i lenwi gweddill y rhesi neu'r colofnau yn awtomatig â gwerthoedd, fformatau neu fformiwlâu. Gallwch ei adnabod pan fyddwch chi'n mynd â'r cyrchwr i gornel dde waelod unrhyw gell. Rydyn ni'n ei alw'n driniwr awtolenwi o Excel.

Edrychwch ar y sgrinlun canlynol:

Yma, gallwch weld dau rif. Byddwn yn llenwi gweddill y rhesi gan ddefnyddio'r awtolenwi yn Excel.

Yn gyntaf, dewiswch yr ystod o gelloedd B5:B6. Wedi hynny, fe welwch y ddolen awtolenwi yn y gornel dde ar y gwaelod.

Nawr, llusgwch y ddolen awtolenwi hon i lawr.

Fel y gallwch weld, llenwodd Excel ygweddill y celloedd. Dyma'r defnydd sylfaenol o'r awtolenwi yn Excel.

Sut i Ddefnyddio Awtolenwi gydag Excel VBA

Os oes gennych chi nifer fawr o resi neu golofnau mewn ystod benodol, mae'n rhaid i chi lusgo i lawr handlen yr awtolenwi i'r rhes neu'r golofn olaf. Mae’n broses brysur iawn. Diolch byth, gallwch ei leihau gan ddefnyddio'r codau VBA yn Excel. Gallwch ddefnyddio'r cod VBA i awtolenwi'r celloedd â gwerthoedd, fformiwlâu, neu fformatau.

Y Gystrawen Generig:

Ystod .AutoFill Cyrchfan, Math

Yma,

Ystod(“B5”): Y gell sydd â'r prif batrwm i lenwi gweddill y gyfres.

Cyrchfan: Ystod o gelloedd lle rydych am eu llenwi â'r gyfres patrwm.

> Teipiwch fel xlAutoFillType: Math o lenwi cyfres. Mae yna wahanol fathau o awtolenwi y gallwch eu dewis.

Darllenwch fwy: Sut i Ddefnyddio VBA AutoFill yn Excel

4 Math o AutoFill yn Excel VBA

Yn yr adran hon, byddaf yn trafod rhai o'r mathau o awtolenwi. Gwelsom eisoes y gallwn ddewis unrhyw fath o awtolenwi gan ddefnyddio'r xlAutoFillType. Yma, rwy'n dangos rhai enghreifftiau o hynny ichi.

1. xlFillDefault

Rydym eisoes wedi gweld y math hwn o awtolenwi yn yr enghraifft flaenorol.

Edrychwch ar y sgrinlun:

Teipiwch y cod VBA canlynol i lenwi gweddill y celloedd yn awtomatig:

7692

Nawr, rhedwch y macro VBA ac ar ôl hynny, fe welwch ycanlynol:

Mae'n llenwi gweddill y celloedd yn awtomatig gan ddefnyddio macro VBA.

2. xlFillCopy

I gopïo'r un gwerthoedd gallwch ddefnyddio'r math xlFillCopy yn y math awtolenwi.

Edrychwch ar y sgrinlun:

<0

Teipiwch y cod VBA canlynol i awtolenwi gweddill y celloedd:

7232

Nawr, rhedwch y macro VBA ac ar ôl hynny, fe welwch y canlynol:

Mae Excel yn llenwi gweddill y celloedd gyda'r un patrwm o werthoedd.

3. xlFillMonths

Gallwch hefyd lenwi misoedd gan ddefnyddio'r math awtolenwi xlFillMonths .

Edrychwch ar y sgrinlun:

1>

Yma, rydym wedi nodi dau fis Ionawr a Chwefror.

Teipiwch y cod VBA canlynol i awtolenwi gweddill y celloedd:

7885

Nawr, rhedwch y macro VBA ac ar ôl hynny, fe welwch y canlynol:

Mae Excel yn deall y patrymau yn awtomatig ac yn eu llenwi â nhw.

4. xlFillFormats

Gallwch hefyd gopïo fformatau i gelloedd eraill gan ddefnyddio'r awtolenwi VBA. Ar gyfer hynny, mae'n rhaid i chi ddefnyddio'r math awtolenwi xlFillFormats .

Edrychwch ar y sgrinlun:

Yma, mae gennym ni llenwi'r ddwy gell gyda rhai lliwiau.

Nawr, teipiwch y cod VBA canlynol i awtolenwi gweddill y celloedd:

4756

Nawr, rhedwch y macro VBA ac ar ôl hynny, fe welwch y canlynol:

Fel y gwelwch, mae ein macro VBA yn defnyddio'r awtolenwi illenwi'r rhesi o golofn B yn effeithiol.

Darllen mwy: Sut i Awtolenwi Misoedd yn Excel

5 Enghraifft gyda Fformiwla AutoFill i'r Rhes Olaf i mewn Excel VBA

1. VBA i Awtolenwi Fformiwla i Rhes a Ddefnyddiwyd ddiwethaf

Yn yr un modd, gallwch awtolenwi fformiwla gan ddefnyddio'r VBA. os ydych chi wedi darllen yr adrannau blaenorol, gallwch chi berfformio hyn yn hawdd. Mae'r broblem yn codi pan fydd yn rhaid i chi lenwi'r fformiwla'n awtomatig i'r rhes olaf. Mae'n rhaid i chi nodi'r rhes ddiwethaf a ddefnyddiwyd yn gyntaf. Ar ôl hynny, bydd y cod VBA yn eu llenwi'n awtomatig.

Edrychwch ar y set ddata ganlynol:

Yma, mae gennym set ddata gwerthiant o rai gwerthwyr . Ein nod yw ychwanegu gwerthiant Ionawr a Chwefror at y golofn Cyfanswm. Ar ôl hynny, byddwn yn defnyddio'r dull autofill gan ddefnyddio'r VBA i'r rhes olaf a ddefnyddiwyd yn Excel.

I weithredu hyn, teipiwch y cod canlynol:

6185

last_row = Celloedd(Rhesi.Count, 2).Diwedd(xlUp).Rhes: Mae'n dychwelyd y rhes olaf a ddefnyddiwyd o'r golofn B. Gallwch ddewis unrhyw golofn o'ch set ddata.

Ystod("E5").Fformiwla = "=SUM(C5:D5)": Rydym yn ychwanegu gwerthiant Cell C5 a D5.

Ystod("E5").AutoFill Destination:=Ystod("E5:E" & last_row):Ar ôl cael y canlyniad, rydym yn defnyddio'r awtolenwi. Mae'n dechrau llenwi'n awtomatig o Cell E5i'r rhes olaf a ddefnyddiwyd a gawsom o'r blaen.

Nawr, rhedwch y macro VBA. Wedi hynny, fe welwch yr allbwn canlynol:

Asgallwch weld, mae ein cod VBA yn ychwanegu'r canlyniad cyntaf ac yn awtolenwi'r fformiwla i'r rhes olaf yn Excel.

Darllenwch fwy: Sut i Lenwi Lawr i'r Rhes Olaf gyda Data yn Excel

2. VBA AutoFill o ActiveCell i Rhes Olaf

Nawr, os nad ydych am ddefnyddio'r ystod benodol yn y dull awtolenwi, gallwch ddefnyddio gwerthoedd y gell weithredol , fformiwlâu, neu fformatau. Pan fyddwch chi'n clicio ar gell ac eisiau awtolenwi gweddill y rhesi gyda fformiwla'r gell weithredol, defnyddiwch y dull hwn.

> Mae'n debyg i'r enghraifft flaenorol. Rydym yn defnyddio'r set ddata flaenorol:

Nawr, byddwn yn ychwanegu gwerthiant Ionawr a Chwefror ac yn awtolenwi'r fformiwla i'r rhes olaf gan ddefnyddio Excel VBA.

Nawr, teipiwch y cod canlynol:

3148

last_row = Celloedd(Rows.Count, 2).Diwedd(xlUp).Rhes: Mae'n dychwelyd yr olaf a ddefnyddiwyd rhes o golofn B. Gallwch ddewis unrhyw golofn o'ch set ddata.

ActiveCell.Formula = “=SUM(C5:D5)”: Rydym yn ychwanegu gwerthiannau Cell C5 a D5 yn eich cell ddewisol.

ActiveCell.AutoFill Cyrchfan:=Ystod(ActiveCell.Cyfeiriad &":E" & last_row): Ar ôl cael y canlyniad, rydym yn defnyddio'r autofill. Mae'n dechrau llenwi'n awtomatig o'r gell weithredol i'r rhes ddiwethaf a ddefnyddiwyd a gawsom yn flaenorol.

Nawr, dewiswch Cell E5 .

0> Ar ôl hynny, rhedwch y macro VBA i ychwanegu'r fformiwla a llenwi'n awtomatig i'r rhes olaf.defnyddio'r macro VBA yn llwyddiannus i awtolenwi'r fformiwla i'r rhes olaf.

Darlleniadau Tebyg

  • Sut i Ailadrodd Rhesi Nifer Penodedig o Amseroedd yn Excel (4 Ffordd)
  • Rhesi Rhif yn Awtomatig yn Excel (8 Dull)
  • Sut i Lenwi Colofn yn Excel gyda'r Un Gwerth (9 Tric )
  • Cymhwyso Llwybr Byr AutoFill yn Excel (7 Dull)

3. AutoFill to Last Row Gan Ddefnyddio Ystod Deinamig gydag Excel VBA

Yn flaenorol fe wnaethom ddangos rhai macros VBA i chi eu llenwi'n awtomatig i'r rhes olaf yn Excel. Nawr, yn yr enghreifftiau hynny, rydym eisoes wedi defnyddio ystodau deinamig.

I ddeall ystodau statig, edrychwch ar y cod canlynol:

3681

Yn y bôn, fe wnaethom ddweud wrth Excel am fewnbynnu fformiwla yn Cell E5 a'i llenwi'n awtomatig o Cell E5 i Cell E11 . Yma, rydym wedi nodi'r ystod. Beth os ydych chi'n ychwanegu mwy o resi? Yn yr achos hwnnw, ni fydd ein VBA yn awtolenwi'r rhesi ychwanegol hynny oherwydd ein bod eisoes wedi dweud wrtho am awtolenwi ystod benodol.

I ddatrys y broblem hon, lluniais ateb a all gymryd ystod ddeinamig:

5179

Fel y gallwch weld, yn gyntaf rydym yn dod o hyd i'r rhes olaf wrth y llinell god hon:

9939

Ar ôl hynny, rydym yn awtolenwi i'r rhes olaf gan ddefnyddio'r ystod ddeinamig:

3160

Na waeth faint o resi rydych chi'n eu hychwanegu at eich set ddata, bydd y cod VBA hwn yn llwyddiannus i'w hadnabod. A bydd yn eu llenwi'n awtomatig â'r fformiwla.

Yn y bôn, mae ystod ddeinamig yn golygu nad oes rhaid i chi fynd i mewn i'r ystodâ llaw. Bydd Excel yn ei ddiweddaru o bryd i'w gilydd.

Darllen mwy: Excel VBA: Methodd Dosbarthiad Ystod Awtolenwi wedi Methu

4. Awtolenwi i Diwethaf Colofn yn Excel Gan ddefnyddio VBA

Os ydych chi wedi darllen yr adrannau blaenorol i'w llenwi'n awtomatig i'r rhes olaf, yna gallwch chi lenwi'n awtomatig i'r golofn olaf yn hawdd. Mae'n rhaid i chi ddod o hyd i rif y golofn olaf a'i lenwi'n awtomatig ag Excel VBA.

Edrychwch ar y set ddata ganlynol:

Yma, mae gennym ni set ddata sy'n cynrychioli cyllideb 3 mis person. Nawr, byddwn yn ychwanegu treuliau'r holl fisoedd ac yn awtolenwi'r fformiwla i'r golofn olaf gan ddefnyddio'r Excel VBA.

Nawr, teipiwch y cod canlynol:

2088

6>last_column = Celloedd(6, Columns.Count).Diwedd(xlToLeft).Colofn: Mae'n dychwelyd y golofn ddiwethaf a ddefnyddiwyd o'r rhes 6. Gallwch ddewis unrhyw res i ddechrau o'ch set ddata.

Ystod(“D9”).Fformiwla = “=SUM(D6:D8)”:Rydym yn ychwanegu treuliau o tri mis (Ionawr, Chwefror Mawrth).

Amrediad("D9").AutoFill Cyrchfan:=Ystod("D9", Celloedd(9, last_column)): Ar ôl cael y canlyniad, rydym yn defnyddio'r awtolenwi. Yma, ein prif res yw rhes rhif 9. Bydd ein holl ddata yn y rhes hon. Mae'n dechrau llenwi'n awtomatig o golofn D i'r golofn a ddefnyddiwyd ddiwethaf a gawsom yn flaenorol gan y golofn_olaf .

Ar ôl rhedeg y macro, fe welwch yr allbwn canlynol :

Fel y gwelwch, fe wnaethom ddefnyddio'r VBA yn llwyddiannus i lenwi'r ffeil yn awtomatig.fformiwla i'r golofn olaf yn Excel.

Darllen mwy: Sut i Awtolenwi Colofn yn Excel

5. AwtoLlenwi Rhifau Dilyniannol i'r Rhes Olaf yn Excel Gan ddefnyddio VBA

Gallwch hefyd lenwi rhifau dilyniannol gan ddefnyddio'r awtolenwi yn VBA. Yma, mae'n rhaid i chi ddefnyddio xlFillSeries yn y math awtolenwi. Bydd Excel yn deall y patrwm ac yn eu llenwi ag ef.

Edrychwch ar y sgrinlun canlynol:

Yma, mae gennym rai enwau. Ac rydym am roi ID iddynt mewn modd dilyniannol. I wneud hyn, byddwn yn defnyddio'r awtolenwi VBA.

Awtolenwi Rhifau Dilyniannol gydag Ystod Statig:

4865

Ar ôl Rhedeg y cod, fe welwch yr allbwn:<1

Os ydych am ddefnyddio'r amrediad deinamig, yna defnyddiwch y cod canlynol:

2733

last_row = Celloedd(Rhesi. Cyfrwch, 2).Diwedd(xlUp).Rhes: Mae'n dychwelyd y rhes olaf a ddefnyddiwyd o'r golofn B.

Ystod("C5").AutoFill Cyrchfan:=Ystod("C5 :C” & last_row), Math:=xlFillSeries: Bydd yn cymryd ID Cell C5 ac yn awtolenwi i'r rhes olaf a ddefnyddiwyd yng Ngholofn C gan ddefnyddio'r >xlFillSeries ,

Yn y ddau achos, byddwch yn cael yr un allbwn:

Fel y gwelwch, rydym wedi defnyddio'r cod VBA yn llwyddiannus i awtolenwi rhifau dilyniannol yn Excel.

Darllen mwy: Fformiwlâu Excel i Lenwi Rhifau Dilyniant Hepgor Rhesi Cudd

💬 Pethau i'w Cofio

Gallwch atal yr awtolenwi i mewnAmrywiol ffyrdd os nad ydych ei eisiau .

Ni allwch awtolenwi rhesi a cholofnau lluosog ar yr un pryd. Gwnewch hyn fesul un.

Casgliad

I gloi, rwy'n gobeithio bod y tiwtorial hwn wedi rhoi darn o wybodaeth ddefnyddiol i chi i lenwi'r fformiwla yn awtomatig i'r rhes olaf gan ddefnyddio'r codau VBA. Rydym yn argymell eich bod yn dysgu ac yn cymhwyso'r holl gyfarwyddiadau hyn i'ch set ddata. Lawrlwythwch y gweithlyfr ymarfer a rhowch gynnig ar y rhain eich hun. Hefyd, mae croeso i chi roi adborth yn yr adran sylwadau. Mae eich adborth gwerthfawr yn ein cadw'n gymhellol i greu tiwtorialau fel hyn.

Peidiwch ag anghofio edrych ar ein gwefan Exceldemy.com am wahanol broblemau ac atebion sy'n ymwneud ag Excel.

Daliwch ati i ddysgu dulliau newydd a daliwch ati i dyfu!

Mae Hugh West yn hyfforddwr a dadansoddwr Excel hynod brofiadol gyda dros 10 mlynedd o brofiad yn y diwydiant. Mae ganddo radd Baglor mewn Cyfrifeg a Chyllid a gradd Meistr mewn Gweinyddu Busnes. Mae gan Hugh angerdd am addysgu ac mae wedi datblygu dull addysgu unigryw sy’n hawdd ei ddilyn a’i ddeall. Mae ei wybodaeth arbenigol o Excel wedi helpu miloedd o fyfyrwyr a gweithwyr proffesiynol ledled y byd i wella eu sgiliau a rhagori yn eu gyrfaoedd. Trwy ei flog, mae Hugh yn rhannu ei wybodaeth gyda’r byd, gan gynnig tiwtorialau Excel am ddim a hyfforddiant ar-lein i helpu unigolion a busnesau i gyrraedd eu llawn botensial.