Определить последнюю заполненную строку и столбец — Visual Basic(Бейсик)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
With ActiveSheet.UsedRange
     iRow = .Row + .Rows.Count - 1
     iClm = .Column + .Columns.Count - 1
End With
 
With Worksheets(1).UsedRange
     iRow = .Row + .Rows.Count - 1
     iClm = .Column + .Columns.Count - 1
End With
 
With Worksheets("Лист1").UsedRange
     iRow = .Row + .Rows.Count - 1
     iClm = .Column + .Columns.Count - 1
End With
Существуют и другие способы определения последней заполненной ячейки.
Обратите внимание на следующие инструкции, которые помогут определить количество строк и столбцов в объекте UsedRange
 
iCountRow = ActiveSheet.UsedRange.Rows.Count
iCountClm = ActiveSheet.UsedRange.Columns.Count

Leave a Comment