指定区域内提取非空数据到合计工作表

longer10010

如题，用VBA将合计工作表外的其他工作表内指定区域内提取非空数据到合计工作表，并在A列填写数据所在工作表名。非常感谢！！！

菜狗一只

1. =HSTACK(VSTACK(TEXTSPLIT(REPT("A1-",COUNTA('A1'!C6:C16)),,"-",TRUE),TEXTSPLIT(REPT("A2-",COUNTA('A2'!C6:C16)),,"-",TRUE),TEXTSPLIT(REPT("B1-",COUNTA('B1'!C6:C16)),,"-",TRUE),TEXTSPLIT(REPT("B2-",COUNTA('B2'!C6:C16)),,"-",TRUE)),VSTACK(INDIRECT("'A1'!C6:E"&COUNTA('A1'!C6:C16)+5),INDIRECT("'A2'!C6:E"&COUNTA('A2'!C6:C16)+5),INDIRECT("'B1'!C6:E"&COUNTA('B1'!C6:C16)+5),INDIRECT("'B2'!C6:E"&COUNTA('B2'!C6:C16)+5)))

复制代码

方法比较笨，建议用其他老哥的函数或用数据透视表、powerquery更快捷

咔咔乱坠

朋友你需求是发的板块是函数，给个函数解法吧
如果不用要A列的话会更简单，例：

1. =LET(a,VSTACK('A1:B2'!C6:E16),FILTER(a,TAKE(a,,1)>0))

复制代码

1. =WRAPROWS(TOCOL(VSTACK('A1:B2'!C6:E16),1),3)

复制代码

cnmlgb9998

文件损坏！ 重发

良良

A2=IFERROR(INDEX({"A1","A2","B1","B2"},INT(SMALL(IF(T(OFFSET(INDIRECT({"A1","A2","B1","B2"}&"!C5"),ROW($1:$11),))<>"",COLUMN(A:D)/1%%%+ROW($6:$16)/1%+30003),ROW(A1))/10^6)),"")，三键，下拉。
B2=INDIRECT($A2&TEXT(RIGHT(SMALL(IF(T(OFFSET(INDIRECT({"A1","A2","B1","B2"}&"!C5"),ROW($1:$11),))<>"",COLUMN($A:$D)/1%%%+ROW($6:$16)/1%+COLUMN(C1)*10001),ROW(A1)),4),"!!R0C00"),)，三键，右拉、下拉。

咔咔乱坠

小可爱网络
我重发一下试试
————————————————————————
朋友你需求是发的板块是函数，给个函数解法吧
如果不用要A列的话会更简单，例：
方法1
=LET(a,VSTACK('A1:B2'!C6:E16),FILTER(a,TAKE(a,,1)>0))
方法2
=WRAPROWS(TOCOL(VSTACK('A1:B2'!C6:E16),1),3)
如果一定要A列，可以这样
先公式管理器定义名称
工作表=TEXTAFTER(GET.WORKBOOK(1),"]")&T(NOW())
然后任意的一个单元格输入
=REDUCE(A1:D1,DROP(工作表,,1),LAMBDA(x,y,VSTACK(x,IFNA(HSTACK(y,TAKE(INDIRECT(y&"!C6:E16"),COUNTA(INDIRECT(y&"!C6:C16")))),y))))

cnmlgb9998

用PQ 解决，不香么？？？？？？？？？？

无关岁月

副本统计1.7z (13.56 KB, 下载次数: 2)

2024-3-28 12:35 上传

点击文件名下载附件

longer10010

无关岁月 发表于 2024-3-28 12:35

非常感谢！

longer10010

选对了平台，再次感谢各位大侠的支持！！！！！