同じ列のコピーと値（x回数）

Question

列Aの値の範囲を合計33回コピーしてコピーしようとしています。これは私が今までに得たものですが、このコードは貼り付けられた値のセットごとに空白の行を作成します。余白なしで作成したい。

また、私は列Aで並んでいる33枚の異なるラベルを持つ値の貼り付けられたセットのそれぞれが

支援をお願い申し上げ一致する追加の列を持っているしたいと思います！ありがとう。

Private Sub Repeat_Command() 
Dim i As Integer 
Range("A2:A10").Select 
Selection.Copy 
For i = 1 To 33 
    Range("A" & 1 + i * 10).Select 
    ActiveSheet.Paste 
Next i 
End Sub 

Answer 1

これは、各コピーの間にスペースを入れずにコピーします。あなたのニーズとしてA10：あなたはA2を変更できるように、自動的にこの技術を使用して

Sub KopyKat() 
    Dim r As Range, i As Long, n As Long 

    Set r = Range("A2:A10") 
    For i = 1 To 33 
     n = Cells(Rows.Count, 1).End(xlUp).Row + 1 
     r.Copy Cells(n, 1) 
    Next i 
End Sub 

は、最初に使用可能な先のセルを見つけました変化する。