请教关于excel中行高用vba设置的代码

Question

在不改变列宽的前提下，如果有一行字则行高是1.2 如果有两行字是2.0 三行字行高是2.8，四行字行高是3.6 请教vba高手 非常感谢

Answer 1

以A1单元格为例：

Sub aa()
I = 1
Set rng = Range("a1")
Dim H1 As Single, H2 As Single
rng.WrapText = False
rng.Rows.AutoFit
H1 = rng.Height
rng.WrapText = True
rng.Rows.AutoFit
H2 = rng.Height
n = H2 \ H1
MsgBox "单元格" & rng.Address & " 有 " & n & " 行！"
Select Case n
Case 1
rng.RowHeight = 20
Case 2
rng.RowHeight = 40
Case 3
rng.RowHeight = 60
Case 4
rng.RowHeight = 80
End Select
End Sub

Answer 2

是说一个单元格自动换行后，根据行数分别设置不同的行高

Answer 3

你可以根据查找你一段string字符串中的chr（10）存在的个数即行数，chr（10）即是换行符，设置行高row（i）.height，思路就是这样。