Excel向下填充数据

Question

是否可以创建每四行重复从1到1,029的数字的数据行？那么前四行是1，接下来的四行是2，依此类推？

我尝试使用宏来执行此操作，但是，我还没有运气。

类似地，我还需要重复8、9、12和15的值，这些值对应于这些人的年龄。两者都有速记方法吗？

我们非常感谢您提供的任何帮助，这将为我省去很多手动填写Excel工作表的时间，

谢谢

橄榄

Answer 1

使用VBA

Option Explicit
Public Sub test()
    Const endCount As Long = 1029
    Dim arr(), i As Long, rowCounter As Long
    ReDim arr(0 To (4 * endCount) - 1)

    For i = 0 To endCount - 1
        arr(rowCounter) = i + 1
        arr(rowCounter + 1) = i + 1
        arr(rowCounter + 2) = i + 1
        arr(rowCounter + 3) = i + 1
        rowCounter = rowCounter + 4
    Next i
    ActiveSheet.Cells(2, 1).Resize(UBound(arr) + 1, 1) = Application.WorksheetFunction.Transpose(arr)
End Sub

Answer 2

在 A1 中输入：

=ROUNDUP(ROW()/4,0)

并向下复制。