难度很大！1万个订单号如何按顺序每200个用逗号隔开向下填充

edwin11891

06482007 发表于 2024-11-10 18:47
请问你用的是什么版本EXCEL？

平时只用WPS，EXCEL只是偶尔验证算法用。

祝洪忠-

求助.rar (457.01 KB, 下载次数: 5)

2024-11-10 18:56 上传

点击文件名下载附件

mykitami

=LET(all,SORT(VSTACK(TOCOL(IF(LEN(A2:A14083)<20,A2:A14083,1/0),2),DROP(REDUCE("",FILTER(A2:A14083,LEN(A2:A14083)>19),LAMBDA(x,y,VSTACK(x,TEXTSPLIT(y,,",",1)))),1))),BYROW(WRAPROWS(all,200),ARRAYTOTEXT))

试验了一下，瞬间完成，但顺序不是原来的了，不知有没有影响。

ericxzhou

Python+Pandas:
import pandas as pd

f = pd.ExcelFile('pandas exercise/sample568.xlsx')
df = f.parse(usecols='a')
s = df['订单编号'].str.split(',').explode()
n = len(s) // 200
lst = [[i] * 200 for i in range(n)]
lst = [i for j in lst for i in j] + [n] * (len(s) % 200)
df1 = s.groupby(lst).apply(lambda x: ';'.join(x)).to_frame()

with pd.ExcelWriter(f, engine='openpyxl', mode='a', if_sheet_exists='overlay') as writer:
    df1.to_excel(writer, startrow=1, startcol=1, header=None, index=False)

06482007

mykitami 发表于 2024-11-10 19:53
=LET(all,SORT(VSTACK(TOCOL(IF(LEN(A2:A14083)19),LAMBDA(x,y,VSTACK(x,TEXTSPLIT(y,,",",1)))),1))),BYRO ...

顺序不重要，只要提取结果正确就可以了

edwin11891

加一次判断，避免全列执行TEXTSPLIT函数，速度快了不少，但还是达不到秒完。

=LET(t,DROP(REDUCE("",A2:A14083,LAMBDA(x,y,VSTACK(x,IF(LEN(y)>19,TEXTSPLIT(y,,","),y)))),1),s,WRAPROWS(t,200,""),BYROW(s,LAMBDA(x,TEXTJOIN(";",,x))))

你是那块小饼干

卡到重启电脑

一杯绿茶来了

=BYROW(WRAPROWS(A2:A14083,200,""),LAMBDA(x,TEXTJOIN(",",,x)))

edwin11891

06482007 发表于 2024-11-10 20:28
顺序不重要，只要提取结果正确就可以了

利用分段拼接，实现秒级完成，并保留原顺序。

1. =LET(sRc,A2:A15000,fx,LAMBDA(x,TEXTSPLIT(TEXTJOIN(",",1,x),,",",1)),s,DROP(REDUCE("",SEQUENCE(15,,1000,1000),LAMBDA(x,y,VSTACK(x,fx(DROP(TAKE(sRc,y),y-1000))))),1),BYROW(WRAPROWS(s,200,""),LAMBDA(x,TEXTJOIN(";",,x))))

复制代码

grf1973

用代码虽然稍微啰嗦，但胜在不卡。