快速解决Excel多行行高过小导致数据无法阅读的问题

yivifu2025-12-15 17:05

近日遇到一个Excel文档，从第9行到第866行设置的行高非常小，导致这些行的数据无法阅读，如下图：

上面的第9行到第866行并未被隐藏，使用取消隐藏命令并不能让数据显示，如果用鼠标按住左侧行号区域的行高控制线向下拉，可以拉出第866行数据。一般遇到这种情况，在某些版本的Excel中，可以在左侧行号区域按住第8行行号区域然后移动到第867行，从而选择第8行到第867行，然后调整可见的第8行或第867行行高，所有被选择的行就统一了行高。但是在我用的Excel2024版中，上面的操作并未产生预期效果，经试验，用以下两种方法可以解决：

1、选择第8行至第867行，然后按住Ctrl键，分别用鼠标左键点击第8行和第867行，仅保留不可见的行为选区，再拉动不可见行的行高控制线，从而将不可见行的行高统一调整为一个合适的数值，如下图：

2、使用VBA

vbnet 复制代码

Sub AdjustRowHeight()
    Dim i%
    ' 工作表为Sheet2
    For i = Sheet2.UsedRange.Rows.Count To 8 Step -1
        Rows(CStr(i) & ":" & i).RowHeight = 40
    Next i
End Sub

奇怪的是，i从第8行移动到Sheet2.UsedRange.Rows.Count时宏运行失败，从下至上设置行高却运行成功，不明其中的所以然，AI也懵圈。