[[20170518112438]] 『セル内で改行した場合の文字カウントについて』(シロ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『セル内で改行した場合の文字カウントについて』(シロ)

お疲れ様です。当方エクセル初心者です。
1セルの中で改行している文字列を1行ごとに文字カウントを行ないたいのですが、どのような関数を使えば実現できますでしょうか?
改行した部分はカウントしないようにもしたいです。

やりたいイメージとしては以下のような形です。

A1
1234567890(ALT+Enter)
123456789

B1
10
9

A2
12345(ALT+Enter)
123456(ALT+Enter)
1234567

B2
5
6
7

< 使用 Excel:Excel2016、使用 OS:Windows10 >


 ゼロが付加されるけど

 B1 =SUBSTITUTE(TRIM(SUBSTITUTE(TEXT(SUMPRODUCT(LEN(TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",100)),ROW($1:$3)*100-99,100)))*{10000;100;1}),"00 00 00"),"00",""))," ",CHAR(10))

 ※ セル内行数 3行まで
 ※ カウント数 2桁まで
 
(GobGob) 2017/05/18(木) 14:42

 ゼロ付加なし。。。

 =SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TEXT(SUMPRODUCT(LEN(TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",100)),ROW($1:$3)*100-99,100)))*{10000;100;1}),"0 00 00"),"00","")," 0"," "))," ",CHAR(10))
(GobGob) 2017/05/18(木) 14:48

GobGob様

ご返答ありがとうございます!

こちらの方法で文字数を出すことはできたのですが、文字数のカウントが横並びになっているのでこれを改行して表示することは可能でしょうか?
またセル内行数を増やしたい場合はどこを修正すれば増やすことが可能でしょうか?

質問ばかりで大変申し訳ありませんが、ご返答頂けるとありがたいです…!
(シロ) 2017/05/18(木) 17:35


携帯からなので確認してないけど、式はそのままで、セルの設定を折り返して表示にすれば改行して表示されると思います。
(カリーニン) 2017/05/18(木) 17:52

カリーニン様

ありがとうございます!改行については問題なくできました。

>セル内行数を増やしたい場合はどこを修正すれば増やすことが可能でしょうか?

上記について色々試してみたのですが上手くいかないため、助言頂けるとありがたいです…!
(シロ) 2017/05/18(木) 21:41


 オイラの数式案ではセル内行数6行までしか対応できまへん。

 一応、

 =SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(TEXT(SUMPRODUCT(LEN(TRIM(MID(SUBSTITUTE(A1,CHAR(10),REPT(" ",100)),ROW($1:$6)*100-99,100)))*{10000000000;100000000;1000000;10000;100;1}),"0 00 00 00 00 00"),"00","")," 0"," "))," ",CHAR(10))
 
(GobGob) 2017/05/19(金) 08:22

Function kaigyo(arg) As String
'標準モジュールに記載
'結果表示したいセルに =kaigyo(A1) 等と記入する。この場合はA1は元データのセル
'結果表示したいセルは「折り返して全体を表示」とする。
    Dim temp As String, i As Long, j As Long
    For i = 1 To Len(arg.Value)
        If Asc(Mid(arg.Value, i, 1)) = 10 Then
            temp = temp & Chr(10) & j
            j = 0
        Else
            j = j + 1
        End If
    Next i
    kaigyo = Trim(temp)
End Function
(mm) 2017/05/19(金) 09:39

GobGob様、mm様

お返事遅くなり申し訳ありません!
お二人のおかげで無事対応ができました!本当にありがとうございます!
(シロ) 2017/05/23(火) 12:26


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.