İçindekiler
Excel kullanarak bir sütunda veri bulunan satırları saymanın en kolay yollarından bazılarını arıyorsanız VBA Öyleyse, bir sütundaki verilerle satırları kolayca sayma hakkında daha fazla bilgi edinmek için ana makalemizle başlayalım.
Çalışma Kitabını İndirin
Satırları Veri ile Say.xlsm9 Excel VBA Kullanarak Sütundaki Verilerle Satırları Saymanın Yolları
Burada, bir şirketin satış kayıtlarını içeren aşağıdaki veri kümesine sahibiz. Bir sütunun verilerine dayalı olarak satırları saymanın farklı yollarını açıklamak için bu veri kümesindeki verilerle farklı sütunlar kullanacağız.
Biz kullandık Microsoft Excel 365 sürümünü burada bulabilirsiniz, uygunluğunuza göre diğer sürümleri kullanabilirsiniz.
Yöntem-1: Excel'de Sütunda Veri Bulunan Satırları Saymak için VBA Rows.Count Özelliğini Kullanma
Burada, aşağıdaki satırları sayacağız Satış kullanarak ürünler için satış değerlerini içeren sütun Satır Sayısı özelliği . VBA .
Adım-01 :
➤ Şuraya git Geliştirici Tab>> Visual Basic Opsiyonel.
O zaman Visual Basic Düzenleyicisi açılacak.
➤ Şuraya git Ekleme Tab>> Modül Opsiyonel.
Bundan sonra, bir Modül oluşturulacaktır.
Adım-02 :
➤ Aşağıdaki kodu yazın
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Kullanılan satır sayısı " & X End Sub Burada şunu beyan ettik X olarak Tamsayı , "D4:D11" satırları hangi sütuna göre saydığımızın aralığıdır ve son olarak satır numarasını X .
Bir mesaj kutusu ( MsgBox ) bize sonucu toplam satır sayısı olarak verecektir.
➤ Basın F5 .
Ardından, veri içeren toplam satır sayısını şu şekilde alırsınız 8 .. Satış sütununu bir mesaj kutusuna yerleştirin.
Daha fazlasını okuyun: Excel VBA ile Veri Satırlarını Sayma (4 Örnek)
Yöntem-2: Sütunda Veri Bulunan Satırları Saymak için End Özelliğini Kullanma
Bu bölümde, aşağıdaki komutları kullanacağız Son mülk . VBA 'nin satış değerlerine sahip satırları saymak için Satış sütun.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Kullanılan satır sayısı " & (X - 3) End Sub Burada şunu beyan ettik X olarak Tamsayı , "D4" satırları saydığımız sütuna göre aralığın başlangıç değeridir ve son olarak satır numarasını X . X bize bu sütunun toplam kullanılan satırlarını değil, son kullanılan satır numarasını verecektir. Bu nedenle, toplam satır numarasını elde etmek için 3 ( Başlangıç Sıra Numarası-1 = 4-1 = 3 ) dan X .
Bir mesaj kutusu ( MsgBox ) toplam satır sayısı ile birlikte görünecektir.
➤ Basın F5 .
Bundan sonra, sahip olacaksın 8 'nin toplam satır sayısı olarak Satış sütununu bir mesaj kutusuna yerleştirin.
Daha Fazla Oku: Excel'de Veri İçeren Satırlar Nasıl Sayılır (4 Formül)
Yöntem-3: Rows.Count Özelliği ve End Özelliği Kombinasyonunu Kullanma
Burada, aşağıdaki iki özelliğin kombinasyonunu kullanacağız VBA gibi Satır Sayısı özelliği ve Son mülk toplam satırlarını saymak için birlikte Satış sütun.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Kullanılan satır sayısı " & (X - 3) End Sub Burada şunu beyan ettik X olarak Tamsayı , 4 içinde (Satır Sayısı, 4) içindir. Satış sütununa göre satırları sayıyoruz ve son olarak satır numarasını X .
X bu sütunun toplam kullanılan satırlarını değil, son kullanılan satır numarasını döndürecektir. Bu nedenle, toplam satır numarasını elde etmek için 3 ( Başlangıç Sıra Numarası-1 = 4-1 = 3 ) dan X .
Bir mesaj kutusu ( MsgBox ) toplam satır sayısı ile birlikte görünecektir.
➤ Basın F5 .
Daha sonra, biz alacağız 8 'nin toplam satır sayısı olarak Satış sütununu bir mesaj kutusuna yerleştirin.
İlgili İçerik: Excel'de Birden Çok Ölçütle Satır Sayma (6 Yöntem)
Yöntem-4: Excel'de Sütunda Veri Bulunan Satırları Saymak için VBA Seçim Özelliğini Kullanma
Kullanabilirsiniz Seçim özelliği verilerine dayalı olarak toplam satırları saymak için de Satış sütun.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Kullanılan satır sayısı " & X End Sub Burada şunu beyan ettik X olarak Tamsayı 'ye atadık, seçilen aralığın satırları burada sayılacak ve son olarak satır numarasını X .
Bir mesaj kutusu ( MsgBox ) bize sonucu toplam satır sayısı olarak verecektir.
Ardından, ana sayfaya geri dönmeliyiz.
aralığını seçin Satış sütununa gidin ve ardından Geliştirici Tab>> Makrolar Opsiyonel.
Bundan sonra Makro iletişim kutusu açılacaktır.
➤ Seçiniz Makro adı countrows4 'ye basın ve ardından Koşmak seçenek.
Son olarak, aşağıdaki mesaj kutusunu alacağız "Kullanılan satır sayısı 8" .
Daha Fazla Oku: Excel'de VBA ile Satırlar Nasıl Sayılır (5 Yaklaşım)
Yöntem-5: FIND İşlevini Kullanarak Sütunda Veri Bulunan Satırları Sayma
Burada kullanacağımız FIND işlevi içinde metin dizeleri olan satırları saymak için Bölge sütun.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub CountRows5() Dim X As Integer Dim rng As Range Set rng = Range("C4:C11") With rng X = .Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row End With MsgBox "Kullanılan satır sayısı " & (X - 3) End Sub Burada şunu beyan ettik X olarak Tamsayı , rng olarak Menzil , "C4:C11" satırları hangi sütuna göre saydığımızı gösteren aralıktır ve son olarak rng .
Biz kullandık İLE gibi nesne adı kullanımının tekrarlanmasını önlemek için rng .
Kullanarak FIND işlevi , X bize bu sütunun toplam kullanılan satırlarını değil, son kullanılan satır numarasını verecektir. Bu nedenle, toplam satır numarasını elde etmek için 3 ( Başlangıç Sıra Numarası-1 = 4-1 = 3 ) dan X .
Bir mesaj kutusu ( MsgBox ) toplam satır sayısı ile birlikte görünecektir.
➤ Basın F5 .
Son olarak, sahip olacaksınız 8 'nin toplam satır sayısı olarak Satış sütununu bir mesaj kutusuna yerleştirin.
İlgili İçerik: Excel Görünür Satırları Sayma (Formül ve VBA Kodu)
Benzer Okumalar:
- Excel'de Pivot Tablo ile Gruptaki Satırları Sayma (Adım Adım Kılavuz)
- Excel VBA: Sayfadaki Satırları Sayma (5 Örnek)
Yöntem-6: VBA Kullanarak Sütunda Veri Bulunan Boş Olmayan Satırları Sayma
Burada, bazı boş hücrelerimiz var Satış sütununu kullanarak (bu yöntem için bazı değerleri kaldırdık) ve VBA kodunda yalnızca değer içeren toplam satır sayısını sayacağız.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub countrows6() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountA(Y)> 0 Then X = X + 1 End If Next End With MsgBox "Kullanılan satır sayısı " & X End Sub Burada şunu beyan ettik X olarak Uzun , Y ve rng olarak Menzil , "D4:D11" satırları hangi sütuna göre saydığımızı gösteren aralıktır ve son olarak rng .
Bu İÇİN döngüsü, bu aralıktaki hücrelerin her birinin herhangi bir değer içerip içermediğini kontrol edecektir. COUNTA işlevi ve değerlere sahip hücreler için, X tarafından artırılacaktır 1 Her seferinde.
Son olarak, bir mesaj kutusu aracılığıyla boş olmayan hücrelerle toplam satır sayılarını alacağız.
➤ Basın F5 .
Sonunda, sahip olacaksın 5 'nin boş olmayan satırlarının toplam sayısı olarak Satış sütununu bir mesaj kutusuna yerleştirin.
Daha Fazla Oku: Excel'de VBA ile Filtrelenmiş Satırlar Nasıl Sayılır (Adım Adım Kılavuz)
Yöntem-7: Belirli Bir Değere Sahip Satırları Sayma
Burada, satış değeri aşağıdaki gibi olan satırların toplam sayısını sayacağız $2,522.00 bir şey yok. Satış sütun.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub countrows7() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, 2522)> 0 Then X = X + 1 End If Next End With MsgBox "Kullanılan satır sayısı " & X End Sub Burada şunu beyan ettik X olarak Uzun , Y ve rng olarak Menzil , "D4:D11" satırları hangi sütuna göre saydığımızı gösteren aralıktır ve son olarak rng .
Bu İÇİN döngüsü, bu aralıktaki hücrelerden herhangi birinin satış değerini içerip içermediğini kontrol eder 2522 kullanarak COUNTIF işlevi ve bu değere sahip hücreler için, X tarafından artırılacaktır 1 Her seferinde.
Son olarak, toplam satır sayılarını şu değerle alacağız 2522 bir mesaj kutusu aracılığıyla.
➤ Basın F5 .
Nihayetinde, sahip olacaksınız 3 'nin toplam satır sayısı olarak Satış satış değerini içeren sütun $2,522.00 bir mesaj kutusunda.
Daha Fazla Oku: Excel VBA: Belirli Verilerle Satırları Sayma (8 Örnek)
Yöntem-8: Belirli Bir Değerden Büyük Değerlere Sahip Satırları Sayma
Bu bölümde, aşağıdakilerden daha büyük değerlere sahip satırların toplam sayısını sayacağız $3000.00 içinde Satış sütun.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub countrows8() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, ">3000")> 0 Then X = X + 1 End If Next End With MsgBox "Kullanılan satır sayısı " & X End Sub Burada şunu beyan ettik X olarak Uzun , Y ve rng olarak Menzil , "D4:D11" satırları hangi sütuna göre saydığımızı gösteren aralıktır ve son olarak rng .
Bu İÇİN döngüsü, bu aralıktaki hücrelerden herhangi birinin satış değerinin aşağıdakilerden büyük olup olmadığını kontrol eder 3000 kullanarak COUNTIF işlevi (veya daha küçük, daha büyük veya eşit vb. gibi diğer koşulları deneyebilirsiniz) ve bu değere sahip hücreler için, X tarafından artırılacaktır 1 Her seferinde.
Son olarak, aşağıdakilerden daha büyük değerlere sahip toplam satır sayılarını alacağız 3000 bir mesaj kutusu aracılığıyla.
➤ Basın F5 .
Daha sonra, sahip olacaksın 3 'nin toplam satır sayısı olarak Satış 'den büyük satış değerlerini içeren sütun $3,000.00 bir mesaj kutusunda.
Daha Fazla Oku: Excel Satırları Değerle Nasıl Sayar (8 Yol)
Yöntem-9: Belirli Bir Metin Dizesi İçeren Satırları Sayma
Burada aşağıdakileri içeren satır sayısını alacağız elma tam olarak veya kısmen Ürün sütun.
Adımlar :
Takip et Adım-01 . Yöntem-1 .
➤ Aşağıdaki kodu yazın
Sub countrows9() Dim X As Long Dim Y, rng As Range Set rng = Range("B4:B11") With rng For Each Y In .Rows If Application.CountIf(Y, "*apple*")> 0 Then X = X + 1 End If Next End With MsgBox "Kullanılan satır sayısı " & X End Sub Burada şunu beyan ettik X olarak Uzun , Y ve rng olarak Menzil , "B4:B11" satırları hangi sütuna göre saydığımızı gösteren aralıktır ve son olarak rng .
Bu İÇİN döngüsü, bu aralıktaki hücrelerden herhangi birinin metin dizesini içerip içermediğini kontrol edecektir "uygula" kullanarak COUNTIF işlevi (burada, hem tam eşleşmeleri hem de kısmi eşleşmeleri saymak için Yıldız İşareti sembolünden önce ve sonra) ve bu değere sahip hücreler için, X tarafından artırılacaktır 1 Her seferinde.
Son olarak, metin dizesi ile toplam satır sayılarını alacağız elma bir mesaj kutusu aracılığıyla.
➤ Basın F5 .
O zaman, sahip olacaksın 2 'nin toplam satır sayısı olarak Ürün metin dizelerini içeren sütun Elma ve Ananas bir mesaj kutusunda.
Daha fazlasını okuyun: Excel'de Metin ile Satır Sayma (En Kolay 8 Yol)
Uygulama Bölümü
Kendi kendinize pratik yapmanız için bir Uygulama adlı bir sayfada aşağıdaki gibi bir bölüm Uygulama Lütfen bunu kendiniz yapın.
Sonuç
Bu makalede, Excel kullanarak bir sütunda veri bulunan satırları saymanın yollarını ele almaya çalıştık VBA Umarım faydalı bulursunuz. Herhangi bir öneriniz veya sorunuz varsa, bunları yorum bölümünde paylaşmaktan çekinmeyin.
