MyTetra Share
Делитесь знаниями!
https://ru.gaming-goods.com/
Excel: Как найти последнюю используемую строку на листе
Время создания: 14.12.2011 11:39
Раздел: Компьютер - Windows - Excel
Запись: xintrea/mytetra_syncro/master/base/13238483901xduqkcj4u/text.html на raw.github.com

Номер последней строки на листе

function LastRow(Cell)

LastRow = cells(cells.rows.count, Cell.column).End(XlUp).row

end function

Или

With Worksheets("Лист1").UsedRange

iRow = .Row + .Rows.Count - 1

iClm = .Column + .Columns.Count - 1

End With

Второй вариант лучше.

Еще вариант:

Sub Размер_занятой_области()

Dim ra As Excel.Range, Item As Excel.Range

' Все ячейки со значениями

Set ra = Worksheets(sheetName).Cells.SpecialCells(2)

LastRow = 0

LastColumn = 0

For Each Item In ra.EntireRow.Rows

If Item.Row > LastRow Then LastRow = Item.Row

Next Item

For Each Item In ra.EntireColumn.Columns

If Item.Column > LastColumn Then LastColumn = Item.Column

Next Item

MsgBox "Cells " + intToStr(LastRow) + " " + intToStr(LastColumn)

End Sub

В Excel 2010 для текущего активного листа можно использовать такой код:

Sub DataSize()

Dim ra As Excel.Range, Item As Excel.Range

Set ra = ActiveSheet.Cells.SpecialCells(2)

TheLastRow = 0

TheLastColumn = 0

For Each Item In ra.EntireRow.Rows

If Item.Row > TheLastRow Then TheLastRow = Item.Row

Next Item

For Each Item In ra.EntireColumn.Columns

If Item.Column > TheLastColumn Then TheLastColumn = Item.Column

Next Item

MsgBox "Cells " + intToStr(TheLastRow) + " " + intToStr(TheLastColumn)

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.65
Яндекс индекс цитирования