Как да намеря последния ред или колона с данни в Excel?
В голям работен лист, ако искате бързо и лесно да определите последния ред или колона, която съдържа стойности, можете просто да плъзнете лентата за превъртане, за да го намерите. Но ще бъде болезнено, ако в работния ви лист има хиляди редове с данни. В тази статия ще говоря за полезен VBA код за решаване на тази задача.
Намерете последния ред или колона с данни, като използвате VBA код
Намерете и изберете последния ред или колона с данни с Kutools за Excel
Намерете последния ред или колона с данни, като използвате VBA код
Повечето от нас може би смятат да намерят последната клетка чрез натискане Ctrl +End клавиши за намиране на последния ред и колона, но клавишната комбинация няма да намери клетката с точна стойност, ако има някои клетки, които имат форматиране под диапазона от данни. Така че тук, моля, използвайте следния VBA код:
1. Активирайте работния си лист, за който искате да определите последния ред или колона с данни.
2. Задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.
3, След това кликнете Поставете > Модулии поставете следния код в Прозорец на модула.
VBA код: Намерете последния ред с данни
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. И след това натиснете F5 за да стартирате този код и ще изскочи полето за подкана, за да ви каже номера на реда на използвания диапазон. Вижте екранна снимка:
5. Продължете да щракате OK този път номерът на последния ред със стойности е показан, както е показано на следната екранна снимка:
Забележка: За да намерите последната колона с данни, моля, приложете този код:
VBA код: Намерете последната колона с данни
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
Намерете и изберете последния ред или колона с данни с Kutools за Excel
Ако искате директно да намерите и изберете последния ред или колона с данни в Excel, Изберете Последен ред и Изберете Последна колона комунални услуги на Kutools на Excel може да ви помогне. Моля, направете следното.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Ако искате да намерите и изберете последния ред с данни, моля щракнете Kutools > Изберете > Изберете Последна клетка > Последен ред. Вижте екранна снимка:
Забележка: За да намерите и изберете последната колона с данни, моля щракнете Kutools > Изберете > Изберете Последна клетка > Последна колона.
Тогава последният ред или колона с данни в текущия работен лист се намира и избира незабавно.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Намерете и изберете последния ред или колона с данни с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!