合并单元格也能"最适合行高"

vistababy

621107 发表于 2014-6-12 17:05
你这个上标是怎么弄出来的.. 上传上来我试试,
我原来的帖子好像没办法编辑了 我修改了下代码 修复了代码 ...

这个厉害了。我拿了几个有大量合并单元格的文件做试验，找了好几个别的代码，不是这一行不行，就是那一行不行，反正就是不完美，用这个代码，普通视图还有个别行有问题显示不全，但在页面布局视图下运行，简直完美了。不过加了下面3行代码，处理速度慢点点。

vistababy

dcb0513 发表于 2018-12-14 08:20
好像还是有打印不全的问题，不知道谁能搞定

看61楼看61楼看61楼看61楼看61楼。

vistababy

我发现了一个对处理合并单元格“最适合行高”问题目前所有代码都不能解决的一个问题，这个代码也不例外，就是：如果合并单元格里面的所有文字占用的总高度超过Excel最大单行行高409.5，将出现问题，超出一点点，有时候勉强还可以，但超出越多，问题越大，基本上无法通过代码实现最适合行高的功能，目前还没有找到针对性代码。
建议内容太多，缩小字体或拉宽单元格，将合并单元格所有文字总高度限制在409.5以内，一般问题不大，否则只能手动拉了。

vistababy

vistababy 发表于 2023-7-16 23:01
我发现了一个对处理合并单元格“最适合行高”问题目前所有代码都不能解决的一个问题，这个代码也不例外，就 ...

加了如图位置两三行代码，终于能随时发现内容太多的合并单元格，自动行高无法完全显示，标记下来，可手动调整行高。
建议msgbox的代码还要加到for。。next循环的next的上一行，这样同时还能检测非合并单元格行高达到409.5的情况。

vistababy

除了发现在页面布局下进行自动行高效果更好外，我还发现了一个对自动行高有影响的地方，就是单元格格式一定要设置为“宋体”之类的字体，千万不要用默认的“等线”，因为经过我多文件测试，有些文件不论如何设置自动行高，编辑状态看到是正常的，但打印预览的时候上下框线边缘都会缺半个字，打印出来也是缺的，就是这个“等线”造成的。
我已经在自动行高程序前加入了代码解决等线设为宋体的问题


    With ActiveWorkbook.Styles("Normal")
        .IncludeFont = True
    End With
    With ActiveWorkbook.Styles("Normal").Font
        .Name = "宋体"
    End With

blackttea1

非常实用的东西，感谢！