Excel自动筛选，复制选择，粘贴到新表

Question

我在Regions!A6:R553列中有一个带有源数据的表。

在Regions!A3:R3 ，我有一些公式可以将要复制到其他工作表中的特定信息从Regions!A6:R553数据表中Regions!A6:R553 。

A列充当我的项目名称列，而B列保留ID号。 就我而言，每个项目有多个ID号。

我正在寻找一个脚本来过滤和逐列遍历B列中的所有唯一订单号，然后将单元格A3:R3复制到RegionsSummary!A12:R12 ，以获得与唯一订单号一样多的行（即，添加行）到桌子上）。

这是我的数据表“区域”的屏幕截图：i.stack.imgur.com/aTPuw.png

这是空模板“ RegionsSummary”的屏幕截图：i.stack.imgur.com/9Ukz5.png

示例：假设我的数据表中有5个项目。 我将使用另一个宏选择Project_1来过滤数据。 然后，我想要一个命令按钮来激活一个宏，该宏将过滤到B列中的第一个订单号，将Regions!A3:R3复制到RegionsSummary!A12:R12 ，然后过滤到Project_1中的第二个订单号，然后重复该过程。 这应该继续进行，直到所有唯一的ID号都已过滤并循环通过为止。

这是最终产品外观的屏幕截图：i.stack.imgur.com/9Ukz5.png

这是文件的链接： 最终输出示例

Answer 1

与具有某些约束的宏相比，我会选择一种更简单的解决方案。 我无法访问您的工作表，因此我将提供一个示例。

脚步：

1. 为下拉列表创建唯一项目的列表（将COPY Regions！A5：A10000复制到新工作表>数据>删除重复项）。 使用“ Example_Result ”表C7中的“数据验证”创建下拉列表（“数据验证”>“列表”>“选择范围”）。

2. 在“区域”的Col S中，输入以下公式= S6＆“ _”＆COUNTIF（$ S $ 6：S6，S6）将此公式向下复制到整个工作表中，或者只要您希望工作表会增长

3. 在“ Example_Result ”中，从A12开始插入一个索引列（如果希望每个项目的订单号为1000个或更少，则在A列中插入1到1000）。

4. 在第11行的列（B向前）中，包括区域（评估项目，公路等）中变量的名称。

5. 将以下公式插入到Example_Result的 B12到S1000中（取决于变量数）：

= IFERROR（INDEX（区域$ A $ 5：！$ S $ 10000，MATCH（$ C $ 7 “_” ＆A $ 12中，区域$ S $ 5：！$ S 10000,0 $），MATCH（B $ 11区域$ A $ 5！ ：$ H $ 5,0））， “”）