複製並插入X行，其中X基於單元格值

-1

我只是想知道是否有人知道如何複製並插入X行數，其中X基於單元格值？ D18有我需要插入的行數，第20行是我需要複製並插入很多次的行。任何幫助，將不勝感激。感謝複製並插入X行，其中X基於單元格值

力你試試google'ing有所瞭解？ –

歡迎來到S.O.！請提供一些您試圖解決問題的代碼。有各種各樣的學習資源，我建議通過使用宏記錄器來解決這個問題，然後看看Stack Overflow文檔中的最佳實踐。使用您嘗試的代碼更新您的問題，或在遇到困難時隨時提出另一個問題。 –

嘗試了這一點，

Sub insertRow() 
Dim i As Long 
For i = 1 To Range("D18").Value 
    Range("A20").EntireRow.Insert 
Next i 
End Sub

修改它，如果你需要..

2017-07-11 15:21:25

隨着調整工作完美...謝謝 –

@TomWorfolk請標記答案是正確的，以解決這個問題。多數民衆贊成你如何告訴在這裏:) –

我如何將它標記爲正確的答案？ –

回答