Sut i ddod o hyd i'r rhes neu'r golofn olaf gyda data yn Excel?
Mewn taflen waith fawr, os ydych chi am bennu'r rhes neu'r golofn olaf sy'n cynnwys gwerthoedd yn gyflym ac yn hawdd, gallwch lusgo'r bar sgrolio i ddod o hyd iddo. Ond bydd yn boenus os oes miloedd o resi data yn eich taflen waith. Yn yr erthygl hon, byddaf yn siarad am ryw god VBA defnyddiol i chi ddatrys y dasg hon.
Dewch o hyd i'r rhes neu'r golofn olaf gyda data trwy ddefnyddio cod VBA
Darganfod a dewis rhes olaf neu golofn gyda data gyda Kutools ar gyfer Excel
Dewch o hyd i'r rhes neu'r golofn olaf gyda data trwy ddefnyddio cod VBA
Efallai y bydd y mwyafrif ohonom yn ystyried lleoli'r gell olaf trwy wasgu Ctrl + Diwedd allweddi i ddod o hyd i'r rhes a'r golofn olaf, ond ni fydd yr allwedd llwybr byr yn lleoli'r gell werth gywir os oes rhai celloedd sydd â fformatio islaw'r ystod ddata. Felly yma, defnyddiwch y cod VBA canlynol:
1. Ysgogwch eich taflen waith yr ydych am bennu'r rhes neu'r golofn olaf gyda data.
2. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
3. Yna cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.
Cod VBA: Dewch o hyd i'r rhes olaf gyda data
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. Ac yna pwyswch F5 allwedd i redeg y cod hwn, a bydd y blwch prydlon yn popio allan i ddweud wrthych rif rhes yr ystod a ddefnyddir. Gweler y screenshot:
5. Ewch ymlaen i glicio OK botwm, y tro hwn mae'r rhif rhes olaf gyda gwerthoedd wedi'i arddangos fel y dangosir ar-lein:
Nodyn: I ddod o hyd i'r golofn olaf gyda data, cymhwyswch y cod hwn:
Cod VBA: Dewch o hyd i'r golofn ddiwethaf gyda data
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Darganfod a dewis rhes olaf neu golofn gyda data gyda Kutools ar gyfer Excel
Os ydych chi am ddarganfod a dewis y rhes neu'r golofn olaf yn uniongyrchol gyda data yn Excel, mae'r Dewiswch Last Row a Dewiswch Y Golofn Olaf cyfleustodau Kutools o Excel yn gallu eich helpu chi. Gwnewch fel a ganlyn.
Cyn gwneud cais Kutools ar gyfer Excel, os gwelwch yn dda ei lawrlwytho a'i osod yn gyntaf.
1. Os ydych chi am ddarganfod a dewis rhes olaf gyda data, cliciwch Kutools > dewiswch > Dewiswch Last Cell > Rhes Olaf. Gweler y screenshot:
Nodyn: I ddarganfod a dewis y golofn olaf gyda data, cliciwch Kutools > dewiswch > Dewiswch Last Cell > Colofn Olaf.
Yna mae'r rhes neu'r golofn olaf gyda data yn y daflen waith gyfredol yn cael ei darganfod a'i dewis ar unwaith.
Os ydych chi am gael treial am ddim (30 diwrnod) o'r cyfleustodau hwn, cliciwch i'w lawrlwytho, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.
Darganfod a dewis rhes olaf neu golofn gyda data gyda Kutools ar gyfer Excel
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
