excel怎么按指定次数重复填充不同内容（从1递增的数字）

sxdmsz

excel怎么按指定次数重复填充不同内容（从1递增的数字），详见表格中的D列，谢谢老师帮忙 1.rar (6.53 KB, 下载次数: 18)

2023-3-26 10:49 上传

点击文件名下载附件

tiger1976

用VBA吧，方便快捷
Sub lll()

    Dim rng1 As Range
    Dim i, k, m As Integer
   
    m = Cells(Rows.Count, 1).End(xlUp).Row
   
   
    For Each rng1 In Range("a2:a" & m)
        For i = 1 To rng1.Value
            k = k + 1
            Cells(k + 1, 4) = rng1.Offset(0, 1).Value
        Next
    Next


End Sub

魚。。

https://club.excelhome.net/thread-1585522-1-1.html

在八月末里流浪

1. =IFERROR(INDEX(B:B,SMALL(IF(A$2:A$15>=COLUMN(A:Z),ROW($2:$15)),ROW(B1))),"")

复制代码

数组三键

sxdmsz

谢谢群里的各位老师，技术给工作带来方便。

黄蔡

我之前也有这个需求，PQ可以很方便满足，已上传附件，随便截了几张图，供参考。

PQ自定义列公式:{1..[指定数量]}

sandays

=REDUCE("序号",B2:B15,LAMBDA(x,y,VSTACK(x,EXPAND(y,OFFSET(y,,-1),,y))))