VBA:复制整行,基于id,由另一行的单元格“id”引用?

时间:2013-11-24 17:15:48

标签: excel vba excel-vba

一般excel / VBA问题: 我有一个参考值(“1”)的单元格(C3),可以在另一个单元格中找到。柱(B2)。如何复制包含引用单元格的整行(B)?

我的例子 我有一个表格的宏,我根据多个列和&进行过滤。标准,然后我将相关行复制到新工作表。

请参阅下面的简化表格。 (请注意,“复制”列是高级过滤条件和结果的简化版本,用于说明目的。)

使用我的代码,它会复制行“Bread”,“Apples”,“Pears”“。

我遇到困难的地方:我还需要复制包含父ID的行,前提是子行符合高级过滤条件(“复制”:Y)。 所以我还需要复制“Grains”和“Fruit”的整行。

但不是“饮料”。

“水果”只能复制一次。 (即使有两行“Apples”“Pears”匹配id“2”,以及高级过滤条件)。

请注意:我不能使用或引用“复制”列,因为这仅用于说明目的。

Details     ID  ParentID    Copy
*GRAINS*    1       
Bread           1            Y
Rice            1   
*FRUIT*     2       
Apples          2            Y
Pears           2            Y
*DRINKS*    3       
Juice           3            N
Milk            3            N


Sheets("Configuration").Range("B7:Y259").AdvancedFilter _ 
Action:=xlFilterCopy, CriteriaRange:=Sheets("Filter").Range("A1:H8"), _ 
CopyToRange:=Range("A1"), Unique:=False 

我的过滤范围是:

摘要摘要TPM高级配置配置 - 印度QA - 印度集成工程师QA - Van<> 总计> 0<> 总计> 0< ;> 总计> 0<> 总计> 0<> 总计> 0<> 总计> 0<> 总计> 0

1 个答案:

答案 0 :(得分:0)

使用高级过滤器无法直接获得所需内容。

我认为您最好的选择是调整您的标准,以便复制所有父母。

然后在过滤后的数据集中,过滤掉空的父ID并删除这些行。