新浪博客

excel合并单元格后，合并的单元格的高度如何自动调节？

2012-05-03 10:41阅读：

http://blog.sina.cn/dpool/blog/u/1403501274

我还没找到可行的办法。 能弄清楚问题是能力。把问题描述清楚是能力。听的懂问题也是一种能力。
转来参考：
**************************

[求助] 宏实现自动调整合并单元格高度（问题解决结贴） [复制链接]

需求：
有一个宽度不固定的合并单元格，因为合并单元格不能自动展开，把单元格内的内容全部这行表示出来，所以需要用宏控制根据单元格的宽度和文字数，字体大小，来计算出该合并单元格正好能折行表示全部文字的高度，并设定到该行的高度上。
（如果能实现，一行有很多个单元格，计算出该行最大的行高来设定就更好了。）
效果：可以点个button，然后单元格展开就行。
多谢帮忙了！
************
自己动手丰衣足食，哈哈，问题解决了。
我使用了个temp单元格，先把合并单元格要显示的文字，copy到temp单元格里计算出rows的高度，再设定到合并单元格的行中。
勉强解决，不是很完美，应该可以应付客户了。
这个问题，其他朋友如果遇到了，没有什么其他太好的解决办法，可以参照下我的解决方式，做个
借鉴吧。
另外感谢下蓝桥玄霜的帮忙。
**************************
http://club.excelhome.net/forum.php?mod=viewthread&tid=516742&extra=page=1&page=1&
【我下载了。但打开时说丢失了visual basic什么东西的，用不了。没搞懂是不是在文档里放一个temp单元格，那样的话，似乎不实用哦……】


有人说试试这个代码，没试过，不知道效果
Sub autoimprove()
Dim c As Range, a As Integer
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
a = UBound(Split(c.Value, Chr(10)))
If a >= 0 Then Rows(c.Row).RowHeight = 14.25 * (a + 1)
End If
Next
End Sub

我的更多文章

下载客户端阅读体验更佳

APP专享