求助

trcookie

怎么通过函长促数和公式将一个工作簿中的多个相同结构的工作表合成一个工作表，每个工作表都会有上万条记录，如果复制粘贴会非常耗时，求助大佬们有没有渐变的方式？数据量大的时候函数总是会卡，如果是VB程序就更好些。

博爱风雨同舟

=WRAPROWS(TOCOL(IF(VSTACK('13:18'!A2:A100)<>0,VSTACK('13:18'!A2:D100),0/0),3),4)
365版本

魚。。

博爱风雨同舟

=IFERROR(INDEX(INDIRECT(MATCH(ROW(A1),MMULT(N(ROW($1:$6)>COLUMN($A:$F)),SUBTOTAL(3,INDIRECT("'"&ROW($13:$18)&"'!A:A"))))+12&"!A:D"),MOD(SMALL(IF(SUBTOTAL(3,INDIRECT("'"&ROW($13:$18)&"'!A:A"))>=COLUMN($A:$AZ),ROW($1:$6)/1%%+COLUMN($A1:$AZ1)),ROW(A1)),10^4)+1,COLUMN(A1)),"")

博爱风雨同舟

=IFERROR(INDEX(INDIRECT(MATCH(ROW(A1)-1,MMULT(N(ROW($1:$7)>COLUMN($A:$F)),SUBTOTAL(3,INDIRECT("'"&ROW($13:$18)&"'!A2:A100"))))+12&"!A:D"),MOD(SMALL(IF(SUBTOTAL(3,INDIRECT("'"&ROW($13:$18)&"'!A:A"))>COLUMN($A:$BZ),ROW($1:$6)/1%%+COLUMN($A1:$BZ1)),ROW(A1)),10^4)+1,COLUMN(A1)),"")
刚才没验证

trcookie

魚。。 发表于 2023-3-19 21:18

完美解决，谢谢