カンマ区切りの文字列を分割してセルに書きこみたい

Question

https://teratail.com/questions/346429

と関連した質問になります。

以下のことをVBAで実現したいと考えています。

実現したいこと

検索IDに入力したカンマ区切りの文字列を、横向きでひとつずつセルに設定したい

↑これが実現したいことです。

困っていること

先程の質問で頂いた回答を元に、ソースコードを書いてみたのですが、縦向きでしかも「1」のみ出てくるようになってしまいます、、、

Private Sub CommandButton3_Click()

    Dim ary As Variant
    ary = Split(Worksheets(1).TextBox5.Text, ",")

    Dim cnt As Long
    cnt = UBound(ary) + 1
    If cnt = 0 Then Exit Sub

    Debug.Print cnt
    With Worksheets(2)
    
    .Cells(1, 1).Resize(cnt).Value = ary
    
    End With
End Sub

力を貸していただけると嬉しいです。
よろしくお願いいたします。

Answer 1

下記のようにコードを修正すればいいでしょう。

'   .Cells(1, 1).Resize(cnt).Value = ary
    .Cells(1, 1).Resize(, cnt).Value = ary

検索しときました。
Excel VBA Offset とResizeを使いこなそう

Comments

[ypk]

ご丁寧にありがとうございます！
リンクを読み、勉強します、、、

Answer 2

かっこいいことをしようと考えずに素直にループでもしてください。

Dim i As Long
For i = 0 To UBound(ary)
    Worksheets(2).Cells(1, i + 1).Value = ary(i)
Next

Comments

[ypk]

Private Sub CommandButton3_Click()

Dim ary As Variant
ary = Split(Worksheets(1).TextBox5.Text, ",")

Dim cnt As Long
cnt = UBound(ary) + 1
If cnt = 0 Then Exit Sub

Debug.Print cnt

Dim i As Long
For i = 0 To UBound(ary)
Worksheets(2).Cells(1, i + 1).Value = ary(i)
Next

End Sub

で実現できました！ありがとうございます。

[neconekocat]

念の為に補足するとhatena19さんの回答の方がスマートなのは間違いないです。
ただ、まずは自分が理解できる範囲でコードを書けるようにするのが重要です。