Note: The other languages of the website are Google-translated. Back to English

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: İsim-Soyisim 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çmek > 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 Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (3)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alt selectlastemptyrow()
Hücreler(Satırlar.Sayı, 1).Son(xlÜst).Kayma(1, 0).Seç
End Sub



Bunu sayfa2'den sayfa1'de nasıl deneyebilirim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Alt selectlastemptyrow()
Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ótimo gönderisi, Çözülme sorunu:
Bu, planladığınız sütunu belirleyen ilk hücredir.

Alt SelecionaProximaCélulaVazia()
Hücreler(Satırlar.Sayı, 2).Son(xlÜst).Kayma(1, 0).Seç
End Sub

Este VBA Seçenekler arasında seçim yapın B. Seçenekler arasında seçim yapın ve birden fazla sütun, değişiklik 2 no código Cells (Rows.Count, 2) para outro número.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır