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

一次只能冻结一行或一列，但是您是否尝试过一次性对多个工作表应用冻结或取消冻结窗格？这只能使用Excel中的VBA来实现。阅读本教程，了解如何一次性对多个Excel工作表应用冻结或取消冻结窗格。

一次性对多个Excel工作表应用冻结窗格

在这里，我们将首先插入一个VBA模块，然后运行代码来冻结单元格。让我们来看一个简单的过程，了解如何在Excel中一次性对多个工作表应用冻结窗格。

步骤1

让我们考虑一个新的Excel工作表，然后右键单击工作表名称并选择“查看代码”以打开VBA应用程序，然后单击“插入”，选择“模块”，并将程序输入到文本框中，如下面的图像所示。

程序

Sub Freeze()
'Updateby Nirmal
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

步骤2

现在单击F5运行VBA代码，多个单元格将被冻结，如下面的图像所示。

一次性对多个Excel工作表应用取消冻结窗格

在这里，我们将首先插入一个VBA模块，然后运行代码来取消冻结单元格。让我们来看一个简单的过程，了解如何在Excel中一次性对多个工作表应用取消冻结窗格。

步骤1

让我们考虑一个新的Excel工作表，然后右键单击工作表名称并选择“查看代码”以打开VBA应用程序，然后单击“插入”，选择“模块”，并将程序输入到文本框中，如下面的图像所示。

程序

Sub UnFreeze()
'Updateby Nirmal
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

步骤2

现在将电子表格保存为启用VBA的格式并关闭它；下次打开它时，单击“启用代码”以完成我们的过程。

结论

在本教程中，我们使用了一个简单的示例来演示如何将冻结和取消冻结应用于Excel中的多个工作表，以突出显示特定数据集。

Pradeep Kumar

更新于：2023年1月3日

753 次浏览

启动您的职业生涯

通过完成课程获得认证

开始学习