Перейти до основного матеріалу

Як перейти до першого або останнього порожнього рядка в Excel?

Прокручування та перехід до першого чи останнього порожнього рядка займає багато часу, поки ви працюєте над величезним аркушем. У цій статті я представляю деякі прийоми для швидкого переходу до першого або останнього порожнього рядка в Excel.

Перейдіть до першого або останнього порожнього рядка за допомогою VBA

Перейдіть до останнього порожнього рядка або стовпця за допомогою утиліти Select Last Rowгарна ідея3


Перейдіть до першого або останнього порожнього рядка за допомогою VBA

Ось два VBA можуть допомогти вам швидко перейти до першого або останнього порожнього рядка в активному аркуші, будь-ласка, виконайте наведені нижче дії.

1. прес Alt + F11 клавіші для ввімкнення Microsoft Visual Basic для додатків вікно. Дивіться знімок екрана:
doc перший останній порожній 1

2 Потім натисніть Insert > Модулі і вставте нижче код у сценарій. Дивіться знімок екрана:

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
doc перший останній порожній 2
doc перший останній порожній 3

3. прес F5 для запуску коду, і вискакує діалогове вікно з нагадуванням про вибір діапазону для роботи. Дивіться знімок екрана:
doc перший останній порожній 4

4. клацання OK. Вискакує діалогове вікно, щоб нагадати вам посилання на клітинку першого порожнього рядка, див. Знімок екрана:
doc перший останній порожній 5

5. клацання OK кілька разів, щоб закрити Microsoft Excel діалогове вікно. А потім перейдіть до ІМ'Я введіть у нього A2, натисніть Що натомість? Створіть віртуальну версію себе у клавішу, і ви перейдете до першого порожнього рядка. Дивіться знімок екрана:
doc перший останній порожній 6

Порада: Якщо ви хочете перейти до останнього порожнього рядка, використовуйте нижче код VBA і після натискання клавіші F5 клавіша, курсор переходить безпосередньо до останнього порожнього рядка.

VBA: Перейти до останнього порожнього рядка

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

примітки: Цей VBA вибере останню порожню комірку в стовпці А. Щоб вибрати останню порожню комірку в іншому стовпці, змініть 1 у коді Клітинки (Рядки. Кількість, 1) на інше число.


Перейдіть до останнього порожнього рядка або стовпця за допомогою утиліти Select Last Row

Якщо ви хочете швидко перейти до останнього порожнього рядка або стовпця, ви можете подати заявку Kutools для ExcelАвтора Останній ряд or Остання колонка uтилість. З ними ви можете швидко перейти до останньої непустої комірки останнього рядка або стовпця поточного робочого аркуша, а потім наступна комірка - останній порожній рядок або порожній стовпець.

після установки Kutools для Excel, виконайте наведені нижче дії.(Безкоштовно завантажте Kutools для Excel зараз!)

Натисніть Кутулс > Select > Виберіть Остання комірка > Останній ряд/Остання колонка. Дивіться знімок екрана:

doc перший останній порожній 7

Потім виділяються останні непорожні клітинки в останньому рядку (або стовпці). Просто натисніть клавішу зі стрілкою вниз (або клавішу зі стрілкою вправо), щоб активувати останній порожній рядок (або стовпець).


Відносні статті

Найкращі інструменти продуктивності офісу

Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

вкладка kte 201905


Вкладка 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