エクセルの関数カンマ区切りの抜取りについてご教授願います。

エクセル関数について質問です。
カンマ区切りのデータをシートＡ1取込んだ際（例　AI904742-001,02021C05,3464138,ヤマト,ラベル伝票）
この取込んだの一部（カンマの２番目の02021Ｃ05　）をＡ2にエクセル関数で抜取る方法を教えていただけたら幸いです。他にも３番目をＡ3にとかもしたいのですが、、、、、
宜しくお願い致します。

No.3 ベストアンサー 回答者： enunokokoro 回答日時： 2020/02/16 14:28

質問では関数となっていますが、No.1の回答者へのお礼だとマクロで

処理するようになっていますよね？
どちらを希望しているのでしょうか？
マクロだったら、Split関数で処理できます。（この関数のことだった？）
http://officetanaka.net/excel/vba/tips/tips62.htm

Excelの一般機能としての関数ならFinｄ関数で区切り文字を指定し、
その位置から抽出することになります。
B1セルに
=MID(A1,FIND(",",A1)+1,FIND(",",A1,FIND(",",A1)+1)-FIND(",",A1)-1)
を入れることで2番目を抽出します。
https://nyanto.jimdofree.com/%EF%BD%B4%EF%BD%B8% …
あとは応用できますよね。

この回答へのお礼

こんばんは。返信が遅くなってしまい申し訳ありませんでした。＊出張で、、、スマホで確認はしていたのですが、、、。

ありがとうございました。ＶＢＡで御教授して下さった方もいらっしゃったですが、
今回求めていたのは関数が先だったので、深謝申し上げます。
また何かありましたら御教授願います。

お礼日時：2020/02/17 23:36

No.4 回答者： tom04 回答日時： 2020/02/16 20:57

こんばんは！

横からお邪魔します。
関数で出来ないコトはないとは思いますが、結構面倒な数式になってしまうとおもいます。
そこで、enunokokoroさんがおっしゃっているようにVBAの方が簡単にできそうです。
一例です。

A1セルのデータをB列1行目から表示します。

Sub Sample1()
　Dim k As Long
　Dim myAry
　　Range("B:B").ClearContents
　　　myAry = Split(Range("A1"), ",")
　　　　For k = 0 To UBound(myAry)
　　　　　Cells(k + 1, "B") = myAry(k)
　　　　Next k
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

お礼が遅くなってしまい申し訳ありませんでした。このＶＢＡは完璧です。
ただ関数の回答が先に求めていた解答でしたので、、、、、

この解答は完璧です！！ありがとうございました！！！！

お礼日時：2020/02/17 23:40

No.2 回答者： trajaa 回答日時： 2020/02/16 13:51

そもそも最初から，区切りをそれぞれの列に分けて取り込めばすむ話と思うけどね

この回答へのお礼

そうなんですが、ＱＲを読込んだ必要な情報だけをシート書式に表示させることをしたいのですが、、、、
因みにＱＲの読取りは何回も発生し、読取った情報は蓄積されることを望みます。
あまりマクロも詳しくないので、御教授いただけたら願います。

お礼日時：2020/02/16 14:26

No.1 回答者： タマタマポチ 回答日時： 2020/02/16 12:12

関数ではなく方法です。

A1にカーソルを置く→データータブの区切り位置をクリック→ウィザードが立ち上がるから「カンマやタブ～～」をクリックして次へ→ここでカンマだけにチェックを入れて次へ→完了。
これでA1、B1、C1～～のセルに入ります。
これをコピーして、新しいシートで貼り付けの「行と列を入れ替え」で貼り付け。

この回答へのお礼

解答ありがとうございます。

マクロボタンを作成してエクセルシートに表示していきたいので、

Ａ1に表示された　AI904742-001,02021C05,3464138,ヤマト,ラベル伝票　をマクロボタンで
Ｂ1セル以降に　Ｂ1セルにAI904742-001　Ｂ2セルに020211Ｃ05　Ｂ3セルにヤマト　Ｂ4セルにラベル伝票　
と、蓄積させて表示させたいのですが、、、、、

出来れば関数での入力方法（マクロ・ＶＢ）も御教授お願いします。

お礼日時：2020/02/16 13:47