Splitを使用した変数の最大値で表示を指定したい

Question

前提・実現したいこと

VBAで1セル内の数値をSplitを使用して変数に入れています。（数値の個数は最大5つまで変動あり）
例えば列1の1行目に「1,2,3,」と入力されているものを「,」でsplitし変数Resultへ入れ、
その変数が1つ目であればA、2つ目であればB・・・と列2の数値をセルに表示させ、最大値（最後の変数）の場合のみ表示を列3のZにしたいです

例

列1	列2	列3	列4
1,2,3,
①	A	Z
②	B	Z
③	C	Z
④	D	Z
⑤	E	Z

↓

列1	列2	列3	列4	列5
1,2,3,
①	A	Z	→	A
②	B	Z	→	B
③	C	Z	→	Z
④	D	Z	→
⑤	E	Z	→
### 発生している問題・エラーメッセージ

ですが、数値個数が変動する為かZの表示が最大値の次の行に表示されてしまいます。

列1	列2	列3	列4	列5
1,2,3,
①	A	Z	→	A
②	B	Z	→	B
③	C	Z	→	C
④	D	Z	→	Z
⑤	E	Z	→
### 該当のソースコード

Dim Result As Variant
Dim i As Long

Do
Result = Split(Range("列1" & 1 ), ",")  '[1,2,3,]

i = 0
For i = LBound(Result) To UBound(Result)

If Result(i) = "" Then
Range("列5" & 3 + i) = Range("列3" & 3 + i)

ElseIf Result(i) = LBound(Result) Then

Range("列5" & 3 + i) = Range("列2" & 3 + i)

End If
Next i
Exit Do
Loop

End Sub

最初は「1,2,3,」の最後のカンマが無いことで最大値が" "と認識されない為かと思いましたが、それだと現在発生の表になってしまいました。

お手数ですがご教示頂きたいです…

Comments

[meg_]

・コードのレイアウトがくずれて見づらいので修正ください。
・コードを1行ずつデバッグ実行されてはどうでしょうか？

[Chif]

そのままに貼り付けてしまっていましたね、失礼いたしました。。
デバックに関しては実行済みでした。ありがとうございます。

[otn]

コードと、セルの絵が合っていないので、合わせてください。

あと、
> 最大値（最後の変数）
とのことですが、プログラムでは数値の最大値を見るのか、最後の数値をみるのか、どちらですか？
1,2,3 でなく、1,3,2 のようなケースの場合の話です。

[meg_]

デバックされたのであれば、何故④のところで処理が実行されたのか判明していますよね？　まずはそこを修正すれば良いです。

[Chif]

完全にセルとコードが異なっていました、、、失礼致しました。。ご指摘下さいましてありがとうございます。
最後の数値、の意味合いとなりまして、
1,3,2の場合ですと2がZになってほしい所となります。
とても分かりずらく申し訳ないです・・・

Answer 1

Sub foo()
Dim Result As Variant
Dim i As Long, last As Long

Result = Split(Range("A1"), ",")  '[1,2,3,]

For i = LBound(Result) To UBound(Result)
    If IsNumeric(Result(i)) Then
        last = i
        Range("E" & 3 + i) = Range("B" & 3 + i)
    End If
Next i
Range("E" & 3 + last) = Range("C" & 3 + last)
End Sub

ですかね。

Comments

[Chif]

lastを定義するという発想が無かったです…
ありがとうございます、とても助かりました！

[otn]

別の考え方としては、添え字の大きいほうから処理するというのがあります。

Answer 2

回答ではありません。セルのレイアウトが判らないので、添付図のような画像で提示していたけませんでしょうか。あなたが提示された例を見ると、以下のようなレイアウトに見えます。

Comments

[Chif]

ありがとうございます、まさにこちらの状態です
表がわかりずらく大変お手数をおかけします・・・