如何一次性对多个工作表应用冻结/取消冻结窗格？

在处理包含数十甚至数百个工作表的大型Excel工作簿时，您可能经常需要通过冻结窗格来保持某些行或列始终可见。然而，Excel默认的“冻结窗格”功能仅对活动工作表有效，手动在每个工作表上重复此操作非常耗时。如果您需要在所有工作表中一致地冻结（或稍后取消冻结）相同的行或列，是否有办法一次性将此设置应用于所有工作表——从而节省精力并减少遗漏某张工作表的可能性？

使用VBA代码一次性对所有工作表应用冻结窗格

使用VBA代码一次性对所有工作表取消冻结窗格

使用Kutools for Excel一键对所有工作表应用冻结/取消冻结窗格

使用VBA代码一次性对所有工作表应用冻结窗格

如果您希望在工作簿中的每个工作表的相同单元格位置冻结窗格，VBA提供了一种高效的解决方案来自动化此过程。它可以帮助所有工作表保持一致的视图，例如在整个大型工作簿中始终保持标题行或关键列可见。请注意，此方法要求您在每个工作表中选择要冻结的单元格，因为VBA将根据每个工作表中的活动单元格进行冻结。

1. 如果您想在相同位置冻结所有工作表，请在工作表中选择要冻结的单元格，然后按住Shift键选择所有工作表标签。

2. 按ALT + F11打开Microsoft Visual Basic for Applications窗口。

3. 在VBA编辑器窗口中，点击插入 > 模块，然后将以下VBA代码复制并粘贴到模块窗口中：

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代码一次性对所有工作表取消冻结窗格

当多个工作表已应用冻结窗格，您希望同时从所有工作表中移除此设置时，VBA解决方案可以极大地简化该过程。以下宏可快速取消所有工作表的冻结窗格，而无需逐一手动操作。

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或正在寻找更简单、无代码的方法，Kutools for Excel提供了一种有效的方式来通过直观的菜单跨所有工作表应用冻结或取消冻结窗格。此功能非常适合希望以最少步骤获得快速可靠解决方案且无需设置宏的用户。冻结多个工作表窗格和取消冻结多个工作表窗格工具能够无缝设置或移除每个工作表中的冻结窗格位置，只需一个操作即可完成。这样可以节省大量时间处理大型工作簿，并降低工作表之间不一致的风险。

安装Kutools for Excel后，请按照以下步骤操作：

1. 选择要在所有工作表中冻结窗格的单元格（例如，如果希望保持第1行和A列可见，则选择B2单元格）。此位置将统一应用于每个工作表。参见截图：

2. 在Excel功能区中，点击Kutools Plus > 工作表 > 冻结多个工作表窗格。参见截图：

3. 所有工作表将立即在相同的指定单元格位置（如B2）设置冻结窗格，因此您的视图在整个工作簿中保持一致。

注意：要通过一次操作从所有工作表中移除冻结窗格，请选择Kutools Plus > 工作表 > 取消冻结多个工作表窗格。这在处理大型或复杂数据集时提供了灵活切换视图的功能。该功能在模板准备、董事会会议或任何需要快速导航一致性的情况下特别有用。

演示：使用Kutools for Excel一键对所有工作表应用冻结/取消冻结窗格