Ana içeriğe atla

Excel'de ilk veya son boş satıra nasıl gidilir?

Büyük bir çalışma sayfası üzerinde çalışırken kaydırmak ve ilk veya son boş satıra gitmek zaman alıcıdır. Bu makalede, Excel'deki ilk veya son boş satıra hızla gitmek için bazı püf noktaları tanıtıyorum.

VBA ile ilk veya son boş satıra git

Son Satırı Seç yardımcı programı ile son boş satıra veya sütuna gitiyi fikir3


VBA ile ilk veya son boş satıra git

İşte iki VBA, aktif sayfadaki ilk veya son boş satıra hızlı bir şekilde gitmenize yardımcı olabilir, lütfen aşağıdaki gibi yapın.

1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere. Ekran görüntüsüne bakın:
doc ilk son boş 1

2. Sonra tıklayın Ekle > modül ve aşağıdaki kodu komut dosyasına yapıştırın. Ekran görüntüsüne bakın:

VBA: İlk boş satıra gidin.

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 ilk son boş 2
doc ilk son boş 3

3. Basın F5 kodu çalıştırmak için ve size çalışmak üzere bir aralık seçmenizi hatırlatan bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
doc ilk son boş 4

4. tık OK. İlk boş satırın hücre referansını size hatırlatmak için bir iletişim kutusu açılır, ekran görüntüsüne bakın:
doc ilk son boş 5

5. tık OK tekrar tekrar kapatmak için Microsoft Excel iletişim. Ve sonra şuraya gidin: Name kutu, içine A2 yazın, Keşfet anahtar ve ilk boş satıra gidersiniz. Ekran görüntüsüne bakın:
doc ilk son boş 6

Bahşiş: Son boş satıra gitmek istiyorsanız, lütfen aşağıdaki VBA kodunu kullanın ve bir F5 tuşu, imleç doğrudan son boş satıra gider.

VBA: Son boş satıra git

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

not: Bu VBA, A Sütunundaki son boş hücreyi seçecektir. Başka bir sütundaki son boş hücreyi seçmek için, lütfen Hücrelerdeki 1'i (Satır Sayısı, 1) başka bir sayıya değiştirin.


Son Satırı Seç yardımcı programı ile son boş satıra veya sütuna git

Son boş satıra veya sütuna hızlıca gitmek istiyorsanız başvurabilirsiniz Kutools for Excel'S Son Satır or Son Sütun utility. Onlarla, geçerli çalışma sayfasındaki son satırın veya sütunun boş olmayan son hücresine hızlı bir şekilde gidebilirsiniz ve ardından bir sonraki hücre, son boş satır veya boş sütundur.

Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. 

Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:(Şimdi Excel için Kutools'u Ücretsiz İndirin!)

Tıkla Kutools > seç > Son Hücreyi Seç > Son Satır/Son Sütun. Ekran görüntüsüne bakın:

doc ilk son boş 7

Ardından, son satırdaki (veya sütundaki) boş olmayan son hücreler seçilir. Son boş satırı (veya sütunu) etkinleştirmek için Aşağı ok tuşuna (veya Sağ ok tuşuna) basmanız yeterlidir.


İlgili Makaleler

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
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