Sub chr10() Dim iStr As String Dim iSpace As String 耐嫌芦者陆With Range("A1") iStr = Len(.Text) iSpace = Len(Replace(.Text, Chr(10), "")) End With MsgBox "A1单元昌带格中共" & iStr - iSpace & "个换行符"End Sub
