Проблема с используемыми границами листа

[motorway]

Какая-то странная проблема. Я хочу определить, где на листе последние использованные ячейки. Для этого смотрю на Sh.Cells.SpecialCells(xlCellTypeLas tCell).Row и Sh.Cells.SpecialCells(xlCellTypeLas tCell).Column. Допустим, мы написали на пустом листе в ячейке B2 число 1. Переменные стали равными 2,2. Теперь мы удалили верхнюю строку, и B2 переместилось на B1. Но эти переменные так и остались равными 2,2!
Как точно определить последние используемые границы (за которыми все пустое) и чтобы они менялись адекватно, а то здесь какая-то странность?

[EducatedFool]

Действительно, функции SpecialCells(xlCellTypeLastCell) свойственна некоторая задумчивость - Excel забывает обновить значение этого свойства после удаления диапазона ячеек:

Sub test()
    Dim sh As Worksheet: Set sh = ActiveSheet
    Debug.Print sh.Cells.SpecialCells(xlCellTypeLastCell).Address ' выдаёт устаревший результат
End Sub

Но, если обратиться к листу перед вызовом этой функции, ссылка на последнюю ячейку обновляется, и функция возвращает корректный результат:

Sub test2()
    Dim sh As Worksheet: Set sh = ActiveSheet
    x = sh.UsedRange.Address
    Debug.Print sh.Cells.SpecialCells(xlCellTypeLastCell).Address ' а теперь результат соответствует действительности
End Sub

В последнем примере строка x = sh.UsedRange.Address, по сути, бесполезна, но после обращения к UsedRange Excel почему-то вспоминает, что надо обновить значение SpecialCells(xlCellTypeLastCell)

[motorway]

Спасибо, надеюсь, эта вещь работает во всех случаях

[motorway]

Опять проблема с границами: я сделал, чтобы при открытии книги обновлялись данные о границах на всех листах, кроме последнего. Почему-то определяется неправильно иногда, как будто там старые значения остаются, или вообще непонятно что.

Private Sub Workbook_Open()
rowcolstr = ""
 For i = 1 To (Worksheets.Count - 1)
    Set sh = Worksheets(i)
    x = sh.UsedRange.Address
    rowcolstr = rowcolstr + sh.Name + ":" + Trim(Str(sh.Cells.SpecialCells(xlCellTypeLastCell).Row)) + "-" + Trim(Str(sh.Cells.SpecialCells(xlCellTypeLastCell).Column)) + "|"
 Next i
Worksheets("Лист3").Range("C4").Value = rowcolstr
End Sub

[EducatedFool]

А если попробовать так:

Private Sub Workbook_Open()
    Dim sh As Worksheet, rowcolstr As String
    For Each sh In ThisWorkbook.Worksheets
        ПоследняяЯчейка = sh.UsedRange.Cells(sh.UsedRange.Cells.Count).Address(, , xlR1C1)
        ПоследняяЯчейка = Replace(Replace(ПоследняяЯчейка, "C", "-"), "R", ":")
        rowcolstr = rowcolstr & sh.Name & ПоследняяЯчейка & "|"
    Next sh
    Worksheets("Лист3").Range("C4").Value = rowcolstr
End Sub

[motorway]

Если создать пустой файл, то вроде и то, и другое одинаково работает. Может, проблема в том, что когда в каком-то файле были данные, потом это начинает проявляться? Я удалил листы из той книги, где это проверялось, и сделал их пустыми. Пока определяет нормально, но все это довольно странно.

[motorway]

Да, вот какой-то глюк, при удалении/вставке строк вдруг число исп. колонок становится равным 16384, и ячейки начинают мигать черным!

[SAS888]

А зачем Вы используете метод SpecialCells? Почему не устраивает UsedRange? Ему "фиолетово", были использованы ячейки вне этого диапазона ранее, или нет.

[motorway]

Сначала я его использовал, но там вроде тоже в каком-то месте неправильно начало определять, и я перешел на SpecialCells. Но если Вы подскажете, как правильно определять с помощью UsedRange, перейду на него. (мне нужно просто определять последнюю используемую строку и столбец - их номер)

[The_Prist]

При помощи UsedRange лучше определять так

Dim lLastRow As Long
lLastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1

И все будет определяться как надо.
Хотя вообще определение последней ячейки тема такая... Смотря что кто понимает под последней ячейкой. Значение, формула, форматы...