エクセルのセル内で改行した場合の行数および行ごとの文字数？

質問

エクセル２０００です。
セルをいくつか結合させ、その中にAlt+Enterで改行した文字列があります。
全部で何行あり、各行は何文字かを調べる関数またはVBAはありますか？

回答No.4

an_inack

#1さんの書かれたコードが何をしているか
簡単にですが見てみましょう。

sText = Split(sText, vbLf, , vbBinaryCompare)

ここではsTextという変数に、
指定されたセルの値を、
改行を区切り文字として配列に取得しています。

たとえばセル内に2行あったとすると、
sText(0)
sText(1)
にまで値が入ります。

ちなみに、sText(2)には値がありませんから、
当然使おうとするとエラーになります。

>If IsError(Len(sText(2))) Then
>　MsgBox "行がないです。"
>Else
>　MsgBox "行 3:" & Len(sText(2)) & "文字"
>End If

でエラーになるのは1行目で存在しない
sText(2)を指定しているためです。

このエラーを回避したければ、
存在する配列分処理をするよう書けばいいと思います。

Dim sText As Variant
Dim i As Integer

sText = Range("通信欄").Text
sText = Split(sText, vbLf, , vbBinaryCompare)

For i = 0 To UBound(sText)
MsgBox "行" & i + 1 & "：" & Len(sText(i)) & "文字"
Next

詳しくはヘルプ、またはVBAのレクチャーサイトなどで、
「配列」をキーワードに調べてみると、
知識が深まると思いますよ～！

お礼

For i = 0 To UBound(sText)
MsgBox "行" & i + 1 & "：" & Len(sText(i)) & "文字"
Next
なるほど、これはいいですね！・・・・・と思ったのですが、実際はメッセージボックスではなく変数に代入しているので使えないですよね？
でも「存在する配列分処理をするよう書けばいい」とのアドバイスで、

If UBound(sText) > 1 Then 行2 = Len(sText(1))
If UBound(sText) > 2 Then 行3 = Len(sText(2))
If UBound(sText) > 3 Then 行4 = Len(sText(3))
If UBound(sText) > 4 Then 行5 = Len(sText(4))

としてみましたら、無事回避できました。
ありがとうございました。