Most av oss Excel? Kanskje vurdere å lokalisere den siste cellen ved å trykke Ctrl + End tastene for å finne den siste raden og kolonnen, men hurtigtasten vil ikke finne nøyaktig verdi celle hvis det er noen celler som har formaterings under dataområdet. Så her kan du bruke følgende VBA-kode:
1. Aktiver regnearket der du vil bestemme den siste raden eller kolonnen med data.
To. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Deretter klikker du Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Finn siste raden med data
Sub sblastRowOfASheet () 'Update 20140603Dim xLastRow Som LongxLastRow = Application.ActiveSheet.Cells.SpecialCells (xlLastCell) .RowMsgBox " Siste Brukt Row: "& xLastRowDo Mens Application.CountA (ActiveSheet.Rows (xLastRow)) = 0 og xLastRow < > 1 xLastRow = xLastRow - 1LoopMsgBox "Last Row med Data:" & xLastRowEnd Sub4. Og trykk F5 for å kjøre denne koden, og spør boks vil komme ut for å fortelle deg radnummer av den brukte rekkevidde. Se skjermbilde:
5. Gå på å klikke OK, denne gangen den siste radnummer med verdier har blitt vist som følgende skjermbilde vises:
Merk: For å finne den siste kolonnen med data, kan du bruke denne koden:
VBA-kode: Finn siste kolonnen med data
Sub sblastcolumnOfASheet () 'Update 20140603Dim xLastcolumn Som LongxLastcolumn = Application.ActiveSheet.Cells.SpecialCells (xlLastCell) .ColumnMsgBox "sist brukte kolonnen:" & xLastcolumnDo Mens Application.CountA (ActiveSheet.Columns (xLastcolumn)) = 0 og xLastcolumn < > 1 xLastcolumn = xLastcolumn - 1LoopMsgBox "Siste kolonne med data:" & xLastcolumnEnd Sub