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

Question

我还是宏的新手，如果有人能帮我解决这个问题，我将不胜感激。

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

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

我需要找到包含“设计”的单元格，然后将该单元格下方的所有信息复制到下一张表，然后找到包含“设计”一词的另一个单元格并将其下方的所有信息复制到另一张纸。

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

Answer 1

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

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

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