Fuctionの戻り値を別のセル上に展開したい

Question

▽▽▽　実現したいデータ　▽▽▽
A B C D E F
1 P1,Q1,R1,S1 P1 Q1 R1 S1
2 P2,Q2,R2 P2 Q2 R2
3 P3,Q3,R3,S3,T3 P3 Q3 R3 S3 T3

　▽▽▽　実現したいデータ　▽▽▽

実現したいことは
vbaでユーザー関数 Bunri で新規作成します　A列のカンマ区切りの値を引数に渡して、B1,B2,B3, 上でBunri(A1),Bunri(A2),Bunri(A3)　として実行します　
戻り値をカンマの要素数分の値を展開させたいです　
▽▽▽　実現したいデータ　▽▽▽　にさせたいです

詳細はこちら
1列目は4要素あるので、B1セル　"P1"　C1セル　"Q1"　D1セル "R1"　Eセル　"S1"
2列目は3要素あるので、B2セル　"P2"　C2セル　"Q2"　D2セル "R2"　"
1列目は4要素あるので、B3セル　"P1"　C3セル　"Q1"　D3セル "R1"　E3セル　"S1" T3セル　"T3"
実行はB列のセルで、引数はA列、戻り値はB列含めた要素数を横に展開したいです

どのようなvba の function コードを記載していいかご教示いただけないでしょうか？

Function Bunri(arg1 as string)

End Function

Comments

[yorozuya]

使用するエクセルのバージョンを明記してください。

Answer 1

ありがとうございました
クローズしてください

Comments

[BluOxy]

回答が解決に役立ったのであればそちらをベストアンサーに選びましょう。
そうではなく morison さんご自身で考えた手段で解決されたのでしたらその手段を自己回答に記載しましょう。

Answer 2

jinojiさんの方法でよいと思いますが、スピルが使えない場合は、次のようになるでしょうか？

Function Bunri(arg1 As String, index As Long)
    Bunri = Split(arg1, ",")(index - 1)
End Function

2番目の引数は、区切られた値の何番目の要素を出力するかを表します。
次のように使います。
セルB1：=bunri(A1,1) → 「P1」が表示される
セルC1：=bunri(A1,2) → 「Q1」が表示される

Answer 3

Excelのユーザ定義関数の制限として、別のセルの値の変更はできないそうです。
ただし、最新のMicrosoft 365（Office365）などで使えるスピル機能を使うと、
以下のようにすることでご所望の動作が実現するはずです。

Function Bunri(arg1 As String)
    Bunri = Split(arg1, ",")
End Function

Comments

[morison]

回答ありがとうございました
無事クローズとさせてください