excel2003中，如何写宏程序，用于返回选定单元格中文本字符串的行数。

Question

谢谢楼下两位的回答，但还是有点不对，我的单元格是自动换行的，如果需要另起一段，也有用Alt+Enter键换行的，再请指点一下，返回这样的行数，怎么写宏程序。

Answer 1

请试下这个：

Sub LineCount()
count = 1
str1 = Selection.Range("A1").Value '选定区域中第1个单元格
i = Len(str1)
If i = 0 Then '如果没有内容就是 0 行
count = 0
Else
For j = 1 To i
If If Mid(str1, j, 1) = Chr(10) Then count = count + 1
Next j
End If
MsgBox "行数为：" & count
End Sub

GoodLuck!
----------------------------
惭愧，这几天我花了很多时间来研究这个行数的问题，结果是：没有结果，VBA无法确切地得到这个自动换行的行数！

看来，Excel单元格中的东西，在VBA中只把它作为一个整体处理，也就是一个单元格的属性（Value、Text等），作为一个属性它不是对象，所以它除了一个值之外没有其他的信息可以供VBA来提取，比如：一个单元格中各字符的不同大小、不同颜色、不同字体等。 虽然这些东西我们手工可以在Excel中操作，但VBA却无法操作(VBA只能按单元格来整体处理)

所以，我理解，这个具体行数，是Excel在把数据放入时根据各字符大小和单元格宽度以及数据中是否有换行来临时处理后的一个现象，并没有保存在哪个地方，所以VBA无法获得它。

也许只有自己来按各字符大小和单元格宽度来计算行数了，但这个“各字符大小（同一单元格中各字符大小不一样）”又恰是VBA所无法逐个取得的。

GoodLuck Anyway!

Answer 2

建立一个新宏，将一下代码拷贝，再执行。
其中对象单元格可根据自己需求，进行修改。

代码如下，仅供参考：
Sub test()
Dim i As Integer
Dim count As Integer
Dim length As Integer
Dim str As String
str = ActiveSheet.Cells(2, 2).Value 可以动态指定
length = Len(str)
count = 0
For i = 1 To length
If Right(Left(str, i), 1) = Chr(10) Then
count = count + 1
End If
Next i
MsgBox (count)

End Sub