Excel'de veri içeren son satırı veya sütunu nasıl bulursunuz?
Büyük bir çalışma sayfasında değer içeren son satırı veya sütunu hızlı ve kolay şekilde belirlemek istiyorsanız, kaydırma çubuğunu sürükleyerek bunu bulabilirsiniz. Ancak çalışma sayfanızda binlerce veri satırı varsa bu yöntem oldukça zahmetli hâle gelebilir. Bu makalede, bu görevi kolayca çözmenize yardımcı olacak bazı kullanışlı VBA kodlarından bahsedeceğiz.
VBA kodu kullanarak veri içeren Son Satır veya sütunu bulun
Kutools for Excel ile veri içeren Son Satır veya sütunu bulun ve seçin
VBA kodu kullanarak veri içeren Son Satır veya sütunu bulun
Çoğu kişi, son satırı ve sütunu bulmak için imleci son hücreye taşımak amacıyla Ctrl + End tuşlarına basar; ancak veri aralığının altına biçimlendirilmiş bazı hücreler eklenmişse, bu kısayol doğru değeri içeren hücreyi işaretlemeyebilir. Bu nedenle lütfen aşağıdaki VBA kodunu kullanın:
1. Veri içeren son satırı veya sütunu belirlemek istediğiniz çalışma sayfasını etkinleştirin.
2. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
3. Ardından Ekle > Modül seçeneğine tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Veri içeren Son Satır'ı bulun
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. Ardından bu kodu çalıştırmak için F5 tuşuna basın; kullanılan aralığın satır numarasını gösteren bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
5.Tamamdüğmesine tıklamaya devam edin; bu sefer değer içeren Son Satır numarası aşağıdaki ekran görüntüsünde gösterildiği gibi görüntülenecektir:
Not:Veri içeren Son Sütun'ü bulmak için lütfen bu kodu uygulayın:
VBA kodu: Veri içeren Son Sütun'ü bulun
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Kutools for Excel ile veri içeren Son Satır veya sütunu bulun ve seçin
Excel'de veri içeren son satırı veya sütunu doğrudan bulup seçmek istiyorsanız, Son Satır Seç ve Son Sütun Seç araçları, Excel için Kutools ile size yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.
1. Veri içeren son satırı bulup seçmek istiyorsanız, lütfen Kutools > Seç > Son Hücreyi Seç > Son Satır seçeneğine tıklayın. Ekran görüntüsüne bakın:
Not: Veri içeren son sütunu bulup seçmek için lütfen Kutools > Seç > Son Hücreyi Seç > Son Sütun seçeneğine tıklayın.
Ardından, Geçerli Çalışma Sayfası’ndaki veri içeren son satır veya sütun anında bulunup seçilir.
Bu yardımcı programın ücretsiz 30 günlük deneme sürümünü almak istiyorsanız, işlemi yukarıdaki adımlara göre uygulamak için lütfen indirmek üzere tıklayın.
Demo: Kutools for Excel ile veri içeren Son Satır veya sütunu bulun ve seçin
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar