2012-02-27 26 views
0

我想检查A3中的文本是否与范围A5:A50中的任何其他单元格中的文本匹配。如果单元格匹配范围内的任何其他人将内容复制到“结果”表

如果是这样,我想将Y单元格的内容(与匹配A3的单元格的行号相同)复制到名为results的工作表的A列中的下一个空闲单元格中。它还需要在复制Y单元格时保持单元格颜色。

所有我能得到是把这个在目标单元格

= VLOOKUP(Sheet1!A3, Sheet1$A$5:$Y50, 25, TRUE) 

,因为我需要在不同的名称来运行它多张所有不起作用。

回答

0
with activesheet 
    for each c in .range("A5:A50").cells 
     if c.value = .range("A3").value then 
     c.offset(0,24).copy _ 
       worksheets("results").cells(rows.count,1).end(xlup).offset(1,0) 
     end if 
    next c 
end with 
0

您可以列出sheetnames列表中的某个搜索采用了动态3D-VLOOKUP技术,命名该单元格范围MySheets,然后使用这样的结构:

=VLOOKUP(A3, INDIRECT("'" & INDEX(MySheets, MATCH(1, COUNTIF(INDIRECT("'" & MySheets &"'!A1:A50"), A3), 0)) & "'!A:B"), 2, 0) 

有一个示例工作簿on my site演示了这一点。

相关问题