58问答库 > 请问如何用vba获取excel某一单元格中文字的行数？（单元格是自动换行格式）

请问如何用vba获取excel某一单元格中文字的行数？（单元格是自动换行格式）

2024-11-02 23:10:24

推荐回答（2个）

回答（1）：

Function lines(r)  'r 为某单元格，如A1
r.WrapText = False
x = r.Height
r.WrapText = True
y = r.Height
lines = y / x
End Function
使用方法 lines(range("A1"))
思路：设置该单元格不自动换行，得到此时的高度x，恢复自动换行，得到此时的高度y，行数=y/x

回答（2）：

搜一下：请问如何用vba获取excel某一单元格中文字的行数？（单元格是自动换行格式）