[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セル内で改行した場合の文字カウントについて』(シロ)
お疲れ様です。当方エクセル初心者です。
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
ご返答ありがとうございます!
こちらの方法で文字数を出すことはできたのですが、文字数のカウントが横並びになっているのでこれを改行して表示することは可能でしょうか?
またセル内行数を増やしたい場合はどこを修正すれば増やすことが可能でしょうか?
質問ばかりで大変申し訳ありませんが、ご返答頂けるとありがたいです…!
(シロ) 2017/05/18(木) 17:35
ありがとうございます!改行については問題なくできました。
>セル内行数を増やしたい場合はどこを修正すれば増やすことが可能でしょうか?
上記について色々試してみたのですが上手くいかないため、助言頂けるとありがたいです…!
(シロ) 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
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
お返事遅くなり申し訳ありません!
お二人のおかげで無事対応ができました!本当にありがとうございます!
(シロ) 2017/05/23(火) 12:26
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.