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