打印左列数字X Excel打印次数

打印左列数字X Excel打印次数,excel,Excel,我知道=rept函数将重复某个数字x y多次,但这些数字都在同一行上,有没有办法让它每次都在新行上重复 这张图片只是为了更好地理解我的意思。您可以选择一个范围,键入一个数字,然后按ctrl+enter键,它将为您填充。这就是你想要做的吗 VBA 当x是活动单元格旁边的单元格时,此VBA会将活动单元格向下复制x次 Sub InsertSome() Application.ScreenUpdating = False Dim n As Integer n = ActiveC

我知道
=rept
函数将重复某个数字x y多次,但这些数字都在同一行上,有没有办法让它每次都在新行上重复


这张图片只是为了更好地理解我的意思。

您可以选择一个范围,键入一个数字,然后按ctrl+enter键,它将为您填充。这就是你想要做的吗


VBA 当x是活动单元格旁边的单元格时,此VBA会将活动单元格向下复制x次

Sub InsertSome()
    Application.ScreenUpdating = False
    Dim n As Integer
    n = ActiveCell(, 2)
    For i = 1 To n
        ActiveCell.Copy
        ActiveCell.Insert shift:=xlDown
        ActiveCell(2, 2).Insert shift:=xlDown
    Next i
    Application.ScreenUpdating = True
End Sub

如果因为活动单元格是计数的一部分而需要少插入1次,只需将其更改为
(对于i=1到(n-1)

,您提供的图片并不特别有启发性。鉴于图片中提供的输入,您希望获得什么输出?对不起。第一个数字是,左列将在15个不同的行上重复15次。第二个数字要打印13次,每一次打印在一个新的行上。哦,所以左边的数字需要在列的下面插入它自己(右边的数字)几次。它需要插入新行吗?这很有效,是的。但这需要确保选择正确的范围这项繁琐的任务。您能根据Excel中的值选择一个范围吗?@Darrinceil添加了VBA,可以满足您的需要