如何將凍結/解凍窗格一次應用於多個工作表？

假設您有一個包含數百個工作表的大型工作簿，現在您需要應用“凍結窗格”以一次凍結所有工作表。 使用Excel的“凍結窗格”功能，您一次只能凍結一個工作表，是否可以在Excel中立即凍結或取消凍結所有工作表？

使用VBA代碼一次將凍結窗格應用於所有工作表

使用VBA代碼一次將“解凍窗格”應用於所有工作表

使用Kutools for Excel一鍵一次將凍結/取消凍結窗格應用於所有工作表

使用VBA代碼一次將凍結窗格應用於所有工作表

您可以使用以下代碼將“凍結窗格”應用於所有工作表，請執行以下步驟：

1。 如果要凍結所有工作表在同一位置，請選擇要凍結在工作表中的單元格，然後按住 轉移 鍵以選擇所有工作表標籤。

2。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications窗口.

3。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

VBA代碼：在Excel中一次凍結所有工作表

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4。 然後按 F5 鍵以運行此代碼，並且所有工作表都已應用，並且凍結窗格處於相同位置。

注意： 如果未選中所有工作表，並且每​​個工作表的活動單元格都位於不同的位置，則凍結窗格將與活動單元格所在的位置不同。

使用VBA代碼一次將“解凍窗格”應用於所有工作表

如果您的Excel中有多個工作表與凍結窗格一起應用，除了一次一個地凍結它們之外，如何一次將其凍結？

1。 啟動您的工作簿，其中工作表已與凍結窗格一起應用。

2。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications窗口.

3。 點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊窗口.

VBA代碼：在Excel中一次解凍所有工作表

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4。 然後按 F5 鍵來運行此代碼，並且凍結窗格中應用的所有工作表都已立即被凍結。

使用Kutools for Excel一鍵一次將凍結/取消凍結窗格應用於所有工作表

如果您不熟悉VBA代碼，則可以使用以下功能強大的工具- Excel的Kutools，其 凍結窗格多個工作表 取消凍結窗格的多個工作表 實用程序可以幫助您立即凍結或取消凍結當前工作簿的所有工作表。

安裝後 Excel的Kutools，請這樣做：

1。 選擇一個要對所有工作表應用凍結窗格的單元格，在這種情況下，我單擊單元格B2，請參見屏幕截圖：

2。 然後點擊 Kutools 加 > 下載學習單 > 凍結窗格多個工作表，請參見屏幕截圖：

3。 然後，所有工作表都已應用於凍結窗格，位於單元格B2的相同位置。

備註：如果要立即取消凍結它們，只需單擊以下按鈕即可應用“取消凍結窗格多個工作表”功能 Kutools 加> 下載學習單 > 取消凍結窗格的多個工作表.

立即下載和免費試用Excel的Kutools！

演示：使用Kutools for Excel一鍵一次將凍結/取消凍結窗格應用於所有工作表