Excel 批量增加行高,解决打印表格部分行显示不全的问题

EXCEl有自动调整行高的功能,但是自动调整的行高十份紧凑,打印时会出现部分行的字下半截看不见的问题。

行不多时,可以手动调整行高,但行数超过百行后,手动工作量太大, 现使用VBA的方式进行批量调整行高,对微软和WPS的excel都适用,这里我使用WPS。

1.调出开发工具标签

[外链图片转存失败,源站可能有防盗链机制,建议将图片保存下来直接上传(img-g4Zm7wPE-1587604234884)(https://img-log.csdnimg.cn/20200423091004134.png)]依次选择 文件->选项->自定义功能区->勾选开发工具
在这里插入图片描述

2.插入代码

在开发工具栏中选择VB编辑器

粘贴入下面代码

Sub HeightTo()

    Application.ScreenUpdating = False
    For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        If Application.WorksheetFunction.CountA(Rows(i)) > 0 Then
            Rows(i).RowHeight = Rows(i).RowHeight + 14
        End If
    Next i
    Application.ScreenUpdating = True

End Sub

在这里插入图片描述
代码中有两个参数可以根据实际情况自行修改

For i = 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

上述 1 表示从第1行开始自动调整行高,根据自己表格进行修改。

 Rows(i).RowHeight = Rows(i).RowHeight + 14

上述的 14 ,表示每行增加的行高是多少,可根据自己表格情况和打印机情况进行修改。

3.批量调整行高

选择表格所有列,并在任一列的间隔处双击,使用excvel自动调整行高功能,使表格变得紧缩。
回到VBA编辑界面,单击运行按钮。
在这里插入图片描述
完成!

评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值