Excel'de veri içeren son satırı veya sütunu nasıl bulurum?

Büyük bir çalışma sayfasında, değer içeren son satırı veya sütunu hızlı ve kolay bir şekilde belirlemek istiyorsanız, kaydırma çubuğunu sürükleyerek bulabilirsiniz. Ancak, çalışma sayfanızda binlerce veri satırı varsa bu oldukça zahmetli olabilir. Bu makalede, bu görevi çözmek için size bazı yararlı VBA kodları anlatacağım.

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 biz Ctrl + End tuşlarına basarak son hücreyi bulmayı düşünürüz ancak veri aralığının altında biçimlendirilmiş hücreler varsa bu kısayol tuşu doğru değeri bulamaz. Bu nedenle burada 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 basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

3. Ardından Ekle > Modül'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA kodu: Veri içeren son satırı bul

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. Ve sonra bu kodu çalıştırmak için F5 tuşuna basın ve kullanılan aralığın satır numarasını söyleyen bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakınız:

5. Tamam butonuna tıklayarak 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ütunu bulmak için lütfen bu kodu uygulayın:

VBA kodu: Veri içeren son sütunu bul

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

Doğrudan Excel'de veri içeren son satırı veya sütunu bulmak ve seçmek istiyorsanız, Kutools for Excel'in Son Satırı Seç ve Son Sütunu Seç araçları size yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. Veri içeren son satırı bulmak ve seçmek istiyorsanız lütfen Kutools > Seç > Son Hücreyi Seç > Son Satır'a tıklayın. Ekran görüntüsüne bakınız:

Not: Veri içeren son sütunu bulmak ve seçmek için lütfen Kutools > Seç > Son Hücreyi Seç > Son Sütun'a tıklayın.

Geçerli çalışma sayfasındaki veri içeren son satır veya sütun hemen bulunur ve seçilir.

Demo: Kutools for Excel ile veri içeren son satırı veya sütunu bulun ve seçin