VBA Макросы Excel: узнать номер последнего листа

[Frenkiln]

Есть макрос, который последовательно делает операции на листе, затем переходит на следующий активный лист. Требуется определить, является ли текущий активный лист последним в книге, например поставить флажок T=1 если последний, T=0, если далее активные листы есть.

[Администратор]

У вас неточность в первом сообщении. Активный лист - это лист, который отображается на мониторе. Только один лист может отображаться на мониторе, поэтому существует только один активный лист, а не несколько.

Макрос

Sub макрос()
   
    Dim sh As Worksheet
   
    For Each sh In Worksheets
        ' Если это последний лист.
        If sh.Index = Worksheets.Count Then
            ' Действия.
        ' Если это не последний лист.
        Else
            ' Действия.
        End If
    Next sh

End Sub

[свернуть]