Прескочи на основното съдържание

Как да отида до първия или последния празен ред в Excel?

Автор: Слънце Последна промяна: 2020-05-28

Отнема много време да превъртите и да отидете до първия или последния празен ред, докато работите върху огромен работен лист. В тази статия представям някои трикове за бързо преминаване към първия или последния празен ред в Excel.

Отидете до първия или последния празен ред с VBA

Отидете до последния празен ред или колона с помощната програма Select Last Rowдобра идея3


Отидете до първия или последния празен ред с VBA

Ето два VBA, които могат да ви помогнат бързо да отидете до първия или последния празен ред в активния лист, моля, направете следното.

1. Натиснете Alt + F11 ключове за активиране Microsoft Visual Basic за приложения прозорец. Вижте екранна снимка:
документ първи последен празен 1

2. След това кликнете Поставете > Модули и поставете кода по-долу в скрипта. Вижте екранна снимка:

VBA: Отидете на първия празен ред.

Sub Findfirstblankcell()
'UpdatebyExtendoffice20170712
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        If Rng.Value = "" Then
            MsgBox "No Value, in " & Rng.Address
        End If
    Next
End Sub
документ първи последен празен 2
документ първи последен празен 3

3. Натиснете F5 за да изпълните кода, и изскача диалогов прозорец, който ви напомня да изберете диапазон, който да работи. Вижте екранна снимка:
документ първи последен празен 4

4. кликване OK. Изскача диалогов прозорец, за да ви напомни референтната клетка на първия празен ред, вижте екранната снимка:
документ първи последен празен 5

5. кликване OK многократно, за да затворите Microsoft Excel диалогов прозорец. И след това отидете на Име кутия, въведете A2 в нея, натиснете Въведете и ще отидете на първия празен ред. Вижте екранна снимка:
документ първи последен празен 6

Съвет: Ако искате да отидете до последния празен ред, моля, използвайте кода VBA по-долу и след като натиснете F5 клавиш, курсорът отива директно на последния празен ред.

VBA: Отидете до последния празен ред

Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

Забележка: Този VBA ще избере последната празна клетка в колона A. За да изберете последната празна клетка в друга колона, моля, променете 1 в кода Cells(Rows.Count, 1) на друго число.


Отидете до последния празен ред или колона с помощната програма Select Last Row

Ако искате бързо да отидете до последния празен ред или колона, можете да кандидатствате Kutools за ExcelЕ Последен ред or Последна колона utility. С тях можете бързо да отидете до последната непразна клетка на последния ред или колона в текущия работен лист и след това следващата клетка е последният празен ред или празна колона.

Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. 

След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)

Кликнете Kutools > Изберете > Изберете Последна клетка > Последен ред/Последна колона. Вижте екранна снимка:

документ първи последен празен 7

След това се избират последните непразни клетки в последния ред (или колона). Просто натиснете клавиша със стрелка надолу (или клавиша със стрелка надясно), за да активирате последния празен ред (или колона).


Относителни статии

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ótimo post, Resolveu meu problema:
Achando a primeira célula vazia de determinada coluna de uma planilha.

Sub SelecionaPróximaCélulaVazia()
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End Sub

Este VBA selecionará a última célula vazia na coluna B. Para selecionar a última célula vazia em outra coluna, altere 2 no código Cells (Rows.Count, 2) para outro número.
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub



How to try this on sheet2 from sheet1
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations