VBA Excel'de Son Satırı Bulma (5 yol)

Hugh West

16-10-2023 Makrolar & Excel VBA
  • Bunu Paylaş
Hugh West

VBA'da son satırı bulmak için farklı yöntemler kullanabilirsiniz. Bu makalede, Excel'de son satırı bulmak için farklı VBA yöntemlerini açıklayacağım.

Bu açıklamayı görünür kılmak için örnek bir veri kümesi kullanacağım. Veri kümesinde satış bilgilerini temsil eden 4 sütun vardır. Bu sütunlar Satış Elemanı, Bölge, Ürün, ve Fiyat .

Pratik Yapmak İçin İndirin

VBA Son Satırı Bul.xlsm

Excel'de VBA Son Satırı Bulma Yolları

1. Son Satırı Bulmak için SpecialCells Kullanma

Kullanabilirsiniz SpecialCells kullanarak son satırı bulmak için VBA .

İlk önce Geliştirici sekmesini>> ardından Visual Basic

Yeni bir pencere Uygulamalar için Microsoft Visual Basic açılır.

Şimdi Ekleme >> seçin Modül

A Modül açılacaktır.

Ardından aşağıdaki kodu Modül . 

 Sub LastRow_SpecialCells() Dim LastRow As Long LastRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LastRow End Sub

Burada, şu adda bir alt prosedür oluşturdum LastRow_SpecialCells burada a Uzun değişken türü SonSatır ilan edilmiştir.

Daha sonra değişkeni Range.SpecialCells yöntemini kullandım. Burada, sütun A ( A:A ) aralık olarak verilmiştir. xlCellTypeLastCell 'nin tür parametresi olarak SpecialCells bu, aralık için son hücreyi döndürecektir (bu durumda, sütundan A ).

Sonucu göstermek için bir mesaj kutusu kullandım.

Ondan sonra, Kaydet kodu girin ve çalışma sayfasına geri dönün.

Tekrar açın Görünüm tab>> dan Makrolar >> seçin Makroları Görüntüle

O zaman, bir iletişim kutusu açılır.

Şimdi Makro adı seçin LastRow_SpecialCells içindeki çalışma kitabını da seçin Makrolar içinde .

Sonunda, Koşmak seçilen Makro .

Böylece, son satır numarasını gösteren bir mesaj kutusu açılacaktır.

2. Boş Olmayan Hücreler için Rows.Count Kullanılması

Kullanabilirsiniz Satırlar.Sayısı kullanarak son satırı bulmak için VBA .

Şimdi, açın Geliştirici sekmesini>> ardından Visual Basic

Yeni bir pencere Uygulamalar için Microsoft Visual Basic açılır.

Şimdi Ekleme >> seçin Modül

A Modül açılacaktır.

Ardından aşağıdaki kodu Modül . 

 Sub LastRow_NonEmpty() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox LastRow End Sub

Burada, LastRow_NonEmpty adında bir alt prosedür oluşturdum ve burada Uzun değişken türü SonSatır ilan edilmiştir.

Şimdi, CELLS(Satır.Sayısı, 1) ilk sütunda kaç satır olduğunu sayacaktır. Daha sonra End(xlUp).Row şimdi bu, bir Excel aralığındaki son kullanılan satırı bulacaktır.

Sonunda, sonucu göstermek için bir mesaj kutusu kullandım.

Sonra, Kaydet kodu girin ve çalışma sayfasına geri dönün.

İşte, açın Görünüm tab>> dan Makrolar >> seçin Makroları Görüntüle

Şimdi, bir iletişim kutusu açılır.

Sonra da Makro adı seçin LastRow_NonEmpty içindeki çalışma kitabını da seçin Makrolar içinde .

Sonunda, Koşmak seçilen Makro .

Böylece, son satır numarasını gösteren bir mesaj kutusu açılacaktır.

3. Seçilen Herhangi Bir Sütun için Rows.Count Kullanılması

'de seçilen herhangi bir sütunu kullanarak VBA, son satırı bulabilirsiniz.

İlk önce Geliştirici sekmesini>> ardından Visual Basic

Yeni bir pencere Uygulamalar için Microsoft Visual Basic açılır.

Şimdi Ekleme >> seçin Modül

A Modül açılacaktır.

Ardından aşağıdaki kodu Modül . 

 Sub LastRow_AnyColumn() Dim LastRow As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row MsgBox LastRow End Sub

Burada, LastRow_AnyColumn adında bir alt prosedür oluşturdum ve burada Uzun değişken türü SonSatır ilan edilmiştir.

Sonra da Menzil sütunu verildiğinde B parametre olarak ve ayrıca Satırlar.Sayısı , bu, belirli bir sütunda kaç satır olduğunu sayacaktır B . Sonraki, kullanılan End(xlup). Satır bir Excel aralığındaki son kullanılan satırı bulacaktır.

Son olarak, sonucu göstermek için bir mesaj kutusu kullandım.

Sıradaki, Kaydet kodu girin ve çalışma sayfasına geri dönün.

Daha sonra Görünüm tab>> dan Makrolar >> seçin Makroları Görüntüle

Burada, bir iletişim kutusu açılır.

Şimdi Makro adı seçin LastRow_AnyColumn içindeki çalışma kitabını da seçin Makrolar içinde .

Sonunda, Koşmak seçilen Makro .

Böylece, son satır numarasını gösteren bir mesaj kutusu açılacaktır.

Benzer Okumalar:

  • VBA Excel'de Sütun İçinde Bulma (7 Yaklaşım)
  • VBA Kullanarak Bul ve Değiştir (11 Yol)
  • Excel'de VBA Kullanarak Tam Eşleşmeyi Bulma (5 Yol)
  • Excel'de VBA ile String Nasıl Bulunur (8 Örnek)

4. Son Satırı Bulmak için UsedRange Kullanma

Kullanabilirsiniz KullanılmışAralık özelliğini kullanarak son satırı bulmak için çalışma sayfasının VBA .

Şimdi, açın Geliştirici sekmesini>> ardından Visual Basic

Ardından, yeni bir pencere Uygulamalar için Microsoft Visual Basic açılır.

Şimdi Ekleme >> seçin Modül

A Modül açılacaktır.

Ardından, aşağıdaki kodu Modül . 

 Sub LastRow_UsedRange() Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row MsgBox "Son Satır: " & LastRow End Sub

Burada, LastRow_UsedRange adında bir alt prosedür oluşturdum ve burada Uzun değişken türü SonSatır ilan edilmiştir.

Daha sonra, değişkeni ActiveSheet.UsedRange.Rows yöntemi de sağlanmıştır ActiveSheet.UsedRange.Rows.Count parametresi olarak ActiveSheet.UsedRange.Rows bu son satırı döndürecektir.

Sonucu göstermek için bir mesaj kutusu kullandım.

Şimdi, Kaydet kodu girin ve çalışma sayfasına geri dönün.

Daha sonra Görünüm tab>> dan Makrolar >> seçin Makroları Görüntüle

Sonra, bir iletişim kutusu açılır.

Sonra da Makro adı seçin LastRow_UsedRange içindeki çalışma kitabını da seçin Makrolar içinde .

Sonunda, Koşmak seçilen Makro .

Böylece, son satır numarasını gösteren bir mesaj kutusu açılacaktır.

5. Son Satırı Bulmak için Range.Find Kullanma

Kullanabilirsiniz Aralık.Bul kullanarak son satırı bulmak için VBA .

Şimdi, açın Geliştirici sekmesini>> ardından Visual Basic

Burada, yeni bir pencere Uygulamalar için Microsoft Visual Basic açılır.

Şimdi Ekleme >> seçin Modül

A Modül açılacaktır.

Ardından aşağıdaki kodu Modül . 

 Sub Range_Find_Method() Dim LastRow As Long On Error Resume Next LastRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 MsgBox "Last Row: " & LastRow End Sub

Burada, Range_Find_Method adında bir alt prosedür oluşturdum ve burada Uzun değişken türü SonSatır ilan edilmiştir.

Daha sonra değişkeni Hücreler.Bul Burada 7 parametre bildirilmiştir. Ne parametresini kullandım ("*"), bu da boş olmayan ilk hücreyi bulacaktır. Verilen A1 içindeki aralık olarak Sonra parametresini başlatın. Bak sağlanan parametre xlParça Hücre içindeki metnin herhangi bir bölümüne bakmak için.

LookIn:=xlFormulas parametresi varsa formülleri arayacaktır. SearchOrder:=xlByRows parametresi sağdan sola hareket eder ve ayrıca boş olmayan bir hücre bulana kadar her satırda yukarı doğru döner.

MatchCase:=False parametresi şunları söyleyecektir Bul büyük veya küçük harfleri dikkate almaz. Boş olmayan bir harf bulunduğunda durur ve satır numarasını döndürür.

Sonucu göstermek için bir mesaj kutusu kullandım.

Şimdi, Kaydet kodu girin ve çalışma sayfasına geri dönün.

İşte, açın Görünüm tab>> dan Makrolar >> seçin Makroları Görüntüle

Şimdi, bir iletişim kutusu açılır.

Şimdi Makro adı seçin Range_Find_Method içindeki çalışma sayfasını da seçin Makrolar içinde .

Sonunda, Koşmak seçilen Makro .

Böylece, son satır numarasını gösteren bir mesaj kutusu açılacaktır.

Sonuç

Bu makalede, aşağıdakileri yapmanın 5 yolunu açıkladım VBA Excel'de son satırı bulmak için yöntemlerden herhangi birini takip edebilirsiniz. Bu yöntemlerle ilgili herhangi bir karışıklık veya sorunuz olması durumunda aşağıya yorum yapabilirsiniz.

Önceki yazı Excel'de Diğer Her Satır Nasıl Seçilir (6 Yol)
Sonraki Gönderi Excel Elektronik Tablosunda Serbest Meslek Vergi Hesaplayıcısı (Kolay Adımlarla Oluşturun)

Hugh West, sektörde 10 yılı aşkın deneyime sahip oldukça deneyimli bir Excel eğitmeni ve analistidir. Muhasebe ve Finans alanında lisans derecesine ve İşletme alanında yüksek lisans derecesine sahiptir. Hugh öğretme tutkusuna sahiptir ve takip etmesi ve anlaması kolay benzersiz bir öğretim yaklaşımı geliştirmiştir. Excel konusundaki uzman bilgisi, dünya çapında binlerce öğrencinin ve profesyonelin becerilerini geliştirmesine ve kariyerlerinde başarılı olmasına yardımcı olmuştur. Hugh, blogu aracılığıyla bilgisini dünyayla paylaşıyor, bireylerin ve işletmelerin tam potansiyellerine ulaşmalarına yardımcı olmak için ücretsiz Excel eğitimleri ve çevrimiçi eğitimler sunuyor.