Při práci s excelovým sešitem možná budete muset vybrat stejný rozsah ve více listech, abyste mohli porovnávat nebo analyzovat data efektivněji. Níže uvedené metody vám pomohou rychle synchronizovat vybrané rozsahy ve všech listech, což usnadní konzistentní zobrazení informací.

Vyberte stejné rozsahy ve všech pracovních listech pomocí Vybrat všechny listy

Rychle synchronizujte všechny pracovní listy stejného rozsahu jedním kliknutím

Používání kódu VBA k synchronizaci pracovních listů

Vyberte stejné rozsahy ve všech pracovních listech pomocí Vybrat všechny listy

Všechny listy můžete vytvořit tak, aby měl v sešitu vybraný stejný rozsah následujícím způsobem:

1. Vyberte rozsah v aktivním listu, který chcete vybrat ve všech listech. Například rozsah A103: C112

2. Poté klikněte pravým tlačítkem myši na kartu listu a vyberte Vyberte všechny listy z nabídky. Viz screenshot:

3. Všechny listy v sešitu budou mít vybraný stejný rozsah.

Jedním kliknutím můžete rychle synchronizovat všechny listy do stejného rozsahu

Pokud jste nainstalovali Kutools pro Excel, můžete použít Synchronizace pracovních listů funkce pro snadnou synchronizaci všech listů tak, aby měly stejný rozsah:

1. Aktivujte list a vyberte rozsah, který chcete použít.

2, klikněte Enterprise > Nástroje listu > Synchronizace pracovních listů, viz screenshot:

3. Zobrazí se okno s výzvou, které vám připomene, že všechny listy v sešitu budou mít stejný vybraný rozsah a levou horní buňku.

4, klikněte OKa všechny listy byly synchronizovány. Při procházení mezi všemi listy bude mít každý list vybraný stejný rozsah. Viz snímky obrazovky:

Používání kódu VBA k synchronizaci pracovních listů

Pomocí následujícího kódu VBA můžete rychle vytvořit všechny pracovní listy tak, aby měl vybraný stejný rozsah a zobrazit vybraný rozsah na stejné pozici okna.

1. Vyberte rozsah v jednom listu a poté klikněte Vývojka >Visual Basic, nový Okno Microsoft Visual Basic pro aplikace se zobrazí,

2. klikněte Vložit > Modula poté zkopírujte a vložte následující kód do modulu:

VBA: synchronizujte všechny listy sešitu

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. Pak klikněte na tlačítko  nebo F5 pro spuštění kódu, všechny listy budou mít vybraný stejný rozsah a zobrazí vybrané rozsahy na stejné pozici v okně.

Související články