(智能间距换行均满足)Excel中单元格批量调整行间距,行高自动适应内容,且自动换行

本文介绍了如何在Excel中批量调整单元格行间距并实现行高自动适应内容,通过开启自动换行功能及使用VBA代码,使得数据表内容能够完美展示,行间距均匀,换行效果理想。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

提示:文章写完后,目录可以自动生成,如何生成可参考右边的帮助文档


一、操作步骤

1.打开EXCEL,选中要调整的单元列,点击开始菜单中的自动换行,换行成功后,点击格式中的自动调整行高
2.按alt+F11 键(部分电脑是 Fn+alt+F11)打开VBA编辑器,找到 Thisworkbook 双击,在弹出的代码框输入代码

在这里插入图片描述

输入下面代码
代码如下(示例):
此处可按照自己需求更改(第四行 For i = 1 To 10 代码,表示调整范围为第一行到第十行,可自行调整, 第五行代码 r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5 ,表示行高为5,可自行调整)

sub userset()
Dim i&, r As Range
Set r = Range("a1")
For i = 1 To 10
r.Cells(i).RowHeight = r.Cells(i).RowHeight + 5
Next i
End Sub
3.上面代码复制后,点击对话框菜单中的运行,点击运行子过程/用户窗体,关闭弹框,回到数据表,数据表中内容已经自动适应行高,自动换行,且同样行间距大小

在这里插入图片描述

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值