Excel中用VBA将不规律的行高分别设置为指定的值
Excel表格中，如果存在不同的行高的话，
可以采用自适应的方式设置行高，但是这样设置完之后，看起来很挤且凌乱
这是自适应设置的结果，如下图
如果设置为固定行高的话，行数太多就显示不完整，如下图
遇到这种情况，可以使用VBA设置行高，步骤如下：
1.在工作表上点击右键，选择查看代码
2.依次选择【Sheet1（Sheet1）】 - 【插入】 - 【模块】
3.选择模块1，粘贴以下代码：
Sub rowheight() Sheets("SHeet1").Select '选择SHeet1工作表 Dim i As Integer For i = 1 To 101 '定义循环的次数（需要设置工作表的行数） If Rows(i).rowheight < 28.5 Then '如果行高小于28.5（默认2行的高度），则将行高设置为25 Rows(i).rowheight = 25 ElseIf Rows(i).rowheight >= 28.5 And Rows(i).rowheight < 40.5 Then '如果行高在28.5~40.5之间的话（默认3行的高度），则将行高设置为40 Rows(i).rowheight = 40 ElseIf Rows(i).rowheight >= 40.5 Then '如果行高大于40.5（默认3行的高度），则将行高设置为自适应 Rows(i).EntireRow.AutoFit End If Next i End Sub
4.运行代码
运行结果
