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

 

运行结果

 

posted @   sunwei1943  阅读(998)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· DeepSeek “源神”启动!「GitHub 热点速览」
· 我与微信审核的“相爱相杀”看个人小程序副业
· 上周热点回顾(2.17-2.23)
· 如何使用 Uni-app 实现视频聊天(源码,支持安卓、iOS)
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)
点击右上角即可分享
微信分享提示