连长喊了一句：1排3班，2排5班，3排3班，出列（请教 如何提取数据 ）

ggggvfhpapsu

这是工作中经常遇到的问题

所有的数据都在各自工作表（或者一个总表）中，数据的格式都是一模一样的，
现在想通过一个目录，把里面的数据提取出来，该如何做?


只要能方便的把数据提取出来就行，

Vba，公式，透视表，PQ，PP，用什么方式不限，只要操作便捷都可以

甚至说数据表这么列不合适，需要改下格式都可以。

xiangbaoan

测试.rar (22.65 KB, 下载次数: 19)

2022-10-29 11:08 上传

点击文件名下载附件

白栎

1. =VSTACK(OFFSET('1组'!A1:D1,MATCH(B3,'1组'!A:A,0)-1,,COUNTIF('1组'!A:A,B3)),OFFSET('2组'!A1:D1,MATCH(B4,'2组'!A:A,0)-1,,COUNTIF('2组'!A:A,B4)),OFFSET('3组 '!A1:D1,MATCH(B5,'3组 '!A:A,0)-1,,COUNTIF('3组 '!A:A,B5)))

复制代码

365有自动数组还是挺方便的，其他excel版本就……

HSIAOQIANG

sandays

=LET(x,VSTACK('1组'!A1:D50,'2组'!A1:D50,'3组 '!A1:D50),FILTER(x,ISNUMBER(MATCH(TAKE(x,,1),B3:B5,))))

ggggvfhpapsu

xiangbaoan 发表于 2022-10-29 11:09

看了几位的回复，
因为没有365，
目前您这个方法是最便捷的，

不过为什么把组别换成汉字就识别不成了

xiangbaoan

ggggvfhpapsu 发表于 2022-10-30 22:03
看了几位的回复，
因为没有365，
目前您这个方法是最便捷的，

简单，明天改在此楼。

补充，加了红色的5个字符，适用于组别为汉字，如下：

  For i = 2 To UBound(ar)
    SQL = SQL & " UNION ALL SELECT * FROM [" & ar(i, 1) & "$A1:D] WHERE " & ar(1, 2) & " ='" & ar(i, 2) & "'"
  Next

ggggvfhpapsu

xiangbaoan 发表于 2022-10-30 22:49
简单，明天改在此楼。

补充，加了红色的5个字符，适用于组别为汉字，如下：

在按您说的，找到原代码改了下相应的位置，不知道怎么回事，新加上那几个字符后，原实例也运行不成了，


因为是做非标设计的，经常要用到这些半标准化的数据，
基本上一些部件是之前已经标准化好的，
每次来项目的时候，都要根据合同需求，
配置好各种部件的型号，然后输出该合同需要的总料单。

大致的思路就是这样，
于是就有了上面的想法，
周末的时候，因为是在家里，只能随便整了些数据做个样子。
今天正式拉了些用到的数据过来。因为目前手上的数据还不完整，只能拉了一点儿，但想着搭个模板的框架应该差不多了
部件共有几十个，每个部件也各有几到几十种不同的型号，每个型号里面都用到几到几十种材料。


后序表头可能还要再做一些更改和调整，但大致的样子，应该八九不离十了。

重新上传更新后的数据实例如下：

xiangbaoan

ggggvfhpapsu 发表于 2022-10-31 10:36
在按您说的，找到原代码改了下相应的位置，不知道怎么回事，新加上那几个字符后，原实例也运行不成了，
...

测试.rar (28.45 KB, 下载次数: 5)

2022-10-31 10:50 上传

点击文件名下载附件

ggggvfhpapsu

xiangbaoan 发表于 2022-10-31 10:50

测式，完美通过，

不过还有一些小细节，不知道能不能麻烦再完善一下

现在每次生成的数据都是复盖原区域的，
如果本次生成的数据没有上次生成的长的话，很容易把以前数据错看成刚才新生成的数据了，
不知道能不能每次都生成一个新的工作表，甚至是一个新文件？

另外，想把把数据文件与生成文件分成两个文件，
例如“料单总表”与“配置表”
这样的话，便于把总表放在局域网中随时专人更新与维护。