通过vba计算包装单元中的行数

Question

如何通过vba代码计算包装单元中的行数？

With Cells(1, 1) 
    .WrapText = False 
    height1 = .height 
    .WrapText = True 
    height2 = .height 
End With 
MsgBox height2/height1 & " Lines" 

由于我已将行高设置为固定值（只有一行可见），因此此代码不起作用。

同样在我的文本中，由于数据是通过VBA代码输入的，因此不会换行。

在此先感谢。

Answer 1

的一种方法是减去电池的长度与使用的工作表函数Substitute

Sub test() 
Dim c As Range 
Set c = ActiveCell 
MsgBox Len(c.Value) - Len(Application.WorksheetFunction.Substitute(c.Value, Chr(10), vbNullString)) & " Linebreak(s)" 
End Sub 

从

换行符可以用一个0长度的字符串被替换的未调节细胞的长度除去换行符[更新; Not a linebreak!]

正如Sid在Get first two lines of text from a wraped cell in excel中指出的那样，如果使用字体大小（可以更改），这是非常棘手的。

我认为最万无一失的方法是将单元格的内容复制到其他地方（到否则空白行），并基于该细胞得到高度自动调整该行。