加里（Gary）的工作簿中设置了十二个工作表，每个工作表一个月。

他已经在这些工作表中对信息进行了框架设计，因此恰好适合他的屏幕。在某个时候，他打开工作簿，发现June列的宽度已经扩大，因此它们都不适合他的屏幕。仅六月列会扩展，但是所有工作表的行高将从12.75扩展到13.50。如果Gary调整了所有内容的大小，使其再次适合他的屏幕，则一切正常，持续一周左右，然后重新调整大小。

目前尚不清楚什么可能导致此问题，但是您可以检查一些事情。如果工作簿存储在网络上，其他人可以在其中访问它，则可能是在其他人打开工作簿的同时进行了更改。此外，如果在不同的计算机上打开了工作簿，则可能是打开该工作簿的其他计算机可能会影响该工作簿，前提是它们安装了不同的屏幕分辨率或不同的打印机字体。

不确定原因，可能是最好的解决方案是创建一个在工作簿打开时自动运行的宏。该宏可以遍历工作表并将列宽和行高设置为所需的以下宏将执行以下步骤：

Private Sub Workbook_Open()

Dim wSheet As Worksheet

For Each wSheet In Worksheets         ' Change range to reflect columns and rows you need to affect         With wSheet.Range("A1:A15")

.ColumnWidth = 12     ' Change to column width desired             .RowHeight = 13       ' Change to row height desired         End With     Next wSheet End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（8774）适用于Office 365中的Microsoft Excel 2007、2010、2013、2016、2019和Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

Random Width and Height Changes。