点击工作表的一个单元格统计该行所有单元格中文本的换行符

晚秋之约

目前该代码可实现：选定第1行，可以统计第一行所有单元格中文本的换行符为5；选定第2行，可以统计第二行所有单元格中文本的换行符为10.我想实现：我只选定第一行的任意一个单元格，即可统计出第一行所有单元格中文本的换行符数量；同样只选定第二行的任意一个单元格，即可统计出第二行所有单元格中文本的换行符数量。（我不想选定整行，只选定该行的任意一个单元格即可）初学，修改不来，向各位老师请教，希望师傅们抽点时间帮我改一下，万分感谢！！！

清风竹-

请看附件。

3190496160

Sub 统计整行单元格文本的换行符()
Dim i As Integer
h = ActiveCell.Row
y = Cells(h, Columns.Count).End(xlToLeft).Column
Set selectedRange = Range(Cells(h, 1), Cells(h, y))
i = 0
For Each cell In selectedRange
    i = i + Len(cell) - Len(Replace(cell, vbLf, ""))
Next
MsgBox i
End Sub

3190496160

统计该行各单元格内文本的行数.rar (14.93 KB, 下载次数: 5)

2024-2-18 09:28 上传

点击文件名下载附件

晚秋之约

顶一下，我搞了一天还是没研究出来，哎，等大神。

晚秋之约

清风竹- 发表于 2024-2-18 09:25
请看附件。

真诚感谢！愿您在2024年顺风顺水！！！

晚秋之约

3190496160 发表于 2024-2-18 09:28

真诚感谢！愿您在2024年顺风顺水！！！