跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

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

Author Xiaoyang Last modified

在处理包含数十甚至数百个工作表的大型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 。安装完成后,您可以轻松按照以下说明访问该功能。

安装Kutools for Excel后,请按照以下步骤操作:

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

A screenshot showing how to select a cell in Excel for applying freeze panes across all worksheets

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

A screenshot showing the Freeze Panes option in Kutools for Excel to freeze multiple worksheets at once

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

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


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

 
Kutools for Excel:超过 300 种实用工具触手可及!永久免费享受 AI 功能!立即下载!

最佳Office办公效率工具

🤖 Kutools AI 助手:以智能执行为基础,彻底革新数据分析 |代码生成 |自定义公式创建|数据分析与图表生成 |调用Kutools函数……
热门功能:查找、选中项的背景色或标记重复项 | 删除空行 | 合并列或单元格且不丢失数据 | 四舍五入……
高级LOOKUP多条件VLookup|多值VLookup|多表查找|模糊查找……
高级下拉列表快速创建下拉列表 |依赖下拉列表 | 多选下拉列表……
列管理器添加指定数量的列 | 移动列 | 切换隐藏列的可见状态 | 比较区域与列……
特色功能网格聚焦 |设计视图 | 增强编辑栏 | 工作簿及工作表管理器 | 资源库(自动文本) | 日期提取 | 合并数据 | 加密/解密单元格 | 按名单发送电子邮件 | 超级筛选 | 特殊筛选(筛选粗体/倾斜/删除线等)……
15大工具集12项 文本工具添加文本删除特定字符等)|50+种 图表 类型甘特图等)|40+实用 公式基于生日计算年龄等)|19项 插入工具插入二维码从路径插入图片等)|12项 转换工具小写金额转大写汇率转换等)|7项 合并与分割工具高级合并行分割单元格等)| ……
Kutools支持多种语言——可选择英语、西班牙语、德语、法语、中文等40多种语言!

通过Kutools for Excel提升您的Excel技能,体验前所未有的高效办公。 Kutools for Excel提供300多项高级功能,助您提升效率并节省时间。 点击此处获取您最需要的功能……


Office Tab为Office带来多标签界面,让您的工作更加轻松

  • 支持在Word、Excel、PowerPoint中进行多标签编辑与阅读
  • 在同一个窗口的新标签页中打开和创建多个文档,而不是分多个窗口。
  • 可提升50%的工作效率,每天为您减少数百次鼠标点击!

所有Kutools加载项,一键安装

Kutools for Office套件包含Excel、Word、Outlook和PowerPoint的插件,以及Office Tab Pro,非常适合跨Office应用团队使用。

Excel Word Outlook Tabs PowerPoint
  • 全能套装——Excel、Word、Outlook和PowerPoint插件+Office Tab Pro
  • 单一安装包、单一授权——数分钟即可完成设置(支持MSI)
  • 协同更高效——提升Office应用间的整体工作效率
  • 30天全功能试用——无需注册,无需信用卡
  • 超高性价比——比单独购买更实惠