如何将冻结/解冻窗格一次应用于多个工作表？

网友投稿 385 2023-12-10

如何将冻结/解冻窗格一次应用于多个工作表？

假设您有一个包含数百个工作表的大型工作簿，现在您需要应用“冻结窗格”以一次冻结所有工作表。使用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

Copy

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

Copy

4。然后按 F5 键来运行此代码，并且冻结窗格中应用的所有工作表都已立即被冻结。

通过单击一次将冻结/解冻窗格应用于所有工作表 Kutools for Excel

如果您不熟悉VBA代码，则可以使用以下功能强大的工具- Kutools for Excel，它的 冻结窗格多个工作表 和 取消冻结窗格的多个工作表 实用程序可以帮助您立即冻结或取消冻结当前工作簿的所有工作表。

请注意：申请这个 冻结窗格多个工作表，首先，您应该下载 Kutools for Excel，然后快速轻松地应用该功能。

安装后 Kutools for Excel，请这样做：

1。选择一个要在其中将冻结窗格应用于所有工作表的单元格，在这种情况下，我单击单元格B2，请参见屏幕截图：

2。然后点击 Kutools 加 > 工作表 > 冻结窗格多个工作表，请参见屏幕截图：

3。然后，所有工作表都已应用于冻结窗格，位于单元格B2的相同位置。

备注：如果要立即取消冻结它们，只需单击以下按钮即可应用“取消冻结窗格多个工作表”功能 Kutools 加> 工作表 > 取消冻结窗格的多个工作表.