Как прокрутить определенный лист или все листы до верхней строки в Excel?

Независимо от того, хотите ли вы прокрутить определенный лист или все листы книги до верха, код VBA предоставляет быстрое и эффективное решение. Это руководство объясняет, как использовать простые скрипты VBA для упрощения навигации и фокусировки на ваших данных.

Прокрутите определенный лист или все листы до верхней строки с помощью кода VBA

Прокрутите определенный лист или все листы до верхней строки с помощью кода VBA

Чтобы прокрутить определенный лист или все листы до верхней строки в Excel, выполните следующие действия.

1. В рабочем листе, который нужно прокрутить до верха, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте один из приведенных ниже кодов VBA в окно Кода.

Код VBA: Прокрутка определенного рабочего листа до верхней строки

Sub ScrollToTop()
ActiveWindow.ScrollRow = 1
End Sub

Код VBA: Прокрутка всех рабочих листов до верхней строки

Sub Select_A1_On_Activeworkbook()
    Dim xSheet As Worksheet
    For Each xSheet In ActiveWorkbook.Sheets
        xSheet.Activate
        ActiveSheet.Range("A1").Select
    Next
    ActiveWorkbook.Worksheets(1).Activate
End Sub

3. После ввода кода VBA в окно Кода нажмите клавишу F5, чтобы запустить код.

Активный рабочий лист или все рабочие листы в текущей книге немедленно прокрутятся до верха.