Excel関数 セル内の不特定数の特定文字の次の1文字の連続抽出

Question

Excelのセル内の特定の文字を検索してその文字の次の文字を連続して抽出したいのですが、FIND関数だと最初とその次の2個目まではできるのですがそれ以上を検索して抽出するとなると複雑になってしまいます。

セル内の特定文字の数が不特定数の場合はさらに難しくなります。

Excel関数を使ってセル内に不特定数ある特定文字を検索して、各々の次の1文字を連続してセル内に抽出するにはどのExcel関数を使ってどうすればいいでしょうか。

ご教授のほどよろしくお願いします。

Comments

[otn]

> FIND関数だと最初とその次の2個目まではできるのですがそれ以上を検索して抽出するとなると複雑になってしまいます。

は、どういうコードでしょうか？
「連続抽出」とは「全て抽出」と言うことでしょうか？

Answer 1

対象が、abcaxyapqとaだと、bxpを得たいということですかね。
Office365などで、Excel新関数が使えるなら、

（最初の誤っていた回答）=TEXTJOIN("",,MAP(TEXTSPLIT(A1,"a"),LAMBDA(x,LEFT(x,1))))
=TEXTJOIN("",,MAP(DROP(TEXTSPLIT(A1,"a"),0,1),LAMBDA(x,LEFT(x,1))))

で。まずabcaxyapqをaを区切り文字で分割して、[空,bc, xy, pq]という配列にしてそれぞれのLEFTの1文字を取って、全部つなぐ。
再追記：
最初の解答は誤ってましたので訂正しました。
abcaxyapqをaを区切り文字で分割して、第一要素（先頭のaより前の前部分）を捨て、[bc, xy, pq]という配列にしてそれぞれのLEFTの1文字を取って、全部つなぐ。

追記：
新機能が使えないExcel（上記関数が#NAME?エラーになるバージョン）なら、繰り返し処理・配列処理できないので、補助セルを使うしかないと思います。

	A	B	C	D	E	F	G	H	I	J
1	abcaxyapq	1(右にドラッグして連続数値を入れる)	2	3	4	5	6	7	8	9
2	a	=IF(MID($A$1,B$1,1)=$A$2,MID($A$1,B$1+1,1),"")	左のセルのドラッグ	同左	同左	同左	同左	同左	同左	同左
3	=CONCAT(B2:J2)

で、

	A	B	C	D	E	F	G	H	I	J
1	abcaxyapq	1	2	3	4	5	6	7	8	9
2	a	b			x			p
3	bxq

Comments

[addresshopeph]

ご指摘ありがとうございます。
不慣れなことをお許しください。
ご回答2 を採用させていただきたいと思います。
深夜にもかかわらず、誠意あるご対応に心よりお礼申し上げます。

[otn]

従来のセル関数で簡単に書けないことは、すぐVBAコードを書いちゃうため、いままであまりこういう新セル関数を使ったことが無かったので、やってみました。
TEXTJOIN TEXTSPLIT DROPあたりは(私が添えた処理説明と)関数名から動作が分かると思いますが、
MAPとLAMBDAは、一般の言語のプログラミング経験が無い人に説明するのは難しいです。

Answer 2

Office365が最新にアップデートすることができ、ご教授いただいた関数を使用することができました。
しかし、抽出された結果には関係のない対象文字列の先頭の最初の文字も一番最初に抽出されています。
aの次の文字のみを抽出するにはどうすればいいでしょうか。
よろしくお願いします。

Comments

[otn]

すいません。最初に現れる a 以前は無視しないといけないのに入れてましたので、訂正しておきました。

[otn]

ところで、他の人の質問ページと見比べて、自分の回答欄の使い方が間違っていると気づかないのでしょうか？

Answer 3

Office365が最新にアップデートすることができ、ご教授いただいた関数を使用することができました。
しかし、抽出された結果には関係のない対象文字列の先頭の最初の文字も一番最初に抽出されています。
aの次の文字のみを抽出するにはどうすればいいでしょうか。
よろしくお願いします。

Answer 4

ご指摘の通り「対象が、abcaxyapqとaだと、bxpを得たいということ」です。ご指摘の通り「対象がabcaxyapqとaだとbxpを得たいということ」です。
Office365なのですがご教授いただいた関数を入力しても「#NAME?」になってしまいます。
できればご教授いただいた関数の数式を使いたいのですが、Office365が最新にアップデートされていないということでしょうか。
もしそうなら、最新にアップデートする方法もご教授いただければ幸いです。
よろしくお願いします。

Comments

[otn]

> Office365が最新にアップデートされていないということでしょうか。
わかりません。そうかもしれないし、Office365だと思っているが実は違うということかもしれないし。

> もしそうなら、最新にアップデートする方法もご教授いただければ幸いです。
「Office365 最新化」でググりましょう。

Answer 5

"a"という文字を検索してその次の文字を抽出していく場合、

MID(A1,FIND("a",A1)+1,1)& MID(A1,FIND("a",A1)+1,1, FIND("a",A1)+1)&….

"a"の個数分だけ連続していきます。

「連続抽出」とは「全て抽出」と言うことです。

よろしくお願いします。