エクセルVBAでカンマ区切りデータを横並びで抜き取り表示できる方法を御教授願います。

昨日カンマ区切りデータの抜き方を下記のＶＢＡで教わりましたが、
書出しがＢ1～縦方向Ｂ2、Ｂ3Ｂ.........といった具合にて表記されますが、
横抜きＢ1、Ｃ1、Ｄ1.......といった様に表示する方法（現状はB1、B2、B3....）

下記の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

No.1 ベストアンサー 回答者： GooUserラック 回答日時： 2020/02/19 02:59

こんな感じでしょうか？

Sub Sample2()
　Dim k As Long
　Dim myAry
　　Range(Cells(1, 2), Cells(1, Columns.Count)).ClearContents
　　myAry = Split(Range("A1"), ",")
　　For k = 0 To UBound(myAry)
　　　Cells(1, k + 2) = myAry(k)
　　Next k
End Sub

この回答へのお礼

ありがとうございました。助かります。
またの機会宜しくお願い致します。

お礼日時：2020/02/19 22:23