我每周用 Excel 做两次演示,想知道如何调整所有行的大小,而不小于 60.00(80 像素)?有些行包含的信息比其他行多,所以我必须滚动 1500 行,找到需要调整大小的行。我无法锁定单元格,因为每次更新工作表时信息都在不断移动。
答案1
这个答案假设您知道如何ThisWorkbook
在 VBA 资源管理器(Alt+ F11)中添加代码以及如何运行宏。
不确定您使用的是哪个版本,但此代码是在 2010 年测试的。此 VBA 将创建一个宏,您可以运行该宏来将行格式化为自动换行,然后检查行高。如果行高不及 60,它将设置为 60。
Sub SetRowHeight()
For Each c In Range("A1:D1500") 'set this range to match your sheet
c.EntireRow.WrapText = True
If c.RowHeight < 60 Then c.RowHeight = 60
Next c
End Sub
注意:这不会改变列宽。
答案2
您可以单击左上角的单元格来选择工作簿中的所有行和列
在Cells
功能区部分中选择Format
下拉菜单:
您可以自动调整所有行,也可以使用Row Height
对话框设置明确的高度。