java导出的excel怎么行高自动设置_对Excel自动调整行高不满意?试试看一键调整...

很多时候,我们对Excel自动调整行高的结果并不满意,尤其是密集恐惧症患者。比如下面这样的:

3bf4e96288b958717f219ac85c37392d.png

虽然效果已经不错了,但强迫症患者觉得还是拥挤了一点,所以我们需要有个简便法子在自动调整行高基础上,再增加一点行与行的距离。

办法就是录制一个宏,然后运行它。

确保“开发工具”可见

如果“开发工具”没有出现在菜单栏上,可以按照下面的图示使其显示出来:

a3a56357d08a00260fa1a84e00d39c74.png
8397746f22d9c1820053b7a6ce8a8e16.png

按上图操作后,“开发工具”就显示在菜单栏上了。

录制一个宏

9b0fa9cd9f1274b07c78101ac888fd9c.png

点击“录制宏”之后,会弹出设置对话框。根据自己的需求进行设置。注意快捷键只能设置字母。

a4b29ddee8cdaeb5d65ce39bd942e4bc.png

设置完毕确定后,即开始录制。但是我们并不需要真正录制代码,我们只是要获取一个便于我们编辑的宏。所以我们可以马上点击“停止录制”:

85bc2dfc9699369d2e7af6068060e57b.png

然后点击“开发工具”——“宏”,选中我们刚才创建的宏,点击“编辑”:

b0259199f304a152f09191ae475537b9.png

进入代码编辑窗口后,清空已有代码:

6108e47c4e01cf83bb61bf87667a32a3.png

将下面的代码复制粘贴到刚才清空的位置,这时可以直接关闭编辑窗口,vba编辑器会自动保存代码,不用担心。

Sub AutoFitPlus() Dim rng As Range Selection.EntireRow.AutoFit For Each rng In Selection.Rows rng.RowHeight = rng.RowHeight + 10 Next rng Selection.VerticalAlignment = xlCenterEnd Sub

使用宏

现在我们可以使用我们的宏来设置行高度了。选中要设置行高的列,然后点击“开发工具”——“宏”,找到我们刚才创建的宏,点击“运行”,眨眼功夫,行高就自动设置好了。

5e2ac0e2f673ed9f8f269d31afe7e2e8.png

红框内就是我们通过宏设置好的行高,红框外是自动设置的行高。

注意:一定要选中实际需要调整的单元格或行之后再运行宏,不要直接选中整列然后设置行高。不信邪的可以试试看选中整列后再运行宏会发生什么。

如果您觉得这个帖子对您有用,欢迎转发、收藏和评论。如果您有任何问题,欢迎评论中留言,谢谢。

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值