4列ごとに ならびかえたい

いつもお世話になっております
遣りたいこと
Range("1:1")に
1から10まで連続した数値をならべました。

次にその値を

添付ファイルのように
4列ごとに　ならびかえたいのですが、

Sub tryyk()

Dim i As Long
Dim v As Variant

Range("1:1").Clear

With Range("A1")
.Value = 1
.Resize(, 10).DataSeries Type:=xlChronological

v = .Range("A1").CurrentRegion.Value
End With

Range("1:1").Clear

For i = 1 To UBound(v, 2)
Cells(1, (i + 1) * 4 + 1).Value = v(i, 2)
Next
End Sub

質問者からの補足コメント

• 添付ファイルです。

  
    補足日時：2021/12/22 13:47

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/12/22 13:54

こんにちは。

下記の様な感じでしょうか？


Sub tryyk()

Dim i As Long
Dim v As Variant

Range("1:1").Clear

With Range("A1")
.Value = 1
.Resize(, 10).DataSeries Type:=xlChronological

v = .Range("A1").CurrentRegion.Value
End With

Range("1:1").Clear

For i = 1 To UBound(v, 2)
Cells(1, i * 4 - 3).Value = v(1, i)
Next
End Sub

この回答へのお礼

いつもありがとうございます
なかなか　上達しないので
申し訳ございません
ありがとうございました。
うまくいきました。

お礼日時：2021/12/22 14:12

No.2 回答者： めぐみん_ 回答日時： 2021/12/22 13:58

Rows("1:1")が良く使われてませんでしたっけ？

＞Cells(1, (i + 1) * 4 + 1).Value = v(i, 2)

Cells(1, (i - 1) * 4 + 1).Value = v(1, i)

デバッグでステップ実行してませんね？
コードだけ貰うのではなくアドバイスは生かさないと意味ないですよ。
と言うよりコード貰ってＢＡで閉じるのではなく、どうしてそのようなコードになったのか『その考え方（コード作成前の）』をとにかく聞くべきかなと感じます。
ちょっとした数学（算数？）の計算ってだけですよ。

この回答へのお礼

いつもお世話になっております
なかなか　うまくいかないです
本当いつも　申し訳ございません。

お礼日時：2021/12/22 14:13