Hvordan finder jeg den sidste række eller kolonne med data i Excel?
I et stort regneark, hvis du hurtigt og let vil bestemme den sidste række eller kolonne, der indeholder værdier, kan du bare trække rullepanelet for at finde det. Men det vil være smertefuldt, hvis der er tusindvis af datarækker i dit regneark. I denne artikel vil jeg tale om nogle nyttige VBA-koder til dig til at løse denne opgave.
Find den sidste række eller kolonne med data ved hjælp af VBA-kode
Find og vælg sidste række eller kolonne med data med Kutools til Excel
Find den sidste række eller kolonne med data ved hjælp af VBA-kode
De fleste af os kan overveje at finde den sidste celle ved at trykke på Ctrl + slut taster for at finde den sidste række og kolonne, men genvejstasten finder ikke den nøjagtige værdiecelle, hvis der er nogle celler, der har formatering under dataområdet. Så her skal du bruge følgende VBA-kode:
1. Aktivér dit regneark, som du vil bestemme den sidste række eller kolonne med data.
2. Hold nede ALT + F11 nøgler til at åbne Vinduet Microsoft Visual Basic til applikationer.
3. Klik derefter på indsatte > Moduler, og indsæt følgende kode i Modul vindue.
VBA-kode: Find sidste række med 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. Og tryk derefter på F5 nøgle for at køre denne kode, og hurtigboks vises for at fortælle dig række nummeret på det anvendte interval. Se skærmbillede:
5. Fortsæt med at klikke OK knappen, denne gang er det sidste række nummer med værdier vist som følgende skærmbillede vist:
Bemærk: For at finde den sidste kolonne med data skal du anvende denne kode:
VBA-kode: Find sidste kolonne med 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
Find og vælg sidste række eller kolonne med data med Kutools til Excel
Hvis du direkte vil finde og vælge den sidste række eller kolonne med data i Excel, vises Vælg Sidste række og Vælg Sidste kolonne forsyninger af Kutools af Excel kan hjælpe dig. Gør som følger.
Før påføring Kutools til Excel, Bedes download og installer det først.
1. Hvis du vil finde og vælge sidste række med data, skal du klikke Kutools > Type > Vælg Sidste celle > Sidste række. Se skærmbillede:
Bemærk: Klik for at finde og vælge den sidste kolonne med data Kutools > Type > Vælg Sidste celle > Sidste kolonne.
Derefter findes den sidste række eller kolonne med data i det aktuelle regneark og vælges med det samme.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
Find og vælg sidste række eller kolonne med data med Kutools til Excel
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!