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 |