查找符合条件的列,并将该行中的其他单元格复制到新工作表

时间:2016-07-05 20:53:10

标签: excel vba excel-vba macros

我尝试创建一个可以在列(D)中找到文本的宏,如果符合条件,则将该行复制到另一个工作表中。我正在寻找的标准将不是单元格中唯一的文本。例如,标准可以是" Prodigy"但是Cell可以包含" Prodigy,Prodigy Tubing Set"。

我有一张名为" Sheet1"其中包含带标题的所有原始数据。具有满足条件的值的列是" D"。

我有其他数据将被复制到的表格。例如,其中一个表格标题为" Prodigy",另一个将是" Prodigy Tubing Set"。最多还有20张其他床单。

Macro: Given row X copy specific cells from that row to a new sheet

我尝试使用上面链接中的人员编写的代码,但只有在我的标准是单元格中的唯一内容时它才会起作用。

A picture of what my spreadsheet will look like is below. 我很擅长这一点,并希望得到任何可能的帮助。希望这是有道理的。

1 个答案:

答案 0 :(得分:0)

我认为您正在寻找的功能是InStr。

您发布的示例包含:If cell.Value = "Card" Then

相反,你需要这样的东西:If InStr(cell.Value, "Prodigy") > 0 Then

当然,你可能会用一些单元格值或变量替换文字“神童”。