526互联

Excel中用VBA将不规律的行高分别设置为指定的值

发布时间 2023-08-30 00:14:40作者: sunwei1943

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.运行代码

 

运行结果