深圳 网站 设计,广告网站定制,铁路建设工程网站,微信小程序开发公司排名注意#xff1a;此方法对于多行合并后单元格行高调整不适用#xff0c;需要手动调整#xff0c;如大家有简便方法#xff0c;欢迎评论。
一、调整表格为自动调整行高
1#xff09;点击此处全选表格 2#xff09;在第一行序号单元格的下端#xff0c;鼠标成黑十字时此方法对于多行合并后单元格行高调整不适用需要手动调整如大家有简便方法欢迎评论。
一、调整表格为自动调整行高
1点击此处全选表格 2在第一行序号单元格的下端鼠标成黑十字时双击。或者开始菜单---格式---自动调整行高 此时文字其实还是过于紧凑。
二、批量增加所有行的行高值
以下为转载内容感谢博主的分享。
———————————————— 版权声明本文为CSDN博主「黑鸦log」的原创文章遵循CC 4.0 BY-SA版权协议转载请附上原文出处链接及本声明。原文链接
EXCEl有自动调整行高的功能但是自动调整的行高十份紧凑打印时会出现部分行的字下半截看不见的问题。
行不多时可以手动调整行高但行数超过百行后手动工作量太大 现使用VBA的方式进行批量调整行高对微软和WPS的excel都适用这里我使用WPS。
1.调出开发工具标签 依次选择 文件-选项-自定义功能区-勾选开发工具 2.插入代码
在开发工具栏中选择VB编辑器 粘贴入下面代码
Sub HeightTo()Application.ScreenUpdating FalseFor i 1 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).RowIf Application.WorksheetFunction.CountA(Rows(i)) 0 ThenRows(i).RowHeight Rows(i).RowHeight 14End IfNext iApplication.ScreenUpdating TrueEnd 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编辑界面单击运行按钮。
完成
