Excel - Ulang baris beberapa kali yang ditentukan

Baris dalam lembaran kerja Excel boleh diulangi bilangan kali tertentu dengan bantuan fungsi yang ditentukan oleh pengguna. Fungsi didefinisikan pengguna boleh ditulis untuk mengulang baris beberapa kali tertentu . Sesetengah pengetahuan tentang konsep pengaturcaraan seperti syarat-syarat lain-lain-lain dan dilakukan semasa gelung mungkin diperlukan untuk menulis fungsi sedemikian. Perintah Selection.insert boleh digunakan untuk memasukkan baris dalam lembaran kerja perisian Excel Office. Tidak perlu menulis kod dari awal kerana potongan kod tersedia secara bebas untuk digunakan dalam lembaran kerja. Walau bagaimanapun, seseorang mesti memastikan bahawa fungsi yang ditetapkan pengguna atau subrutin untuk mengulang baris beberapa kali yang dinyatakan dimasukkan di tempat yang betul.

Isu
Penyelesaian
Catatan

Isu

Adakah sesiapa tahu bagaimana untuk mengulang baris dalam spreadsheet dengan beberapa kali yang dinyatakan dalam sel yang hadir dalam baris itu?

iaitu dari jadual ini:

Lajur A Kolum B

Peter 3

James 7

David 4

Saya perlu mengemukakan jadual ini:

Lajur A Kolum B

Peter 3

James 7

David 4

Apa-apa idea mengenai cara yang mudah untuk melakukan ini?

Penyelesaian

Cuba ini:

 Sub CopyData ()
Kurang lRow As Long
Dim RepeatFactor Sebagai Variant
lRow = 1
Do While (Sel (lRow, "A") "")
RepeatFactor = Sel (lRow, "B")
Jika ((RepeatFactor> 1) Dan IsNumeric (RepeatFactor) Kemudian
Julat (Sel (lRow, "A"), Sel (lRow, "B")) Salinan
Julat (Sel (lRow + 1, "A"), Sel (lRow + RepeatFactor - 1, "B").
Selection.Insert Shift: = xlDown
lRow = lRow + RepeatFactor - 1
Akhir Jika
lRow = lRow + 1
Loop
Sub Akhir