按照 单元格内容 调最合适的行高 UsedRange区域

perfect131

        有时候 excel 自带的自动调整行高，单元格内容还是会显示不全，这时候需要手动下拉调整

        用 vba 来解放双手，因为每个字体 大小 跟 列宽 的比例有差别，所以用的大致比例，没考虑单元格内容字体不一致的情况

例题：https://club.excelhome.net/thread-1660913-2-1.html

opiona

你的系数很牛啊
以前写过类似的, 没有解决字体大小的问题

我把你的代码改写到一个Sub中   带入参数即可调用
考虑的隐藏行的问题

改写代码时 漏掉一个  合并单元格 只有一列的情况
现在将sheet对象, 改成了range对象 应该快一些



自动行高_字体大小和文本长度.rar (70.78 KB, 下载次数: 87)

2023-4-28 19:16 上传

点击文件名下载附件

星河中的一粒沙

感觉计算量有点大啊，如果行数较多，跑一遍得好久时间

perfect131

星河中的一粒沙 发表于 2023-4-27 21:21
感觉计算量有点大啊，如果行数较多，跑一遍得好久时间

计算量不算大，这个看电脑配置，配置好 range跑百万行也就 10几秒
因为需要遍历单元格获取单元格字体，合并单元格处理，最后一行一行调行高

我这个老机子 ，遍历 1000多行 27列 也就 20秒
加个不为空判断 if len(arr(i,j)) then  会更快

leolee82

opiona 发表于 2023-4-27 21:09
你的系数很牛啊
以前写过类似的, 没有解决字体大小的问题

硬实快的离谱，不过对于内容很多单元格，在打印预览时会比显示的多出一到两行，还需要调整下参数或优化下
另外，指出个语法的小问题：
Dim I, X, Y,..., IntLineBreak As Long
您应该是其他语言用的比较多，VBA中每个变量声明都需要写出类型,上面的声明中只有IntLineBreak是long类型，前面的I,X,Y...都是Variant。相当于Dim I as Variant, X as Variant, Y as Variant,..., IntLineBreak As Long

山海风云轩

做个记号，学习学习   

gaolzhen

好东西 收藏了  

batmanbbs

leolee82 发表于 2023-5-1 03:02
硬实快的离谱，不过对于内容很多单元格，在打印预览时会比显示的多出一到两行，还需要调整下参数或优化下 ...

没错，打印和显示的结果有时不一致，这个问题如何解决呢？

morpheus126

batmanbbs 发表于 2023-11-30 23:21
没错，打印和显示的结果有时不一致，这个问题如何解决呢？

打印问题涉及屏幕分辨率、软件分辨率、打印机分辨率、字体等等因素。。。纠结不来，按百分比调增吧

perfect131

batmanbbs 发表于 2023-11-30 23:21
没错，打印和显示的结果有时不一致，这个问题如何解决呢？

打印和显示的结果有时不一致 ，这个是跨世纪难题，没答案的
先 调最合适的行高 打印的自己手动调一下，或者 先调打印的 再运行这段代码