VBAで複数の数字を設定回数繰り返す

Question

私はスプレッドシートの列に47個の数字の列を持っています。別のシートでは、数字を行に入れて欲しい。私はしかし、私は次の数が来る前に、各番号が連続して12回繰り返すことにしたい

Worksheets.Add(Before:=Worksheets(1)).Name = "Calc" 

Dim k As Integer 

For k = 1 To 47 

Worksheets("Calc").Cells(1, k).Value = Worksheets("Reformulering").Cells(k + 1, 2).Value 

Next k 

をこのコードを使用しました。誰もこれを行う方法を考えることができますか？

ベスト、

IDが

Answer 1

はい、このような1それまでは12から実行する別のループを追加：

Worksheets.Add(Before:=Worksheets(1)).Name = "Calc" 

Dim k As Integer 
Dim i As Integer 

For k = 1 To 47 
    For i = 1 To 12 
     Worksheets("Calc").Cells(1, ((k - 1) * 12) + i).Value = Worksheets("Reformulering").Cells(k + 1, 2).Value 
    Next i 
Next k 

Answer 2

をあなたはループ

[Calc!A1:L47] = Application.Transpose([Reformulering!B2:AV2]) 

せずに値を入れ替えることができます範囲をコピーする場合と同様に、Calc!A1:L1,Paste Special...、トランスポーズとOKを確認してください。