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

При работе с книгой Excel может понадобиться выбрать один и тот же диапазон на нескольких листах для более эффективного сравнения или анализа данных. Приведённые ниже методы помогут быстро синхронизировать выделение диапазона на всех листах, обеспечивая согласованное отображение информации.

Выбор одинаковых диапазонов на всех листах с помощью «Выбрать все листы»

Быстрая синхронизация всех листов одного диапазона одним щелчком

Использование кода VBA для Синхронизировать листы

Выбор одинаковых диапазонов на всех листах с помощью «Выбрать все листы»

Вы можете сделать так, чтобы все листы выбирали один и тот же диапазон в книге, как показано ниже:

1. Выберите на активном листе диапазон, который вы хотите выделить на всех листах, например «A103:C112».

2. Затем щелкните правой кнопкой мыши по вкладке листа и выберите в меню пункт «Выбрать все листы».

3. Один и тот же диапазон будет выделен на всех листах книги.

Быстрая синхронизация всех листов одного диапазона одним щелчком

Если вы установили «Kutools для Excel», вы можете использовать функцию «Синхронизировать листы», чтобы легко синхронизировать все листы, как показано ниже:

1. Активируйте нужный лист и выделите требуемый диапазон.

2. Нажмите  KUTOOLS PLUS > Лист > Синхронизировать листы.

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

4. Нажмите «ОК» — и все листы мгновенно синхронизируются: при переходе между ними на каждом будет выделяться один и тот же диапазон. См. скриншоты:

Использование кода VBA для Синхронизировать листы

С помощью приведённого ниже кода VBA вы сможете быстро выделить один и тот же диапазон на всех листах и отобразить окно «Выберите диапазон» в одном и том же положении.

1. Выделите нужный диапазон на любом листе, затем перейдите в меню «Разработчик» и выберите «Visual Basic». Откроется окно «Microsoft Visual Basic для приложений».

2. Выберите «Вставка» > «Модуль», затем скопируйте и вставьте в модуль следующий код:

VBA: синхронизация всех листов книги

Sub SynchSheets()
'Update 20130912
Dim WorkShts As Worksheet
Dim sht As Worksheet
Dim Top As Long
Dim Left As Long
Dim RngAddress As String
Application.ScreenUpdating = False
Set WorkShts = Application.ActiveSheet
Top = Application.ActiveWindow.ScrollRow
Left = Application.ActiveWindow.ScrollColumn
RngAddress = Application.ActiveWindow.RangeSelection.Address
For Each sht In Application.Worksheets
    If sht.Visible Then
        sht.Activate
        sht.Range(RngAddress).Select
        ActiveWindow.ScrollRow = Top
        ActiveWindow.ScrollColumn = Left
    End If
Next sht
WorkShts.Activate
Application.ScreenUpdating = True
End Sub

3. Затем нажмите кнопку «Выполнить» или клавишу F5, чтобы запустить код. На всех листах будет выделен один и тот же диапазон, а окно «Выберите диапазон» появится в одном и том же положении.

Связанные статьи