excel中解决多行文本自动调整行高后打印预览还是显示不全情况

**注意:**此方法对于多行合并后单元格行高调整不适用,需要手动调整,如大家有简便方法,欢迎评论。

一、调整表格为自动调整行高

1)点击此处全选表格

2)在第一行序号单元格的下端,鼠标成黑十字时,双击。(或者开始菜单---格式---自动调整行高)

此时,文字其实还是过于紧凑。

二、批量增加所有行的行高值

以下为转载内容,感谢博主的分享。


版权声明:本文为CSDN博主「黑鸦log」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:

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

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

1.调出开发工具标签

依次选择 文件->选项->自定义功能区->勾选开发工具

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编辑界面,单击运行按钮。

完成!

相关推荐
QQ35967734515 小时前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
星空的资源小屋2 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公2 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb2 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面2 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88383 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1483 天前
json文件转excel
json·excel
shizidushu3 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue3 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel
acaad4 天前
Apache Poi 实现导出excel表格 合并区域边框未完全显示的问题
spring·apache·excel