Kako najti zadnjo vrstico ali stolpec s podatki v Excelu?
Če želite na velikem delovnem listu hitro in enostavno določiti zadnjo vrstico ali stolpec, ki vsebuje vrednosti, preprosto povlecite drsnik, da ga najdete. Boleče pa bo, če bo na vašem delovnem listu na tisoče podatkovnih vrstic. V tem članku bom govoril o uporabni kodi VBA, s katero boste lahko rešili to nalogo.
Poiščite zadnjo vrstico ali stolpec s podatki s pomočjo kode VBA
Poiščite in izberite zadnjo vrstico ali stolpec s podatki s Kutools za Excel
Poiščite zadnjo vrstico ali stolpec s podatki s pomočjo kode VBA
Večina od nas morda razmišlja, da bi s pritiskom našla zadnjo celico Ctrl + Konec tipke, da poiščete zadnjo vrstico in stolpec, vendar bližnjična tipka ne bo našla natančne celice vrednosti, če je nekaj celic z oblikovanjem pod obsegom podatkov. Torej, tukaj uporabite naslednjo kodo VBA:
1. Aktivirajte svoj delovni list, za katerega želite določiti zadnjo vrstico ali stolpec s podatki.
2. Držite tipko ALT + F11 tipke za odpiranje Okno Microsoft Visual Basic for Applications.
3. Nato kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: poiščite zadnjo vrstico s podatki
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. In nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vam bo sporočilo številko vrstice uporabljenega obsega. Oglejte si posnetek zaslona:
5. Pojdi na klik OK , tokrat je bila prikazana zadnja številka vrstice z vrednostmi, kot je prikazano na sliki spodaj:
Opomba: Če želite poiskati zadnji stolpec s podatki, uporabite to kodo:
Koda VBA: poiščite zadnji stolpec s podatki
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
Poiščite in izberite zadnjo vrstico ali stolpec s podatki s Kutools za Excel
Če želite neposredno najti in izbrati zadnjo vrstico ali stolpec s podatki v Excelu, se Izberite Zadnja vrstica in Izberite Zadnji stolpec gospodarske javne službe Kutools v Excelu vam lahko pomaga. Naredite naslednje.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. Če želite najti in izbrati zadnjo vrstico s podatki, kliknite Kutools > Izberite > Izberite Zadnja celica > Zadnja vrstica. Oglejte si posnetek zaslona:
Opombe: Za iskanje in izbiro zadnjega stolpca s podatki kliknite Kutools > Izberite > Izberite Zadnja celica > Zadnji stolpec.
Nato se poišče in takoj izbere zadnja vrstica ali stolpec s podatki na trenutnem delovnem listu.
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Poiščite in izberite zadnjo vrstico ali stolpec s podatki s Kutools za Excel
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!