Excelでセル内の改行をカウントするにはどうすればよいですか？

コンテンツが長すぎてセル内に収まらない場合、下のスクリーンショットに示すように、コンテンツを完全に表示するために改行を使用することがよくあります。セル内の改行の数を数えたことはありますか？

数式を使用してセル内の改行をカウントする

VBAを使用してセル内の改行をカウントする

数式を使用してセル内の改行をカウントする

セル内の改行をカウントするには、この数式を試してください。

改行をカウントしたい文字列の隣のセルを選択し、次のように入力します： =LEN(A2)-LEN(SUBSTITUTE(A2,CHAR(10),""))その後、 Enter キーを押します。スクリーンショットをご覧ください：

注釈:

1. Macシステムを使用している場合は、この数式を試してください： =LEN(A2)-LEN(SUBSTITUTE(A2,CHAR(13),""))

2. 上記の数式は手動での改行のみをカウントします。

VBAを使用してセル内の改行をカウントする

以下は、Excelのセル内の改行をカウントできるVBAコードです。

1. Alt + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを有効にします。

2. 「挿入」>「モジュール」をクリックし、コードをコピーしてモジュールに貼り付けます。

VBA: 手動改行をカウントする

Public Sub CountLines()
'UpdatebyExtendoffice20171222
    Dim xStrLen As Double
    Dim xChrLen As Double
    With Range("A2")
        xStrLen = Len(.Text)
        xChrLen = Len(Replace(.Text, Chr(10), ""))
    End With
    MsgBox "There are " & xStrLen - xChrLen & " line breaks"
End

3. F5 キーを押すと、ダイアログがポップアップして改行の数を教えてくれます。