如果单元格包含句子中的特定文本，则复制行

Question

我还是新手，如果有人可以帮我解决这个问题，我会非常感激。

excel中的列“A”包含如下几行（一列，行之间没有空格）：

Design: 0120
Model  -traditional
COLOR - red
Design:0150
copybook - quantity to be specified
Design: 0180
Still in progress

我需要找到包含“Design”的单元格，然后将此单元格下面的所有信息复制到下一页，然后找到包含单词“Design”的其他单元格并将其下面的所有信息复制到另一张。

我怎么能在vba中这样做？整个单元格包含“Design：0150”，这使我很难搜索单词“Design”，因为它是单元格中句子的一部分。如何自动复制和粘贴每个“设计”集？

Answer 1

您可以尝试在代码中使用此行：

If Left(cell.Value, 6) = "Design" Then

这可以达到目的。 如果它不起作用，请告诉我们您的完整代码，以便我们能够提供更好的帮助。