使用关键字填充另一个工作表

Question

我有一组要从主表单中使用的关键字（a，b，c，d），并通过这些关键字将它们分别填充到其他表格中。例如，如果我的主工作表找到关键字“a”，那么我希望具有关键字“a”的详细信息的行移动到名为“a”的工作表。同样，如果找到关键字“b”，则需要将整行移动到工作表“b”。我想使用“按钮”，我将其命名为“更新”。当有人点击此按钮时，我希望主工作表执行搜索操作，以便按关键字将详细信息分隔到不同的工作表中。我想用VBA做到这一点。有人可以帮忙??

**

Sub UpdateMeetings()
Dim lastrow As Long, i As Long, erow As Long
lastrow = Sheets("Visit Details").Range("A" & Rows.count).End(xlUp).row
For i = 2 To lastrow
If Sheets("Visit Details").Cells(i, 6) = "apple" Then
Sheets("Visit Details").Range(Cells(i, 1), Cells(i, 7)).Select
Selection.Copy
Sheets("apple").Select
lastrow = Sheets("apple").Range("A" & Rows.count).End(xlUp).row
erow = lastrow + 1
ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
End If
Sheets("Visit Details").Select
Next i
End Sub

**

我使用了这个代码，只有当一般注释只有一个单词中提到的“apple”时，它才能完美 。但是我想从列一般评论中选择关键词“apple”，其中“Rita与Tom就从附近的商店购买苹果有一个电话”......但是当有一个长句时它不起作用..谁可以帮助告诉excel选择有“苹果”字样的句子并将整行移到工作表“apple”