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.运行代码
运行结果
分类:
Excel问题汇总
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· DeepSeek “源神”启动!「GitHub 热点速览」
· 我与微信审核的“相爱相杀”看个人小程序副业
· 上周热点回顾(2.17-2.23)
· 如何使用 Uni-app 实现视频聊天(源码,支持安卓、iOS)
· C# 集成 DeepSeek 模型实现 AI 私有化(本地部署与 API 调用教程)