如何通過n數獲得單個單元格的多個副本？

Question

我想使用vba代碼，可以排除這個問題。

我有一排，我想在同一行中的每個單元格的多個副本。它需要用n個數字複製單元格。在第1行將是要複製的信息。第2行是n數。

所以例如：

輸入：（比方說第n數= 3）

• 約翰
• 亨德里克
• 薩拉

輸出：

• 約翰
• 約翰
• 約翰
• 亨德里克
• 亨德里克
• 亨德里克
• 亨德里克
• 薩拉
• 薩拉
• 薩拉 ....

希望有人能幫助我！

Answer 1

來源：

要：

使用此代碼：

Option Explicit 

Sub CopyInAWeirdWay() 
    Dim sh As Excel.Worksheet 
    Dim LastRow As Long 
    Dim currentCopyRow As Long 
    Dim i As Long 
    Dim k As Long 

    Set sh = ActiveSheet 
    LastRow = sh.Cells(sh.Rows.Count, 1).End(xlUp).Row 
    currentCopyRow = 1 

    For i = 1 To LastRow 
     For k = 1 To sh.Cells(i, 2) 
      sh.Cells(currentCopyRow, 3).Value = sh.Cells(i, 1).Value 
      currentCopyRow = currentCopyRow + 1 
     Next k 
    Next i 
End Sub