Excel - Ulangi baris beberapa kali yang ditentukan

Baris dalam lembar kerja Excel dapat diulang beberapa kali dengan bantuan fungsi yang ditentukan pengguna. Fungsi yang ditentukan pengguna dapat ditulis untuk mengulang baris beberapa kali . Beberapa pengetahuan tentang konsep pemrograman seperti kondisi if-then-else dan lakukan saat loop mungkin diperlukan untuk menulis fungsi tersebut. Perintah Selection.insert dapat digunakan untuk menyisipkan baris dalam lembar kerja perangkat lunak Excel Office. Tidak perlu menulis kode dari awal karena snipet kode tersedia secara bebas untuk digunakan dalam lembar kerja. Namun, kita harus memastikan bahwa fungsi atau subrutin yang ditentukan pengguna untuk mengulangi baris beberapa kali dimasukkan di tempat yang tepat.

• Isu
• Larutan
• Catatan

Isu

Adakah yang tahu cara mengulangi baris dalam spreadsheet dengan beberapa kali yang ditentukan dalam sel yang hadir di baris itu?

yaitu dari tabel ini:

 Kolom A Kolom B
Peter 3
Yakobus 7
David 4 

Saya perlu membuat tabel ini:

 Kolom A Kolom B
Peter 3
Peter 3
Peter 3
Yakobus 7
Yakobus 7
Yakobus 7
Yakobus 7
Yakobus 7
Yakobus 7
Yakobus 7
David 4
David 4
David 4
David 4 

Adakah ide tentang cara sederhana untuk melakukan ini?

Larutan

Coba ini:

 Sub CopyData ()
Dim lRow As Long
Dim RepeatFactor Sebagai Varian
lRow = 1
Do While (Cells (lRow, "A") "")
RepeatFactor = Sel (lRow, "B")
If ((RepeatFactor> 1) Dan IsNumeric (RepeatFactor)) Lalu
Range (Cells (lRow, "A"), Cells (lRow, "B")), Salin
Range (Cell (lRow + 1, "A"), Cells (lRow + RepeatFactor - 1, "B")). Pilih
Selection.Insert Shift: = xlDown
lRow = lRow + RepeatFactor - 1
Berakhir jika
lRow = lRow + 1
Loop
End Sub 

Catatan

Terima kasih kepada rizvisa1 untuk tip ini di forum.