VBAのFunctionの戻り値をActiveCell以外のセルに値を挿入したいです

Question

前提・実現したいこと

VBAのFuction　使って、カンマ区切りのデータを横に展開したいです
具体的なA列にあるデータ（OU＝以下）を引数にして、カンマ（","）で区切り数分
要素数をB列、C列、***に展開して値をいれたいです
例えばA1行目は
OU=XX1,OU=YY2,OU=ZZ3,OU=AA1,OU=AB1 　はカンマ4つあるので、要素は5個あるので、
B列、C列、D列、E列、F列に各々要素の値を挿入したいです
※　2行名は2個なのでBとC列、　3行目は4個なのでB列とC列とD列

極力簡単なvba function ソースコードを教えていただきたいです

▽▽▽▽▽▽▽▽▽▽▽
A B C D E F
OU=XX1,OU=YY2,OU=ZZ3,OU=AA1,OU=AB1 OU=XX1 OU=YY2 OU=ZZ3 OU=AA1 OU=AB1
OU=XX1,OU=YY2 OU=XX1 OU=YY2
OU=XX1,OU=YY2,OU=ZZ3,OU=AA3 OU=XX1 OU=YY2 OU=ZZ3 OU=AA3
OU=XX1,OU=YY2,OU=ZZ3 OU=XX1 OU=YY2 OU=ZZ3
OU=XX1,OU=YY2,OU=ZZ3,OU=AA5,OU=AB5 OU=XX1 OU=YY2 OU=ZZ3 OU=AA5 OU=AB5

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

試したことのソースコードおよび小生の理解不足をご教示いただきたいです

試したこと

小生が戻り値が0、横のセルに値が展開できないです
循環小数になります

Function DepartmentName(arg1 As String)
Dim i As Long
Dim j As Long
Dim k As Long
Const Delimiter As String = ","
Dim DepartmentArray As Variant
i = ActiveCell.Row
j = ActiveCell.Column

DepartmentArray = Split(arg1, Delimiter)
For k = 0 To UBound(DepartmentArray)
Cells(i + k, j) = DepartmentArray(k)
Next

End Function

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

ありがとうございました
整理してコード考えます　
もうすこし実現したいことができいないですが、再度質問します
いったんクローズします

ありがとうございました

Answer 2

＜追記＞
引数を渡す形に修正しました。

Function SplitFunc(arg1 As Range)
    Dim a, u
    a = Split(arg1.Value, ",")
    u = UBound(a) + 1
    If u > 0 Then ActiveCell.Resize(, u).Value = a
End Function

Sub test_SplitFunc()
    Range("G1").Select
    Call SplitFunc(Range("A1"))
End Sub

Excelのバージョンが最新なら、SPILLを利用することもできます。

Function SPLITSPILL(arg1, Optional d = ",")
    SPLITSPILL = Split(arg1, d)
End Function

Sub test_SPLITSPILL()
    Range("G1").Formula2 = "=SPLITSPILL(A1)"
End Sub

---

＜追記前＞
こんな感じでどうでしょうか。

Sub sample()
    Const Delimiter As String = ","
    Dim ws As Worksheet, i, arr

    Set ws = ActiveSheet
    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        arr = Split(ws.Cells(i, 1).Value, Delimiter)
        ws.Cells(i, 2).Resize(, UBound(arr) + 1).Value = arr
    Next
End Sub

Comments

[morison]

回答ありがとうございます　頂いたsample() コード実行してうまくいきました
ただ、A行目を引数で渡す　Function(arg1) でVBAを作成したいです
例えば　G1, G2のセル上でFunction(A1) 引数OU=XX1,OU=YY2,OU=ZZ3,OU=AA1,OU=AB1
Funtion(A2)　 引数　OU=XX1,OU=YY2
を使いです
戻り値は、A1の場合　G1, H1, I1, J1, K1
A2の場合はG2, H2
のセルに各要素の値を展開したいです

引き続き教えていただけると助かります

[takanaweb5]

office365のexcelでしょうか？
上記バージョンならスピル機能が使えますが違えば使えないので