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

小分头 · 发表于 2018-6-25 13:39

wwelcome 发表于 2014-12-27 20:11
根据楼主程序略改了一下，适用于所有类型单元格的行高自适应

Sub 行高自适应()

显示不全，紫薯布丁

dcb0513 · 发表于 2018-12-14 08:20

好像还是有打印不全的问题，不知道谁能搞定

kmcla · 发表于 2019-4-15 20:04

zhouandke 发表于 2014-8-21 23:10
看了大家的思路, 我也写了一个函数, 方便大家阅读理解
思路:
1. 将合并区域的内容复制到一个新表的 range ...

记号记号记号记号记号记号记号记号记号记号记号

larer · 发表于 2019-4-16 12:43

我原来也做过一个,和楼主的思路类似,想到了以前.

1249994139 · 发表于 2019-5-25 15:16

留印学习，谢谢楼主分享

dongdonggood · 发表于 2020-8-25 09:33

非常有用，已经添加到我的表格里面了。

dc201010 · 发表于 2021-4-9 16:58

谢谢分享~非常适用！！！！！！！！！

李暮月 · 发表于 2021-6-28 00:40

爱上学习89 发表于 2017-5-29 15:30
高手，您的这段代码小弟试了试很好用，解决了大问题。可是，通过代码，行高都变成了自动适应行高包括合 ...

If (rrng.RowHeight < wrkSheet.Cells(1, 1).RowHeight) Then
                  Dim tempHeight As Double
                  Dim tempCount As Integer
                  tempHeight = wrkSheet.Cells(1, 1).RowHeight + 100
                  tempCount = rrng.MergeArea.Rows.Count
                  For Each addHeightRow In rrng.MergeArea.Rows

alex2008alex · 发表于 2022-7-30 17:42

李暮月发表于 2021-6-28 00:40
If (rrng.RowHeight < wrkSheet.Cells(1, 1).RowHeight) Then
Dim tempHeight As D ...

如果这个合并单元格的内容是通过公式从别的单元格里调用过来的，好像就不能调整了，有没有方法解决？

xiaomils · 发表于 2022-11-9 07:08

学习了，谢谢

		自动登录	找回密码
密码			免费注册

[分享] 合并单元格也能"最适合行高"