是否有方法可以恢复Excel所有工作表之前设置的列宽尺寸?
Excel工作表批量恢复原有列宽操作方案
方案1:恢复历史版本(优先推荐,可完整还原所有自定义列宽)
如果你的Excel开启了自动保存/备份功能,直接按以下步骤操作即可:
- 打开目标Excel文件,点击左上角「文件」选项卡
- 依次选择「信息」-「管理工作簿」,在弹出的历史版本列表中,选择列宽未发生异常的历史版本打开即可恢复全部原有设置
如果你的Excel未开启自动保存功能,该方案无法使用,请参考后续方案
方案2:格式刷批量同步(适合同一文件内尚存列宽正常的工作表)
如果当前文件中还有任意一张工作表的列宽保持正常状态,可通过格式刷一键同步所有异常表的列宽:
- 打开列宽正常的工作表,点击工作表左上角行号与列标交叉的空白三角按钮全选整张表
- 点击工具栏中的「格式刷」,切换到列宽异常的工作表,同样点击全选按钮,即可一次性同步所有列宽
如果需要同步多张异常工作表,双击格式刷即可连续使用,全部同步完成后再点击一次格式刷即可退出该功能
方案3:VBA批量设置固定列宽(适合无历史版本、无参照正常工作表的场景)
如果你之前设置的自定义列宽为统一固定值,可通过宏批量调整所有工作表的列宽:
- 按
Alt+F11打开VBA编辑器,右键点击左侧工程列表中的当前工作簿名称,依次选择「插入」-「模块」 - 将下方代码粘贴到模块编辑窗口,将代码中的
15修改为你之前自定义的列宽数值,按F5运行即可批量修改所有工作表的列宽
Sub 批量调整所有工作表列宽() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.Cells.ColumnWidth = 15 '此处数值可替换为你需要的自定义列宽值 Next ws End Sub
如果需要恢复为Excel默认标准列宽,将上述代码中的数值改为8.38即可
内容的提问来源于stack exchange,提问作者VSR PUROHIT
相关产品推荐
相关产品推荐

