Nhờ tạo code copy dữ liệu lên nhiều lần

[saobekhonglac]

Chào anh/chị

Em nhờ anh/chị tạo giúp em 2 code như sau:
Khi em nhấp vào nút copy 50 lần thì dữ liệu từ A1 đến A7 sẽ được copy thêm 50 lần và dán vào A8 đến A357
Khi em nhấn nút copy sang sheet C thì dữ liệu từ A1 đến A7 sẽ được copy sang B2 đến B8 của sheet C.

Cám ơn anh/chị

 

[ndu96081631]

Sub cobe50()
Dim I As Long
For I = 8 To (50 * 7 + 7) Step 7
    Sheet1.Range("A1:A7").Copy Sheet1.Range("A" & I)
Next I
End Sub

Yêu cầu này nếu làm bằng tay thì tôi chỉ copy và paste có 1 lần duy nhất. Vậy tại sao viết code lại phải dùng đến For.. Next?

 

[befaint]

Yêu cầu này nếu làm bằng tay thì tôi chỉ copy và paste có 1 lần duy nhất. Vậy tại sao viết code lại phải dùng đến For.. Next?

Như vậy được không ạ?
Sub copy50()
Dim n&
n = 7 * 50 + 7
Sheet1.Range("A1:A7").Copy Sheet1.Range("A8:A" & n)
End Sub

 

[sealand]

Các bạn lưu ý cách gợi ý của Ndu. Code của nút 1 thế này là đủ:

Sub Nut1_Click()
Range("A1:A7").Copy Range("A8:Ạ357")
End Sub

(Chả biết vùng 2 có bằng 50 lần vùng 1 không, chủ Topic nói vậy viết vậy)