这个问题太难了，只有大神能解决。我连表述都难表述

kingdom119

高个子 发表于 2023-5-30 14:05
row里面也要改哦。。

是的大佬，我都改了，只是结果就是错误。主要是你这操作水平有点高，里面的行算法逻辑，我一直没搞明白。这是我改完后的函数=INDEX(A$2:A$96,SUM(1,N(ROW(A1)>MMULT(N(ROW($2:$96)>COLUMN($A:$F)),-INT(-$B$2:$B$96/20)))))，把7改成96后，就报错了

高个子

kingdom119 发表于 2023-5-30 14:36
是的大佬，我都改了，只是结果就是错误。主要是你这操作水平有点高，里面的行算法逻辑，我一直没搞明白。 ...

你如果要用这个，column里面也要改，95列是cq，不方便，用我后面写的那个就比较方便改了

=INDEX(A$2:A$96,SUM(1,N(ROW(A1)>MMULT(N(ROW($2:$96)>COLUMN($A:$cq)),-INT(-$B$2:$B$96/20)))))

kingdom119

高个子 发表于 2023-5-30 14:43
你如果要用这个，column里面也要改，95列是cq，不方便，用我后面写的那个就比较方便改了

=INDEX(A$2:A ...

大佬，你太牛了，这段函数是确定行号，但是这是什么逻辑：SUM(1,N(ROW(A1)>MMULT(N(ROW($2:$96)>COLUMN($A:$CQ)),-INT(-$B$2:$B$96/20))))

人间油物

像这种问题公式能写，但是很不方便，因为你如果把判断A列究竟有多少内容加进去，你公式就会非常的长，而且还要自己拖动，不方便。

这个问题只需要写个简单的代码，你插入模块执行一下，你不想保存为xlsm格式你执行了代码后移除模块就好，我认为是最简单的方法之一。

1. Sub NumRept()
   
2.     Dim i%, j%, k%
   
3.     Range("f2:g1048576").ClearContents
   
4.     For i = 2 To Range("a1048576").End(3).Row
   
5.         For j = 1 To -Int(-Cells(i, 2) / 50)
   
6.             k = Range("f1048576").End(3).Row + 1
   
7.             Cells(k, 6) = Cells(i, 1)
   
8.             Cells(k, 7) = Application.WorksheetFunction.Min(50, Cells(i, 2) - 50 * j + 50)
   
9.         Next
   
10.     Next
    
11. End Sub
    

复制代码

小代码.zip (19.04 KB, 下载次数: 6)

2023-5-30 16:36 上传

点击文件名下载附件

jisijie630

D2:

=MID(CONCAT(REPT(A$2:A99,CEILING(B$2:B99/50,1))),ROW(A1),1)

=INDEX(A:A,INT(SMALL(IF(COLUMN(A:J)<=CEILING(B$2:B99/50,1),ROW($2:99)/1%+COLUMN(A:J),9999),ROW(A1))/100))&""

E2:

=IF(D2="","",MIN(SUMIF(A:A,D2,B:B)-SUMIF(D$1:D1,D2,E$1),50))

shaowu459

供参考：
=REDUCE({"型号","数量"},A2:A5,LAMBDA(x,y,VSTACK(x,IF({1,0},y,BYROW(WRAPROWS(SEQUENCE(OFFSET(y,,1)),50),LAMBDA(z,COUNT(z)))))))

中间部分有不同的写法，这里用一个不除以不mod的方式

quqiyuan

PQ方法，供参考。




已添加自定义 = Table.AddColumn(源, "自定义", each if [列2]>50 then
                                    {List.Repeat({50},Number.RoundDown([列2]/50)),
                                    {Number.Mod([列2],50)}} else {{[列2]}}),

其实就中间这部分是需要写，其他都是点击鼠标完成。

niko88819

楼主是 OFFICE2019 , 考虑用VBA吧,如果是用365是最好解的,也是一步到位

1. Sub niko()
   
2.     Dim i As Integer, j As Integer, k As Integer
   
3.     Dim lastRow As Long
   
4.     lastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     Range("D2:E" & lastRow + 10).ClearContents
   
6.     For i = 2 To lastRow
   
7.         For j = 1 To -Int(-Cells(i, 2) / 50)
   
8.             k = Range("D" & Rows.Count).End(xlUp).Row + 1
   
9.             Cells(k, 4) = Cells(i, 1)
   
10.             Cells(k, 5) = Application.WorksheetFunction.Min(50, Cells(i, 2) - 50 * (j - 1))
    
11.         Next j
    
12.     Next i
    
13. End Sub

复制代码

niko88819

solextrade 发表于 2023-5-30 11:15
D2 =INDEX(A:A,SMALL(IF((B$2:B$6>{0,50}),ROW($2:$6),99),ROW(A1)))&""
E2 =MEDIAN(,50,VLOOKUP(D2,A:B,2 ...

老师,您的第一个公式有点小问题,公式没办法完全呈现结果,假设A7输入F,B7输入165

象山海鲜

区域数组

1. =IFERROR(INDEX(IF({1,0},A:A,50-ROW(1:50)+1),MID(SMALL(IF(B2:B666>(COLUMN(A:Z)-1)*50,ROW(10002:10666)/1%%+DDB(COLUMN(A:Z)*50,B2:B666,1,1)+1),ROW(1:888)),{2,6},4),{1,2}),"")

复制代码

可自己调节数
截断最大值     50 （最大9999）
取值行号       666 （最大9999）
展现个数       888  （最大整列显示）
每个数最多分的个数 26 （Z）【 可调整 COLUMN(A:Z) 的 列数Z的值】