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

Function lines(r)  'r 为某单元格，如A1

rWrapText = False

x = rHeight

rWrapText = True

y = rHeight

lines = y / x

End Function

使用方法 lines(range("A1"))

思路：设置该单元格不自动换行，得到此时的高度x，恢复自动换行，得到此时的高度y，行数=y/x

1、按alt+F11打开vba编辑器；

2、输入以下代码

MsgBox "sheet1共有" & Sheet1UsedRangeRowsCount & "行记录。"

End Sub

3、点击运行。

Sub a()

Dim i As Integer

For i = 0 To UBound(Split(SelectionAddress, ","))

MsgBox Split(Split(SelectionAddress, ",")(i), "$")(2)

Next

End Sub

刚才又思考了一下，下面代码更加简单实用强大。

Sub test()

For Each c In SelectionRows

MsgBox cRow

Next

End Sub

以上就是关于请问如何用vba获取excel某一单元格中文字的行数（单元格是自动换行格式）全部的内容，包括:请问如何用vba获取excel某一单元格中文字的行数（单元格是自动换行格式）、Excel VBA 里，如何得到Sheet1表格中，有多少行记录、VBA如何得到选中的多行 的行号和列号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！