Yn y VBA gallwch ddefnyddio gwahanol ddulliau i ddod o hyd i'r rhes olaf. Yn yr erthygl hon, rydw i'n mynd i esbonio gwahanol ddulliau o VBA ddod o hyd i'r rhes olaf yn Excel.

I wneud yr esboniad hwn yn weladwy, rydw i'n mynd i ddefnyddio set ddata sampl. Mae 4 colofn yn y set ddata sy'n cynrychioli gwybodaeth gwerthiant. Y colofnau hyn yw Person Gwerthu, Rhanbarth, Cynnyrch, a Pris .

7> Lawrlwythwch i Ymarfer VBA Find Last Row.xlsm

Ffyrdd i VBA Darganfod Rhes Olaf yn Excel

1. Defnyddio SpecialCells i Dod o Hyd i'r Rhes Olaf

Gallwch ddefnyddio'r dull SpecialCells i ddod o hyd i'r rhes olaf gan ddefnyddio VBA .

Yn gyntaf, agorwch y Datblygwr tab >> yna dewiswch Visual Basic

Bydd ffenestr newydd o Microsoft Visual Basic for Applications yn ymddangos.

Nawr, o Mewnosod >> dewiswch Modiwl

A Bydd modiwl yn cael ei agor.

Yna ysgrifennwch y cod canlynol yn y >Modiwl .

2130

Yma, rydw i wedi creu is-drefn o'r enw LastRow_SpecialCells , lle mae math Long o newidyn LastRow wedi'i ddatgan.

Yna diffiniwyd y newidyn gan ddefnyddio'r dull Range.SpecialCells . Yma, rydw i wedi defnyddio colofn A ( A: A ) fel yr ystod. Cyn belled â bod xlCellTypeLastCell yn baramedr math o Celloedd Arbennig , bydd hwn yn dychwelyd y gell olaf ar gyfer yr amrediad (ar gyfer yr achos yma, o'r golofn A ).

Rwyf wedi defnyddio blwch neges i ddangos y canlyniad.

Ar ôl hynny, Cadw y cod ac ewch yn ôl i'r taflen waith.

Eto, agorwch y tab Gweld >> o Macros >> dewiswch Gweld Macros

Yna, bydd blwch deialog yn ymddangos.

<1

Nawr, o'r enw Macro dewiswch y LastRow_SpecialCells hefyd dewiswch y llyfr gwaith o fewn Macros yn .

Yn olaf, Rhedeg y Macro a ddewiswyd.

Felly, bydd yn agor blwch neges yn dangos rhif y rhes olaf.

2. Defnyddio Rows.Count ar gyfer Celloedd Di-Wag

Gallwch ddefnyddio'r dull Rows.Count i ddod o hyd i'r rhes olaf gan ddefnyddio VBA .

Nawr, agorwch y tab Datblygwr >> yna dewiswch Visual Basic

Ffenestr newydd o Microsoft Visual Basic ar gyfer Cymwysiadau yn ymddangos.

Nawr, o Mewnosod >> dewiswch Modiwl

A Bydd modiwl yn cael ei agor.

Yna ysgrifennwch y cod canlynol yn y >Modiwl .

1829

Yma, rwyf wedi creu is-weithdrefn o'r enw LastRow_NonEmpty, lle mae math Long o newidyn LastRow wedi ei ddatgan.

Nawr, bydd CELLS(Rows.Count, 1) yn cyfri sawl rhes sydd yn y golofn gyntaf. Yna defnyddir Diwedd(xlUp). Row nawr bydd hwn yn dod o hyd i'r rhes olaf a ddefnyddiwyd mewn ystod Excel.

Yn y diwedd, rwyf wedi defnyddio blwch neges i ddangos ycanlyniad.

Yna, Cadw y cod ac ewch yn ôl i'r daflen waith.

Yma, agorwch y Gweld tab >> o Macros >> dewiswch Gweld Macros

Nawr, bydd blwch deialog yn ymddangos.

<1

Yna, o'r enw Macro dewiswch y LastRow_NonEmpty hefyd dewiswch y llyfr gwaith o fewn Macros yn .

Yn olaf, Rhedeg y Macro a ddewiswyd.

Felly, bydd yn popio blwch neges yn dangos rhif y rhes olaf.

3. Gan ddefnyddio Rows.Count ar gyfer Unrhyw Golofn Ddewisol

Drwy ddefnyddio unrhyw golofn a ddewiswyd yn VBA, gallwch ddod o hyd i'r rhes olaf.

Yn gyntaf , agorwch y tab Datblygwr >> yna dewiswch Visual Basic

Bydd ffenestr newydd o Microsoft Visual Basic for Applications yn ymddangos.

Nawr, o Mewnosod >> dewiswch Modiwl

A Bydd modiwl yn cael ei agor.

Yna ysgrifennwch y cod canlynol yn y >Modiwl .

3743

Yma, rwyf wedi creu is-weithdrefn o'r enw LastRow_AnyColumn, lle mae math Long o newidyn LastRow wedi ei ddatgan.

Yna, yn yr Ystod Ystod a roddwyd i'r golofn B fel paramedr a hefyd Rhesi.Cyfrif , hwn yn cyfrif sawl rhes sydd mewn colofn a roddir B . Nesaf, defnyddir Diwedd(xlup). Rhes a fydd yn dod o hyd i'r rhes olaf a ddefnyddiwyd mewn ystod Excel.

Yn olaf, rwyf wedi defnyddio blwch negeseuon i ddangos ycanlyniad.

Nesaf, Cadw y cod ac ewch yn ôl i'r daflen waith.

Yna, agorwch y tab Gweld >> o Macros >> dewiswch Gweld Macros

Yma, bydd blwch deialog yn ymddangos.

<1

Nawr, o'r enw Macro dewiswch y LastRow_AnyColumn hefyd dewiswch y llyfr gwaith o fewn Macros yn .

Yn olaf, Rhedeg y Macro a ddewiswyd.

Felly, bydd yn agor blwch neges yn dangos rhif y rhes olaf.

Darlleniadau Tebyg:

VBA Darganfod mewn Colofn yn Excel (7 Dull)

Canfod ac Amnewid Gan Ddefnyddio VBA (11 Ffyrdd)

Dod o Hyd i Gyfateb Union Gan Ddefnyddio VBA yn Excel (5 Ffordd)

Sut i Dod o Hyd i Llinyn gyda VBA yn Excel (8 Enghraifft)

4. Defnyddio UsedRange i Ffeindio Rhes Olaf

Gallwch ddefnyddio priodwedd UsedRange y daflen waith i ddod o hyd i'r olaf rhes gan ddefnyddio VBA .

Nawr, agorwch y tab Datblygwr >> yna dewiswch Visual Basic

Yna, bydd ffenestr newydd o Microsoft Visual Basic for Applications yn ymddangos.

0>Nawr, o Mewnosod >> dewiswch Modiwl

A Bydd Modiwl yn cael ei agor.

Yna, ysgrifennwch y cod canlynol yn y

2> Modiwl .

8555

Yma, rwyf wedi creu is-weithdrefn o'r enw LastRow_UsedRange, lle mae math Long o newidyn Mae LastRow wedi'i ddatgan.

Nesaf, diffiniwyd ynewidyn gan ddefnyddio'r dull ActiveSheet.UsedRange.Rows hefyd wedi darparu ActiveSheet.UsedRange.Rows.Count fel y paramedr o ActiveSheet.UsedRange.Rows , bydd hyn yn dychwelyd y rhes olaf.

Rwyf wedi defnyddio blwch neges i ddangos y canlyniad.

Nawr, Cadw y cod ac ewch yn ôl i'r daflen waith.

>Yna, agorwch y tab Gweld >> o Macros >> dewiswch Gweld Macros

Nesaf, bydd blwch deialog yn ymddangos.

Yna, o'r Macro enw dewiswch y LastRow_UsedRange hefyd dewiswch y llyfr gwaith o fewn Macros yn .

Yn olaf, Rhedwch y Macro a ddewiswyd>.

Felly, bydd yn ymddangos mewn blwch negeseuon yn dangos rhif y rhes olaf. Rhes

Gallwch ddefnyddio'r dull Range.Find i ddod o hyd i'r rhes olaf gan ddefnyddio VBA .

Nawr, agorwch y Datblygwr tab >> yna dewiswch Visual Basic

Yma, bydd ffenestr newydd o Microsoft Visual Basic for Applications yn ymddangos.

Nawr, o 2>Mewnosod >> dewiswch Modiwl

A Bydd Modiwl yn cael ei agor.

Yna ysgrifennwch y cod canlynol yn y Modiwl .

4735

Yma, rwyf wedi creu is-weithdrefn o'r enw Range_Find_Method, lle mae math Long o newidyn LastRow wedi'i ddatgan .

Yna diffiniodd y newidyn gan ddefnyddio'r dull Cells.Find . Yma, datganwyd 7paramedrau. Yn Pa paramedr defnyddiais (“*”) a fydd yn dod o hyd i'r gell gyntaf nad yw'n wag. Rhoddir A1 fel yr amrediad yn y paramedr Ar ôl i ddechrau. Yn y paramedr LookAt a ddarparwyd xlPart i edrych ar unrhyw ran o'r testun y tu mewn i'r gell.

LookIn:=xlFormulas bydd paramedr yn edrych am fformiwlâu os oes rhai. SearchOrder:=xlByRows Bydd y paramedr yn symud o'r dde i'r chwith a hefyd yn dolennu i fyny drwy bob rhes nes iddo ddod o hyd i gell nad yw'n wag.

MatchCase:=Anghywir bydd y paramedr yn dweud wrth Find i beidio ag ystyried llythrennau mawr neu fach. Pan ddarganfyddir rhif nad yw'n wag mae'n stopio ac yn dychwelyd rhif y rhes.

Rwyf wedi defnyddio blwch neges i ddangos y canlyniad.

Nawr, Cadw y cod ac ewch yn ôl i'r daflen waith.

Yma, agorwch y Gweld tab >> o Macros >> dewiswch Gweld Macros

Nawr, bydd blwch deialog yn ymddangos.

<1

Nawr, o'r Enw Macro dewiswch y Ystod_Find_Method hefyd dewiswch y daflen waith o fewn Macros yn .

Yn olaf, Rhedeg y Macro a ddewiswyd.

Felly, bydd yn popio blwch neges yn dangos rhif y rhes olaf.

Casgliad

Yn yr erthygl hon, rwyf wedi esbonio 5 ffordd i VBA ddod o hyd i'r rhes olaf yn Excel. Gallwch ddilyn unrhyw un o'r dulliau i ddod o hyd i'r rhes olaf. Rhag ofn bod gennych unrhyw ddryswch neu gwestiwn ynglŷn â'r dulliau hyn efallai y byddwchsylw isod.