百度一天了，没人会....按照指定行数，复制下拉，

r278525791

多行重复.rar (7.59 KB, 下载次数: 21)

2019-8-15 21:18 上传

点击文件名下载附件

要把每行不定数量的复制成相同的多行，求助

solextrade

1. =LOOKUP(,0/FREQUENCY(ROW(),SUMIF(OFFSET(B$1,,,ROW($1:$7)),">0")),A$1:A$7)&""

复制代码

r278525791

solextrade 发表于 2019-8-15 21:27

高手，多谢了

藍色DE流光

抄2楼一个
=INDEX(A:A,SMALL(IF(B$1:B$7>=COLUMN(A:I),ROW($1:$7),4^8),ROW(A1)))&""

闪闪小红星

=TRIM(MID(CONCAT(REPT($A$1:$A$7&REPT(" ",99),$B$1:$B$7)),99*ROW()-98,99))

试一下这个文本的方法，其他方法我也不会

kuangben8

1. Sub 重复填充()
   
2.     Dim arr, m%, brr(), n%, S&
   
3.     arr = Range("A1:B" & Cells(Rows.Count, 1).End(3).Row)
   
4.     S = Application.Sum(Range("B:B"))
   
5.     ReDim brr(1 To S, 1 To 1)
   
6.     S = 0
   
7.     For m = 1 To UBound(arr, 1)
   
8.         For n = 1 To arr(m, 2)
   
9.             S = S + 1
   
10.             brr(S, 1) = arr(m, 1)
    
11.         Next
    
12.     Next
    
13.     Range("K1").Resize(UBound(brr, 1)) = brr
    
14. End Sub
    

复制代码

多行重复.zip (16.89 KB, 下载次数: 3)

2019-8-15 22:49 上传

点击文件名下载附件

sucx007

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    已添加自定义 = Table.AddColumn(源, "自定义", each {1..[列2]}),
    #"展开的“自定义”" = Table.ExpandListColumn(已添加自定义, "自定义"),
    删除的其他列 = Table.SelectColumns(#"展开的“自定义”",{"列1"})
in
    删除的其他列
pq一般方法也很快

轩檐

1. =FILTERXML("<a><b>"&SUBSTITUTE(TEXTJOIN(,,REPT(A$1:A$7&" ",B$1:B$7))," ","</b><b>")&"</b></a>","a/b["&ROW(A1)&"]")

复制代码

推广下海版的公式~~~