请教如何用VBA统计一个单元格内一段文字有多少行？

买卖208

    如题，请教如何用VBA统计一个单元格内一段文字有多少行？ 谢谢啊！！！

tonychris

明显不是自动换行那种。只要判断vblf的个数就知道了
a=cells(1,1)
msgbox len(a)-len(replace(a,vblf,""))+1

ggsmart

是自自动换行的行数还是有换行符的行数？

maditate

这是一个相当复杂的问题。什么叫行？如果以自然换行为行，那么单元格宽度随时可变，行数也就随时可变。这行数统计也就难了。

易克赛儿

我也想问这个问题，楼上都没有正确回答。
日常做ExcelＶＢＡ，经常会处理这样的表格：一张几千行的表，我们通常会按字符数最多的那一列来设置行高。此列中有的单元格中是自动换行，同时也有按ALT+Enter硬换行的。我们需要用ＶＢＡ来调整行高。比如只有一行文字的正常行高是18，　如果有6行文字，＝18*6　这样就很容易用ＶＢＡ代码设置整个表格的行高了。　问题是我们不知道用什么ＶＢＡ的命令来获取单元格中的字符行数。