Copy một dòng thành nhiều dòng

[hbvajk]

Các bạn ơi, giúp mình vấn đề này với nhé.

Mình có một bảng gồm 10 dòng khác nhau. Bây giờ mình muốn copy thành một bảng khác mà mỗi dòng từ bảng cũ thành 20 dòng liên tiếp. Các bạn xem file đình kèm và giúp mình với nhé

Cám ơn các bạn rất nhiều

 

[sealand]

Bạn thử với cách này xem, mình tạm với 10 dòng liên tiếp bạn điều chỉnh theo ý nha

 

[sealand]

Và đây là dùng code, muộn rồi không kịp hoàn thiện. Thông cảm nha

Private Sub CommandButton1_Click()
Dim Rg As Range, Rg2 As Range, i, k
Do
Set Rg = Application.InputBox("Chon vung chep", , , , , , , 8)
If Not Rg Is Nothing Then Exit Do
Loop
Do
Set Rg2 = Application.InputBox("Chon o dich", , , , , , , 8)
If Rg2.Count = 1 Then Exit Do
Loop
k = InputBox("Nhap so dong lap lai")
For i = 1 To Rg.Count
Rg2.Resize(k).Value = Rg.Cells(i).Value
Set Rg2 = Rg2.Offset(k)
Next
End Sub

 

[ptm0412]

Bạn thử với cách này xem, mình tạm với 10 dòng liên tiếp bạn điều chỉnh theo ý nha
=OFFSET($A$1;ROUNDDOWN((ROW(1:1)-0,1)/10;0);0)

Có thể dùng:

=OFFSET($A$1;INT((ROW(1:1)-1)/10)

Hoặc

=INDIRECT("A"&INT((ROW()-1)/10+1))