如何判断一个单元格内有几行？

mynameqiang2 · 发表于 2009-3-5 14:52

A1单元格使用了自动换行，
请问如何判断A1单元格输入后到底有几行内容？

mineshine · 发表于 2009-3-5 15:16

Sub test()
Dim StaR As String
Dim i, m As Long
StaR = Sheet2.Range("A1").Value
For i = 1 To Len(StaR)
      If Mid(StaR, i, 1) = Chr(10) Then    '计算字串中有几个chr(10)
         m = m + 1
      End If
Next i
MsgBox "共有" & m + 1 & "行"
End Sub

ningyuanchao · 发表于 2009-3-5 15:24

楼上结果不对。

mineshine · 发表于 2009-3-5 15:32

给个附件看看吧，我在我的机器上测試，正确。
参见附件

[ 本帖最后由 mineshine 于 2009-3-5 15:38 编辑 ]

Tq-laoyu · 发表于 2009-3-5 15:33

有点难度！

ningyuanchao · 发表于 2009-3-5 15:39

楼主说的是自动换行，可不是强制换行，不知楼主要这个有何用。

mineshine · 发表于 2009-3-5 15:45

若非强制以Alt+Enter换行，而是Space造成换行结果，我就无能為力了。

987654321 · 发表于 2009-3-5 15:50

无语,学习.......

mineshine · 发表于 2009-3-5 15:54

原帖由 mineshine 于 2009-3-5 15:45 发表
若非强制以Alt+Enter换行，而是Space造成换行结果，我就无能為力了。

如果是设定自动换行，得到的结果会是一个沒有任何人為空白或是ASCII码Chr(10)换行指令的字串，
所以要得到有几行，实在不太可能实现。

siliconxu · 发表于 2009-3-5 15:56

好像在编辑栏的一行可以保存101字符，用单元格的总字符数除以101，得到的数字就是行数。没有具体测试……

		自动登录	找回密码
密码			免费注册

[求助] 如何判断一个单元格内有几行？

回复 1楼 mynameqiang2 的帖子

回复 3楼 ningyuanchao 的帖子

回复 6楼 ningyuanchao 的帖子