Excel'deki verilerle son satırı veya sütunu nasıl bulabilirim?
Büyük bir çalışma sayfasında, değerleri içeren son satırı veya sütunu hızlı ve kolay bir şekilde belirlemek istiyorsanız, kaydırma çubuğunu sürükleyerek bulmanız yeterlidir. Ancak çalışma sayfanızda binlerce veri satırı varsa acı verici olacaktır. Bu yazıda, bu görevi çözmeniz için bazı faydalı VBA kodlarından bahsedeceğim.
VBA kodunu kullanarak veriler içeren son satırı veya sütunu bulun
Kutools for Excel ile verileri içeren son satırı veya sütunu bulun ve seçin
VBA kodunu kullanarak veriler içeren son satırı veya sütunu bulun
Çoğumuz, tuşuna basarak son hücreyi bulmayı düşünebiliriz. Ctrl + End son satırı ve sütunu bulmak için tuşlara basın, ancak veri aralığının altında biçimlendirmeye sahip bazı hücreler varsa kısayol tuşu doğru değer hücresini bulmayacaktır. Yani burada, lütfen aşağıdaki VBA kodunu kullanın:
1. Verilerle son satırı veya sütunu belirlemek istediğiniz çalışma sayfanızı etkinleştirin.
2. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi.
3. Sonra tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.
VBA kodu: Verilerle 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. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve komut kutusu açılarak kullanılan aralığın satır numarasını size söyleyecektir. Ekran görüntüsüne bakın:
5. Tıklamaya git OK düğmesi, bu sefer değerleri olan son satır numarası gösterilen aşağıdaki ekran görüntüsü gibi görüntülendi:
Not: Veri içeren son sütunu bulmak için lütfen şu kodu uygulayın:
VBA kodu: Verilerle son sütunu 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 verileri 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ütunu Seç yararları Excel'in Kutools'u size yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
Başvurmadan önce Kutools for ExcelLütfen önce indirin ve kurun.
1. Veri içeren son satırı bulmak ve seçmek istiyorsanız, lütfen tıklayın Kutools > seç > Son Hücreyi Seç > Son Satır. Ekran görüntüsüne bakın:
not: Veri içeren son sütunu bulmak ve seçmek için lütfen tıklayın Kutools > seç > Son Hücreyi Seç > Son Sütun.
Ardından, geçerli çalışma sayfasındaki verileri içeren son satır veya sütun bulunur ve hemen seçilir.
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
Kutools for Excel ile verileri içeren son satırı veya sütunu bulun ve seçin
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!