如果单元格内是强制换行的话,可以利用VBA进行判断,代码如下:
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


- 相关评论
- 我要评论
-