VBA代码，用于将选中的行复制到新工作表，以补充工作表上的搜索关键字

下面的代码基本上搜索任何工作表中的任何关键字并高亮显示。我的问题是，除了突出显示外，如何将找到单词的整个行号复制到新的工作表中

是否也可以确定搜索将在哪个工作表中进行

多谢各位， 冈萨洛

在For循环之前添加代码以创建结果工作表，或者如果已经存在，则将其清除：

Dim results As Worksheet: Set results = ActiveWorkbook.Sheets("Results")

If results Is Nothing Then
    Set results = ActiveWorkbook.Sheets.Add()
    results.Name = "Results"
Else
    results.Cells.Clear
End If

创建对其A1单元格和计数器的引用：

Dim resultsRange As Range: Set resultsRange = results.Range("A1")
Dim matches As Long

找到匹配项后，将所需内容添加到结果工作表中，并递增计数器

With fCell
     .Interior.ColorIndex = 6

     resultsRange.Offset(matches, 0).Value = fCell.Row
     resultsRange.Offset(matches, 1).Value = fCell.Value
     matches = matches + 1
End With

---

要为工作表和下一个工作表中的每个工作表指定特定的工作表，请删除工作表中的每个工作表，并将其替换为带有ActiveWorkbook的工作表。SheetsSheetNameHere

请忽略我之前的评论@Alex-您的代码非常有效，谢谢！

With fCell
     .Interior.ColorIndex = 6

     resultsRange.Offset(matches, 0).Value = fCell.Row
     resultsRange.Offset(matches, 1).Value = fCell.Value
     matches = matches + 1
End With