excel - 根据单元格中的数字将单个单元格扩展到多行 - EXCEL

Question

我有一个包含一列数字的电子表格。

对于引用列中的每个值，我需要 excel 在相邻列中生成一行数字，其值从数字 1 开始，递增 1 并在达到引用值时结束。然后需要对引用列中的下一个值重复此操作，依此类推，继续在相邻列中扩展。

下面是包含 3 个值的引用列的示例以及我手动相邻的操作。有人可以帮我在 VBA 中编写函数，这样我就不需要手动执行此操作。


感谢您的帮助。

Answer 1

Sub main()
    Dim cell As Range, i As Long
    For Each cell In Range("I2", Cells(Rows.Count, "I").End(xlUp))
        For i = 1 To cell.Value
            Cells(Rows.Count, "J").End(xlUp).Offset(1).Value = i
        Next
    Next
End Sub