excel - 行を21ずつ増やして別の列にコピーする

Question

データを別の行から別の列にコピーしたいと考えています。例。

B4 has to be copied to H129 ,
B25 to H130,
B46 to H131...and so on ..

ここでは、行が 21 行ずつ増えています。

どのようにExcelでそれを行うのですか?

Answer 1

そして、すべて（つまり、値とフォーマットも）コピーする必要がある場合は、次のようにします。

Range("B4").Copy Range("H129")

@Daniel コードを使用すると、ループ内でこのようなものが必要になる場合があります

'...see Daniel answer for beginning
Plan1.Cells(i, 2).Copy Plan1.Cells(j, 8)
'... and so on

Answer 2

VBA に移動して、次の操作を行います。

Sub sdgfsa()

    Dim i As Integer
    Dim j As Integer

    j = 129
    For i = 4 To 1000 Step 21 'put the end number you want, the start is 4 like your example
        Plan1.Cells(j, 8).Value = Plan1.Cells(i, 2).Value 'Here, plan1 represents the sheet, 2 is B column, 8 is H column
        'or you can use KazJaw's Copy here
        j = j + 1 'j gets incremented
    Next
End Sub