KutoolsforOffice — 一套方案,五大工具。事半功倍。

如何一次性为多个工作表批量应用或取消冻结窗格?

作者Xiaoyang修改日期

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

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

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

一张截图,展示如何在 Excel 中选择单元格以对所有工作表应用冻结窗格

2. 单击 Excel 功能区上的 KUTOOLS PLUS> 工作表> 冻结多个工作表。参见截图:

一张截图,展示在 Kutools for Excel 中的“冻结窗格”选项,可一次性冻结多个工作表

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

注意:要一次性从所有工作表中移除冻结窗格,请选择 KUTOOLS PLUS 中的工作表 > 取消冻结多个工作表。此功能在处理大型或复杂数据集时,助您灵活切换视图,特别适用于模板准备、董事会会议等需要快速保持导航一致性的场景,提升效率,不容错过!


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

 
Kutools for Excel:超过 300 款实用工具触手可及!畅享 AI 驱动的功能,让工作更智能、更高效!立即下载!

最佳办公效率工具

🤖KUTOOLS AI 助手:基于以下内容革新数据分析:智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP多条件 VLookup  |  多值 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、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读
  • 在同一个窗口的新标签页中打开并创建多个文档,而非在新窗口中。
  • 将您的工作效率提升 50%,每天减少数百次鼠标点击!

所有 Kutools 插件,一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro,非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序,一个许可证— 几分钟内完成设置(支持 MSI)
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册,无需信用卡
  • 超值之选— 比单独购买插件更省钱