Excel可以统一调整所有行的行高,但是想在每行原有的基础上增加一个固定的高度,确没有相关的设置,不过也不是不可以实现,只需要用VB宏就可以实现。
在Excel创建一个宏,输入下面的代码:
Sub abc()
Rem 第1行到第100行进行一次循环(可根据需要自己改行数)
For i = 1 To 100
Rem 隐藏行不执行(可根据需要自己修改,进行了更新,如果需要执行隐藏行请参考下面图片里的代码)
If Not Rows(i).Hidden Then
Rem 第i行调整为最适合行高(如果不需要此步骤删除下面的代码)
Rows(i).AutoFit
Rem 第i行高度+6(可根据需要自己改高度)
Rows(i).RowHeight = Rows(i).RowHeight + 6
End If
Next
End Sub
那么代码Rem 后面是下面一行代码的注释,也就是解释,比如【Rows(i).AutoFit】这段代码会先调整为适合行高,如果不需要删除这段代码即可。
设置步骤:
- 这里以WPS演示,Office类似。
- 点击“开发工具”-“VB宏”(WPS启用宏需要先安装VBA)
- 宏名输入“abc”,点击创建。
- 在弹出的代码编辑窗口先删除原有的代码,在复制上面的代码进去,最后关闭窗口即可。
- 需要使用的时候,点击“开发工具”-“VB宏”,选择abc,点击运行。

如果你的WPS没有安装VBA,可以注册账号,下载本篇文章的附件,附件为VBA7.1版本,2金币仅仅两分钱,也可以签到两天免费下载。
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。