判断表格某一单元格行数的代码

ke3088

表格1第5行第2列内共有8行，可能分段也可能不分段，如下：



向各位老师求助，判断单元格内共有几行的代码。
谢谢！

413191246se

楼主，我水平不高，你试试吧！
Sub test()
    Dim i As Long, j As Long
    Selection.SelectCell
    Selection.Find.Execute FindText:="^13", ReplaceWith:="^p", Replace:=wdReplaceAll '假回车全部替换为真回车
    Do
        Selection.SelectCell
        Selection.Find.Execute FindText:="^l", ReplaceWith:="`"
        If Selection.Find.Found = True Then i = i + 1 Else Exit Do
    Loop
    Do
        Selection.SelectCell
        Selection.Find.Execute FindText:="^p", ReplaceWith:="`"
        If Selection.Find.Found = True Then j = j + 1 Else Exit Do
    Loop
    Selection.SelectCell
    Selection.Find.Execute FindText:="`", ReplaceWith:="^p", Replace:=wdReplaceAll '还原
    MsgBox "单元格段落行数 = " & i + j + 1
End Sub

ke3088

413191246se 兄，试了，不行，5行2列显示结果是段落数，不是所有的行数。
这几天我在想，能不能在所有的行末增加回车，不论有无回车，用UBound(Split(myRange, Chr(13))) '这句可以计算出段落数，减去原来的段落数，再还原回来。问题是：怎样才能在单元格内的行末一次性增加回车？

413191246se

楼主，你要把光标放在某个单元格中才行。

413191246se

楼主，你的问题可是：单元格内文字行数，可没说是某列啊！请明确一下到底是单元格，还是某列。

ke3088

文档表一的第五行第2列，谢谢！

liuhoubin168

Sub ls()
  Dim rng As Range
  Set rng = Selection.Range
  Selection.Tables(1).Cell(2, 2).Range.Paragraphs(1).Range.Select
  f = Selection.Information(wdFirstCharacterLineNumber)
  Selection.Tables(1).Cell(2, 2).Range.Select
  Selection.EndKey
  e = Selection.Information(wdFirstCharacterLineNumber)
  MsgBox "当前表格2行2列单元格共 " & e - f + 1 & " 行"
  rng.Select
End Sub

ke3088

受到413191246se 兄代码启示，昨晚已解决，其实绕个弯就行了，Information(wdFirstCharacterLineNumber)出格内第1行的行数和最后1行的行数，两者相减加上1，就是格内的行数。谢谢各位的帮助。

ke3088

413191246 兄，谢谢帮助。

ke3088

liuhoubin168 发表于 2015-3-3 16:22
Sub ls()
  Dim rng As Range
  Set rng = Selection.Range

谢谢，帮助！