根据单元格内容自动调整行高

xuanhao1012

现在面对的情况是：当单元格内容过长，通过内容自动换行显示后，由于行高限制，下面的文字内容看不见！
想通过代码实现的功能如下：、
1、单元格字体大小SIZE：为16
2、当单元格可以完整显示内容时，保持行高26；当内容过长不能完整显示时，能自动调整行高！
3、保持列宽不变，即对列宽不使用Range.Columns.AutoFit !

香川群子

较为简单的代码：
    Selection.Font.Size = 16
    Selection.RowHeight = 26
    Selection.WrapText = True
    Selection.EntireRow.AutoFit

=======================

默认行高是20.25的倍数
如果担心行高AutoFit以后，还是不够……

那么如下代码，把行高默认值改为25的倍数足够啦：

Selection.Font.Size = 16
    Selection.WrapText = True
    Selection.EntireRow.AutoFit
    Selection.RowHeight = (Selection.RowHeight / 20.25) * 25

+++++++++++++++++++++++++

或者，直接乘以1.25倍吧

Selection.RowHeight = Selection.RowHeight  * 1.25

laijiafu915527

本人是初学，能告诉完整可用代码吗？

fcdd

香川群子 发表于 2010-9-15 22:10
较为简单的代码：
    Selection.Font.Size = 16
    Selection.RowHeight = 26

我需要这代码，，今天找到了。。
但是请大侠在原有基础上对~（合并单元格一样有效）

你提供的代码只对单元格有效
但合并单元格就不能自动调整行高

最后送你两朵鲜花。。。。。。小小意思，多谢提供

blanksoul12

合併單元格可以用另一個未有合併但寬度一樣的單元格來模擬的

香川群子

fcdd 发表于 2013-9-27 15:18
我需要这代码，，今天找到了。。
但是请大侠在原有基础上对~（合并单元格一样有效）

原则上建议不要使用合并单元格。

或者待行高全部处理完成以后再去合并单元格。


…………
合并单元格因为不知道该调整哪一个单元格，所以无法自动处理。

即，如果A1-A3为合并单元格，那么我不知道你应该调整A1还是A2还是A3……

luwei43

香川群子 发表于 2010-9-15 22:10
较为简单的代码：
    Selection.Font.Size = 16
    Selection.RowHeight = 26

感谢大佬解惑，困扰我一两年了