Excelでセル内の文字列をカウントする。

[B2]のようにセル内に複数行の文章がある場合、各行の文字数を知りたいです。

・[C2]に1行目を書き出させています。
([C3]は式です)
・[C5]は1行目のカウント数です。
([C6]は式です)
・[B2]のような文章が[B3]以下に続きます。

以下が知りたいです。
①2行目の文章の求め方
②3行目の文章の求め方
③以下のように、1~3行目の文字数を一気にカウントすることは出来るのしょうか。

お知恵を貸していただければ幸いです。
宜しくお願いします。

行動規範の内容に同意します

回答3件

ベストアンサー

各行をC2,C3,C4に取得。

EXCEL
1C2セル
2=LEFT(B2,FIND(CHAR(10),B2)-1)
3C3セル
4=LEFT(SUBSTITUTE(B2,C2&CHAR(10),"",1),FIND(CHAR(10),SUBSTITUTE(B2,C2&CHAR(10),"",1))-1)
5C4セル
6=SUBSTITUTE(B2,C2&CHAR(10)&C3&CHAR(10),"",1)

上記は抽出した結果を使いまわしています。
C3はC2を参照、C4はC2とC3を参照しています。
なので、1セルで完結させるためには使いまわさないようにする必要があります。
展開するとこうなります。

EXCEL
1C2セル
2=LEFT(B2,FIND(CHAR(10),B2)-1)
3C3セル
4=LEFT(SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1),FIND(CHAR(10),SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1))-1)
5C4セル
6=SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10)&LEFT(SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1),FIND(CHAR(10),SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1))-1)&CHAR(10),"",1)

そして1セル内で各行の文字数を出力するには、上記の結果をLENすれば良いので、連結してこうなります。

EXCEL
1=LEN(LEFT(B2,FIND(CHAR(10),B2)-1))&CHAR(10)&LEN(LEFT(SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1),FIND(CHAR(10),SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1))-1))&CHAR(10)&LEN(SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10)&LEFT(SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1),FIND(CHAR(10),SUBSTITUTE(B2,LEFT(B2,FIND(CHAR(10),B2)-1)&CHAR(10),"",1))-1)&CHAR(10),"",1))

※3行限定の処理です。

投稿2019/03/14 00:30

編集2019/03/14 05:28

ttyp03

総合スコア17000

zuzu1984

2019/03/14 14:25

この式を考えられるなんて凄いです。頭が整理できず、かなり前半で思考停止してしまっていました。式も勿論ですが、答えからこういう考え方をしたらいい、と今後に役立たさせて頂きます。理が党ございました。

行動規範の内容に同意します

エクセルのワークシート関数で処理するのは、できなくはないけれど少し苦手というか面倒な部類になると思います。
どうしてもということであれば、ttyp03さんのアドバイスのような方法で実現できますが、ご覧のとおり１セルで実現するには非常に長い式の羅列になりますし、説明にもある通り行数の制約もできてしまいます。

今回の質問タグには含まれていませんが、VBAを視野に入れられるのならもう少しスマートな対応が可能です。

例えばVBAで「標準モジュール」に以下のような関数を作成します。

VBA
1'文字列sを指定文字sepで区切り、r番目の要素を取り出す関数
2Function SplitLine(ByVal s As String, ByVal r As Integer, Optional ByVal sep As String = vbLf) As String
3    
4    'セルの値を指定した区切り文字(規定値は改行(CHAR(10))で分割
5    Dim ary
6    ary = Split(s, sep)
7    
8    '指定された番号が、分割した数よりも大きい場合は処理中断
9    If UBound(ary) < r - 1 Then Exit Function
10    
11    '指定された番号の要素を戻り値として返す
12    SplitLine = ary(r - 1)
13    
14End Function