查找单元格内容并将行复制到新工作表中

Question

我想在“InsertList”表单中粘贴一个列表。此列表仅包含单词“Correct”或“False”。从那时起，我需要一种在P，Q，R，S，T，U，V列中搜索“正确”或“假”字样的方法。

e.g。如果在“InsertList”表单的“P”列中找到单词“Correct”，我需要将从A到V的整行复制到它的目的地，在本例中为“sheet1”。

如果在“InsertList”表的“Q”列上找到“Correct”字样，则需要在Sheet2中复制A到V的行。等等..

Answer 1

For i = 2 to Thisworkbook.Sheets(“ÏnsertList”).Range(“A64000”).End(xlup).row

If  Thisworkbook.Sheets(“ÏnsertList”).Range(“P” & i).Value = “Correct” Then

Thisworkbook.Sheets(ÏnsertList”).Range(“A” & i & ":V" & i).Copy
 Thisworkbook.Sheets(“Sheet1”).Range(“A” & i)

ElseIf  Thisworkbook.Sheets(“ÏnsertList”).Range(“Q” & i).Value = “Correct” Then

Thisworkbook.Sheets(ÏnsertList”).Range(“A” & i & ":V" & i).Copy

Thisworkbook.Sheets(“Sheet2”).Range(“A” & i)

End If

Next

尝试在其中一个模块中使用上面的代码