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

完成!

相关推荐
葡萄城技术团队1 天前
从100秒到10秒的性能优化,你真的掌握 Excel 的使用技巧了吗?
excel
QQ3596773452 天前
ArcGIS Pro实现基于 Excel 表格批量创建标准地理数据库(GDB)——高效数据库建库解决方案
数据库·arcgis·excel
星空的资源小屋4 天前
Digital Clock 4,一款免费的个性化桌面数字时钟
stm32·单片机·嵌入式硬件·电脑·excel
揭老师高效办公4 天前
在Excel和WPS表格中批量删除数据区域的批注
excel·wps表格
我是zxb4 天前
EasyExcel:快速读写Excel的工具类
数据库·oracle·excel
辣香牛肉面4 天前
[Windows] 搜索文本2.6.2(从word、wps、excel、pdf和txt文件中查找文本的工具)
word·excel·wps·搜索文本
ljf88384 天前
Java导出复杂excel,自定义excel导出
java·开发语言·excel
tebukaopu1484 天前
json文件转excel
json·excel
shizidushu4 天前
How to work with merged cells in Excel with `openpyxl` in Python?
python·microsoft·excel·openpyxl
Eiceblue5 天前
使用 C# 设置 Excel 单元格格式
开发语言·后端·c#·.net·excel