如何按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