Aralıkların sonunun veya başlangıcının bulunması için çeşitli örnekler:
Sub makro()
Range("K6:K14").ClearContents
'Son satırı bulun:
'arada boşluk olursa işe yaramaz
Range("K6").Value = Range("A4").End(xlDown).Row
'10000 den fazla satır olursa işe yaramaz
Range("K6").Value = Range("A10000").End(xlUp).Row
'en güvenli yöntem budur
Range("K6").Value = Range("A" & Rows.Count).End(xlUp).Row
'Sonraki boş satır no:
Range("K7").Value = Range("A" & Rows.Count).End(xlUp).Row + 1
'Son sütunu bulun:
'arada boşluk olursa işe yaramaz
Range("K8").Value = Range("A4").End(xlToRight).Column
'en güvenli yöntem budur
Range("K8").Value = Cells(4, Columns.Count).End(xlToLeft).Column
'Geçerli bölgenin adresi:
Range("K9").Value = Range("A4").CurrentRegion.Address
'Veri kümesindeki satır sayısı:
Range("K10").Value = Range("A4").CurrentRegion.Rows.Count
'sayfada son kullanılan satır:
Range("K11").Value = Cells.SpecialCells(xlCellTypeLastCell).Row
'sayfadaki son hücre:
Range("K12").Value = Cells.SpecialCells(xlCellTypeLastCell).Address
'sayfada son kullanılan satır no 2:
Range("K13").Value = ActiveSheet.UsedRange.Rows.Count
'sayfada son kullanılan aralık:
Range("K14").Value = ActiveSheet.UsedRange.Address
'satırlardaki rengi silme
Range("A5", "A" & Cells(Rows.Count, 1).End(xlUp).Row).EntireRow.Interior.Color = Excel.Constants.xlNone
'son satırı boyama
Range("A" & Rows.Count).End(xlUp).EntireRow.Interior.Color = VBA.ColorConstants.vbRed
End SubCode language: VB.NET (vbnet)