特定の文字や数字だけを抽出

質問

14H010
14S001
14005
14H001B
14H010B
14005
14S004
１）左から２つだけの数字だけを取り出す方法
２）もし左から二つの数字の隣の文字だけ（HやS）を取り出す方法（２文字の可能性もある）
３）真ん中の３つの数字を取り出す方法（010,001,005)
4)右の文字（B）だけを取り出す方法（２文字の可能性もある）
それぞれの方法をIF関数とLEN, RIGHT, LEFT, MID関数の組み合わせを使って抽出できるようなのですが、何時間かけても抽出ができません、、、。
たくさんの質問になりますがお答えいただけると幸いです。

回答No.2

imogasi

>１）左から２つだけの数字だけを取り出す方法
はLEFT関数を使って、やさしいでしょう。
しかし、質問者は第2文字に英字が来ない保証をいっていないので、質問として不完全。
来る可能性があればどうするの？
＞２）もし左から二つの数字の隣の文字だけ（HやS）を取り出す方法
これも１）の問題とで、確定的に第3文字から考えてよいのか？文字が続いておれば第３文字＋第４文字も抜き出すらしいが。
ーー
エクセルでは、そもそも関数で、「条件該当分の抜出し」は難しい式になる。
さらにまた、エクセルにおいて、データの文字種（数字・文字などの別）で、抜出しを考えるのは難しい。
またデータの中身の出たとこ勝負で英字数字の出現を条件にすると、難しさがある。
適当な関数がないのと、各桁文字ごとの繰り返し判別が、関数では難しい。
また、IF関数などで、該当分岐が関数では書きにくいので、判り難い式になりがち。
WEBで調べても、LEFT、RIGHT、MID関数とISNUMBER関数やISTEXT関数やフラシュフィル利用の記事（VER 2023以後）しかない。
＝＝
だから＃１のように、VBAの回答の記事が出る。それも正規表現をつかうコードだ。
ーー
質問者は、VBAはお呼びではないだろうから、人間の判断などを混ぜて人手中心でやらざるを得ないだろう。
１000-2000レコードぐらいなら、（あれこれ調べたり、なれたりするより）人間判断と手作業でやる方が、早いだろう。その際ソートや RIGHT, LEFT, MID関数を使って中間結果的にセル出したり、中間結果を加工する、対処を考えるとよい（しかない）。
ーー
そもそもこういうコードで桁可変のコードを作ること自体が、本件の時困ることになる。製品コードなどの設計の問題だ。
＝＝
大量にデータがあって、どうしても、であれば業者に頼むことだ。
参考
１セル全体を対象の例
A列　B列　C列
12 NUM
a1 moji
23 NUM
999 NUM
sd moji
B列関数　=IF(ISNUMBER(A2)=TRUE,"NUM","")
C列関数　=IF(ISTEXT(A2)=TRUE,"moji","")

回答No.1

redslove10

VBAのコードを書いてみました。

Function RegExpExtract(strng, indx)
Dim regEx, result1, result2
Set regEx = New RegExp
regEx.Pattern = "(^[0-9]{2})([a-zA-Z]{0,2})([0-9]{3})([a-zA-Z]{0,2})"
regEx.Global = True
RetStr = ""
Set result1 = regEx.Execute(strng)
If result1.Count > 0 Then
Set result2 = result1(0).SubMatches
If result2.Count >= indx Then
RetStr = result2(indx)
End If
End If
RegExpExtract = RetStr
End Function

ExcelワークシートのA列に対象文字列を置き、B列に=RegExpExtract(A1,0)、Ｃ列に=RegExpExtract(A1,1)、D列E列も同様としてください